SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Kurt en Viernes 13 de Mayo de 2005, 01:34
-
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
-
Qué tal Kurt?
Para ser sincero nunca he exportado datos a excel pero viendo tu código asunmo que solo te manda 28 filas ya que asignas a la variable fila el valor DataGrid1.VisibleRows que como su nombre lo indica devuelve el número de FILAS VISIBLES del data datagrid.
Fila = DataGrid1.VisibleRows
Creo que es mejor que trabajes directamente con el objeto recordset que "alimenta" al data.
Bueno, espero que el comentario te ayude en algo.
DiabloRojo.
-
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.
-
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.
muy buena, suguerencia de crear un archivo csv, pero no se creo que tiene un error en excel vota los archivos desorganizados, y si son muchos registros es peor,,,,,,,,
lusbinyoh@hotmail.com