Variabelen naar Excel exporteren

[Hans van Dijck]

Hallo,

Ik heb een vraag of iemand mij kan helpen.

Ik heb in VB5 een programma geschreven om een apparaat te duurproeven.
Het programma verstuurd commando's naar het
apparaat en krijgt dan getallen terug.
Ieder getal dat ik terug krijg is een variabele met een apparte naam.
B.V. Getal1,Getal2,Getal3 enz.
Na iedere ciclus van de duurproef maakt het programma de variabele ""
Nu is mijn vraag voor een ciclus af is wil ik de variabelen in een Excel
Sheet ( C:\data\temp\Book1.xls) zetten BV.Getal1 in cel A1 Getal2 in
cel B1 enz.
Voor ik deze getallen in de sheet zet moet ik eerst een Insert.Row geven.
En daarna telkens de sheet wegsaven.

 

[Hans van Dijck]

Toch opgelost


Private Sub Command1_Click()

Dim appXl As Object

Set appXl = CreateObject("Excel.Application")
appXl.Workbooks.Open ("C:\Temp\Book1.xls")

'appXl.Visible = True


appXl.Range("A2").Select
appXl.Selection.EntireRow.Insert



appXl.Cells(2, 1) = "Hallo"
appXl.Cells(2, 2) = "Jansen"
appXl.ActiveWorkbook.Save
appXl.ActiveWorkbook.Close
appXl.Application.Quit

Set appXl = Nothing