SoloCodigo

Saludos a todos:

 Muchas gracias por leer mi mensaje, estoy tratando de exportar el contenido de un datagrid a excel con este codigo lo que he logrado es solo mandar una parte es decir solo 28 lineas de las 150 que tengo...mucho agradeceré su apoyo para saber en que estoy mal, o si existe otra forma de hacerlo...muchas gracias a todos ustedes.

On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
   Err.Clear
   Set objExcel = CreateObject("Excel.Application")
   If Err.Number Then
   Respuesta = MsgBox("Error al abrir Microsoft Excel", 16, "Información al usuario")
   End If
End If
objExcel.Visible = True
Set ObjWorkbook = objExcel.Workbooks.Add
Fila = DataGrid1.VisibleRows
Col = DataGrid1.Columns.Count - 1
For i = 0 To Fila
    DataGrid1.Row = i
    For n = 0 To Col
        DataGrid1.Col = n
        ObjWorkbook.ActiveSheet.Cells(i + 2, n + 1).Value = DataGrid1.Text
        ObjWorkbook.ActiveSheet.Cells(1, 1).Value = "REPORTE MENSUAL"
        ObjWorkbook.ActiveSheet.Cells(1, 2).Font.Bold = True
        ObjWorkbook.ActiveSheet.Cells(1, 2).Font.Size = 14
         Next
Next
Form4.Hide
Form7.Enabled = True
End Sub

Hola, te dire, yo lo paso a un archivo delimitado por comas, que tiene la extencion csv, y no me complico, lo abre el excel como si fuera xls, creas un archivo de salida, y luego imprimes en el separando los datos con una coma, y listo, al hacer doble click se abre en excel, donde lo editas y ya esta, se guarda tal cual. Suerte.