Crear archivo Excel desde Visual Basic 6.0

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

8 comentarios - Crear archivo Excel desde Visual Basic 6.0

@shejo18
muy util pero necesito connexiones de excel a visual basic 6.0
@alisonjack
Voy a probarlo muchas gracias
@golo12
no se si me puedas alludar quiero formar un boton en visual basic para que me abra archivos de excel o word no se si se puedo

de ante mano espero que me puedas ayudar y te doy las gracias por la informacion

esperando tu pronta respuesta muchas gracias
@maculdes
como podria exportar varios archivos a la vez, xq en el ejemplo solo s epuede exportar uno a la vez, si hago la consulta select * from clientes y quiero q por segmento los separe, es decir todos los q ue son de bogota en un archivo excel, todos los q son de cali en otro, los que son de lima en otro y asi susecivamente por n ciudades.
@fresamonse
hola
quisiera saber si en visual basic existe algun codigo para poder usar el solver ( como en excel) necesito acer un programa pero tiene que llevar algunas iteraciones y no se si se pueda resolverlo

te agradeceria musho si me pudieras ayudar