MsFlexGrid Inhalt an Excel sheet übergeben

[Dusty00]

Hy,

Ich versuche gerade verzweifelt den Inhalt eines MsFlexGrids an ein Excel sheet zu übergeben, komme aber nichr vorran!

Dim excel2 As Object
Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs2.ActiveConnection = conn
rs2.LockType = adLockOptimistic
rs2.CursorType = adOpenKeyset


rs2.Source = "Select * from Rechnung"

rs2.Open rs2.Source, conn, adCmdText

Set excel2 = CreateObject("excel.application")

excel2.WindowState = 1
excel2.Visible = True
excel2.DisplayAlerts = False

excel2.Workbooks.Open App.Path & "\rechnungs-vorlage.xls", , False

excel2.range("A25").Value = (rs2.Fields("a_FDatum")) ' Datum aus DB übergeben


excel2.range("C25").Value = GridArtikel.                       ' und jetzt ?

Ich hoffe Ihr könnt mir helfen!

mfg

dusty