[VB6] Esportare contenuti di un DataGrid in Excel

[Antagonista]

Salve a tutti, ho fatto una ricerca nel forum ma non riesco a trovare ciò che mi serve.
Ho un datagrid che si popola tramite una query.
Vorrei che alla pressione di un bottone il contenuto di quel datagrid venisse scritto in un file excel.
Come faccio ad esportare?
GRAZIE 1000.

[girobai]

Dim objExcel As Object
Dim objWorkbook As Object
'
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "Can't open Excel."
End If
End If
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
Call objExcel.Range("A1").CopyFromRecordset(NOMEDATAGRI D.Recordset)

[Antagonista]

Grazie 1000!

[Magicolotto]

io ho provato
ma mi apresolo un foglio di excell vuoto

non importa il contenuto delle celle

come mai?

[Magicolotto]

[girobai]

hai messo il nome della tua griglia?
nella griglia ci sono dei dati?

[Magicolotto]

mi dice impossibile trovare membro dati qui :

Call objExcel.Range("A1").CopyFromRecordset(grdDataGrid .Recordset)

[girobai]

la tua griglia è una MSHflexgrid?

[Magicolotto]

la mia e' grdDataGrid

[girobai]

allora controlla se ha la proprietà Recordset