Generar Archivo Excel

25/09/2006 - 18:29 por J o h N u S \(PE\) | Informe spam
alguien tendra como manejar, crear archivos en Excel desde vb 2005, algun
link donde indique utilizar o algun ejemplo necesito crear ciertos reportes
especificos en VB6 lo hacia sin problemas

salu2
 

Leer las respuestas

#1 Squiur
26/09/2006 - 14:01 | Informe spam
Primero tienes que importar las referencias:
Microsoft.office.core
interop.Exel

Lo que hice acontinuacion es recorrer un listview y irlo agregando al archivo

Guardar1.Filter = "xls Archivos de Excel (*.xls)|*.xls"
Guardar1.FilterIndex = 1
Guardar1.RestoreDirectory = True

Guardar1.ShowDialog()

Dim exl As New Excel.Application
Dim libro As New Excel.Worksheet
libro = exl.Workbooks.Add.Worksheets.Add

If exl Is Nothing Then
MsgBox("no se abre excel")
Exit Sub
End If

libro.Cells(1, 1).value = "Fecha"
libro.Cells(1, 2).value = "Cedula"
libro.Cells(1, 3).value = "Apellido y Nombre"
libro.Cells(1, 4).value = "Cargo"
libro.Cells(1, 5).value = "HND"
libro.Cells(1, 6).value = "HNN"
libro.Cells(1, 7).value = "HSD"
libro.Cells(1, 8).value = "HSN"
libro.Cells(1, 9).value = "HS"
libro.Cells(1, 10).value = "HD"
libro.Cells(1, 11).value = "Cuadrilla"
libro.Cells(1, 12).value = "C.C."
libro.Cells(1, 13).value = "C.C."
libro.Cells(1, 14).value = "Turno"
libro.Cells(1, 15).value = "Entrada"
libro.Cells(1, 16).value = "Salida"
libro.Cells(1, 17).value = "Total"


Dim i, j As Long
For i = 0 To Tabla3.Items.Count - 1
libro.Cells(i + 2, 1).value = Tabla3.Items(i).Text
For j = 1 To 16
libro.Cells(i + 2, j + 1).value =
Tabla3.Items(i).SubItems(j).Text
Next j
Next i
Try
libro.SaveAs(Guardar1.FileName)
exl.Workbooks.Close()
Catch ex As Exception
MsgBox("No se Puede Guardar el archivo")
End Try
End Sub
Gracias
Atte.
Squiur.


"J o h N u S (PE)" wrote:

alguien tendra como manejar, crear archivos en Excel desde vb 2005, algun
link donde indique utilizar o algun ejemplo necesito crear ciertos reportes
especificos en VB6 lo hacia sin problemas

salu2



Preguntas similares