Hola como estan?
espero que bien les cuento el problema que tengo es que mi aplicacion cuando carga en un excel lo que tengo en un datagrid me pasa los primeros 32 registros nada mas y en este momento la consulta me devuelve 111el codigo que utilizo es:


Private Sub Command16_Click()
Dim X As Integer
excel.Application.Visible = True
excel.Application.Workbooks.Add
X = DataGrid1.ApproxCount
excel.Application.Cells(1, 1) = DataGrid1.Columns(0).Caption
excel.Application.Cells(1, 2) = DataGrid1.Columns(1).Caption
excel.Application.Cells(1, 3) = DataGrid1.Columns(2).Caption
excel.Application.Range("A1:A1:C1:C1").Borders.Col or = RGB(1, 1, 1)
excel.Application.Range("A1:A1:C1:C1").Borders.Wei ght = xlMedium
excel.Application.Range("A1:A1:C1:C1").Borders.Lin eStyle = xlDouble
excel.Application.Range("A1:A1:C1:C1").Font.Bold = True
excel.Application.Range("A1").ColumnWidth = 45
excel.Application.Range("C1").ColumnWidth = 45
'***********************************
For i = 1 To X
DataGrid1.Row = i - 1
For j = 1 To 3
DataGrid1.Col = j - 1
excel.Application.Cells(i + 1, j) = DataGrid1.Text
Next
Next
End Sub
espero ansioso su ayuda desde ya gracias

__________________
JHB

Hola huevo.

Te paso un código que uso para pasar un recordset a excel:

Private Sub mnuGenerarinforme_Click()
Dim Xlapp As Excel.Application
Dim Prueba As Excel.Workbook
Dim Totalreg As Double
Dim Totalcol As Integer

Set Xlapp = New Excel.Application
Xlapp.Workbooks.Add

Set Prueba = Xlapp.Workbooks(Xlapp.Workbooks.Count)
Set Hoja1 = Prueba.Worksheets.Add

Recordset.MoveLast

Totalreg = Recordset.RecordCount

Recordset.MoveFirst

Totalcol = DataGrid.Columns.Count

For i = 0 To Totalcol - 1
Hoja1.Cells(1, i + 1).Value = Recordset.Fields(i).Name
Next i

Hoja1.Range("A3").CopyFromRecordset Recordset

Prueba.SaveAs (Prueba.xls)

Set Hoja1 = Nothing
Set Prueba = Nothing
Set Xlapp = Nothing
End Sub

miguel muchisimas gracias pero ya lo solucione
les cuento por si a alguien le sirve que lo que hice fue
cambiar los for por un while:
while not adodc1.recordset.eof

__________________
JHB