Inlezen excel gegevens in vb

[ardkapteijn]

Hallo,

Ik heb een probleem met het inlezen van excel, het is de bedoeling om berekende gegevens in te lezen in VB, en die vervolgens weer te verwerken. Echter als ik een cel in lees waar een formule in staat.. of een verwijzing leest VB dit niet als getal maar als verwijzing.

in de excel staat in deze cel "284" dit getal komt uit voort uit de formule =Seat!AM10 en geeft als resultaat na het inlezen in VB: =Seat!R[1]C[33]...

Wat kan ik doen om wel het getal 284 te krijgen?

Dim Ex As New Excel.Application
Dim i As Integer
Screen.MousePointer = vbHourglass
DoEvents
Ex.Visible = False
Workbooks.Open ("G:\Seat.xls")
Worksheets(2).Activate

intTeller = 9 'start c9
Do While Text3 = Test1
Vakje = "C" & Trim(Str(intTeller))
Text3 = Vakje
Range(Vakje).Activate 'Hier mee lees ik iets uit..
Test1 = ActiveCell.FormulaR1C1
intTeller = intTeller + 1
Loop
Vakje = "G" & Trim(Str(intTeller))
Range(Vakje).Activate
Uitvoer = ActiveCell.FormulaR1C1
Text1 = Uitvoer

Workbooks(1).Save
Workbooks(1).Close
Ex.Quit
Set Ex = Nothing
Screen.MousePointer = vbDefault

End Sub

 

[ReneDirks]

Hmm vreemd. Maak je wel gewoon gebruik van een range object?

Ik dacht dat dit de formule was

activesheet.cells(1,2).formula

En dit de waarde:
activesheet.cells(1,2).value

En dat .value de default property was?

 

[ardkapteijn]

Hmm vreemd. Maak je wel gewoon gebruik van een range object?

Ik dacht dat dit de formule was

activesheet.cells(1,2).formula

En dit de waarde:
activesheet.cells(1,2).value

En dat .value de default property was?

Ik heb mijn proef programma er even bij gezet, maar ik gebruik een andere manier van binnen halen van mijn gegevens.. denk ik! Had op internet al diverse manieren gevonden dit leek mij de eenvoudigste.....

maar ik ga er wel ff mee aan de slag

 

[ardkapteijn]

Het was idd ".value" probleem, ben weer een stap verder.. alvast bedankt

 

[ReneDirks]

Zet je 'm nog ff op opgelost dan?