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