RE:Exportar datos de VB a Excel
Prueba con esto:
Private Sub cmdtoexcell_Click()
Dim wkbNew As Excel.Workbook
Dim wkbSheet As Excel.Worksheet
Dim Rng As Excel.Range
If Dir("C:\Archivo.xls") <> "" Then 'Si Existe el Archivo
Kill "C:\Archivo.xls" 'Lo Eliminamos
End If
Set wkbNew = Workbooks.Add
wkbNew.SaveAs "C:\Archivo.xls"
Set wkbSheet = wkbNew.Worksheets(1)
Set Rng = wkbSheet.Range("A1:" + Chr(DataGrid1.Columns.Count + 64) + CStr(Adodc1.Recordset.RecordCount))
DataGrid1.Row = 0 'se coloca el cursor en la primera fila
DataGrid1.Refresh
For i = 0 To Adodc1.Recordset.RecordCount - 1
For j = 0 To DataGrid1.Columns.Count - 1
DataGrid1.Col = j
'DataGrid1.Row = I 'aqui se cae
Rng.Range(Chr(j + 1 + 64) + CStr(i + 1)) = DataGrid1.Text
Next j
Adodc1.Recordset.MoveNext
Next i
'Close and save the file
wkbNew.Close True
'Si queremos Abrir el Archivo
Dim MyValue
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:\Archivo.xls", vbMaximizedFocus)
End Sub