Max s.v
19 de Marzo del 2003

saludos amigos listeros:
tengo un problema espero que me puedan ayudar;
me gustaria saber como pasar los datos que genera un recorsed a un archivo como excell o un documento de texto estoy haciendo un sistema de facturacion y me gustaria guardas una orden de ventas como archivo tambien ya sea excell o texto
esperando que alguien me pueda ayudar me despido
atte

Max S. V.

isaiasc
19 de Marzo del 2003

Ok, antes que nada tienes que cargar la libreria o referencia de excel, la cual es Microsoft Excel 9.0, si quieres pasarlo si un formato determinado tienes que, porner el siguiente codigo:

Public Sub Exporta_excel()
Dim s, j As Integer
Dim i As Long
Dim n As Long
Screen.MousePointer = vbHourglass
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "Error al tratar de abrir Excel"
End If
End If
With rs 'Recordset obtenido mediante el procedimiento [Get_recordset]
objExcel.Visible = True 'Abre excel
Set objWorkbook = objExcel.Workbooks.Add 'Agrega una hoja de trabajo
.MoveFirst
s = 2
While .EOF = False 'Ciclo para tener acceso a todos los campos
For i = 1 To .Fields.Count 'Ciclo que hace referencia a las Columnas [campos]
objWorkbook.ActiveSheet.Cells(s, i).Value = .Fields(.Fields(i - 1).Name).Value
Next
.MoveNext
s = s + 1
Wend
For j = 1 To .Fields.Count 'Ciclo que llena el primer renglon con los titulos de los campos
objWorkbook.ActiveSheet.Cells(1, j).Value = .Fields(j - 1).Name
objExcel.Columns.EntireColumn.AutoFit
Next
End With

Set objExcel = Nothing
Set objWorkbook = Nothing
Screen.MousePointer = vbDefault
End Sub


Espero te sirva, cualquier duda escribe a: [email protected], siquieres un respuesta inmediata en caso contrario, escribe al emil, que tengo registrado aaui