chopper_zoro

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