Les dejo un ejemplo de como crear un archivo excel con visual basic 6.0, para las personas que se dedican al desarrollo
Es un ejemplo muy practico en la cual desde una consulta de Access se crea el archivo excel y exporta el resultado a un archivo XLS
A qui les dejo el código para su consulta
Dim ObjExcel As Object
Dim Libro As Object
Dim Hoja As Object
Dim NombreHoja As String
Dim Aux As String
Private Sub ExportaExcel_Click()
Dim i As Long
Dim j As Long
Dim SQL As String
Dim ObjField As Field
i = 2
Set db = CurrentDb()
Etiqueta11.Caption = ""
If FF <> "" Then
Set Libro = Nothing
'Crear el Objeto para abrir archivos EXCEL
Set ObjExcel = CreateObject("Excel.Application"
ObjExcel.Visible = True
'ObjExcel.DisplayAlerts = True
'Creamos un nuevo libro
Set Libro = ObjExcel.Workbooks.Add
Set Hoja = Libro.Sheets(1)
Libro.Sheets(1).Select
Libro.Sheets(1).Name = FF 'NombreHoja
SQL = "SELECT * FROM NOE_INCIDENTES"
'MsgBox (SQL)
Set conn = db.OpenRecordset(SQL)
With Hoja
.cells.Clear
i = 1
For Each ObjField In conn.Fields
.cells(1, i) = ObjField.Name
i = i + 1
Next
If conn.RecordCount > 0 Then
conn.MoveLast
conn.MoveFirst
For j = 1 To conn.RecordCount
i = 1
For Each ObjField In conn.Fields
.cells(j + 1, i) = conn.Fields(ObjField.Name)
i = i + 1
Next
conn.MoveNext
Next j
End If
End With
MsgBox ("Reporte Generado Satisfactoriamente"
Else
Etiqueta11.Caption = "Selecione on Opcion de FF..."
End If
End Sub
Felices Fiestas