como imprimir en un formato de excel

Estela
14 de Enero del 2004
Tengo un formato de altas pero quiero que la información que registro aparte de ir a la base de datos, vaya a un formato de excel, se puede? la verdad no se mucho de visual y no se tampoco como se haría el paso de parametros para un datareport, alquien me puede ayudar, por favor! si? es urgente! GRACIAS

cesar aimar
14 de Enero del 2004
espero que te sirva, los datos los tengo en un flex grid aparte que ya estan en una base de datos, posteriormente los mando a un archivo de excel. en ocasiones no funciona en windows 98 pero en los demas windows funciona bien.
coloque un boton que se llam cmdexportar

si tienes duda [email protected]

Private Sub cmdExportar_Click()
On Error GoTo ManejoError
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Open App.Path & "CobranzaMensual.xls"
xl.Visible = True

f = 0
Ii = 1
filacelda = 1
i = MSHFlexGrid1.Rows '- 1
MSHFlexGrid1.Row = Ii

Do While Ii <= i ' 1 es menor que 4

membresia = MSHFlexGrid1.TextMatrix(f, 0)
nombre = MSHFlexGrid1.TextMatrix(f, 1)
promotor = MSHFlexGrid1.TextMatrix(f, 2)
telefono = MSHFlexGrid1.TextMatrix(f, 3)
hospital1 = MSHFlexGrid1.TextMatrix(f, 4)
calle1 = MSHFlexGrid1.TextMatrix(f, 5)
numext1 = MSHFlexGrid1.TextMatrix(f, 6)
numint1 = MSHFlexGrid1.TextMatrix(f, 7)
fracc1 = MSHFlexGrid1.TextMatrix(f, 8)
ciudad1 = MSHFlexGrid1.TextMatrix(f, 9)
telefono1 = MSHFlexGrid1.TextMatrix(f, 10)
estado1 = MSHFlexGrid1.TextMatrix(f, 11)
hospital2 = MSHFlexGrid1.TextMatrix(f, 12)
calle2 = MSHFlexGrid1.TextMatrix(f, 13)
numext2 = MSHFlexGrid1.TextMatrix(f, 14)
numint2 = MSHFlexGrid1.TextMatrix(f, 15)
fracc2 = MSHFlexGrid1.TextMatrix(f, 16)
ciudad2 = MSHFlexGrid1.TextMatrix(f, 17)
telefono2 = MSHFlexGrid1.TextMatrix(f, 18)
estado2 = MSHFlexGrid1.TextMatrix(f, 19)
formadelpago = MSHFlexGrid1.TextMatrix(f, 20)
elimporte = MSHFlexGrid1.TextMatrix(f, 21)
numpagos = MSHFlexGrid1.TextMatrix(f, 22)
fechapagos = MSHFlexGrid1.TextMatrix(f, 23)

xl.Cells(filacelda, 1).Value = membresia
xl.Cells(filacelda, 2).Value = nombre
xl.Cells(filacelda, 3).Value = promotor
xl.Cells(filacelda, 4).Value = telefono
xl.Cells(filacelda, 5).Value = hospital1
xl.Cells(filacelda, 6).Value = calle1
xl.Cells(filacelda, 7).Value = numext1
xl.Cells(filacelda, 8).Value = numint1

xl.Cells(filacelda, 9).Value = fracc1
xl.Cells(filacelda, 10).Value = ciudad1
xl.Cells(filacelda, 11).Value = telefono1
xl.Cells(filacelda, 12).Value = estado1
xl.Cells(filacelda, 13).Value = hospital2
xl.Cells(filacelda, 14).Value = calle2
xl.Cells(filacelda, 15).Value = numext2
xl.Cells(filacelda, 16).Value = numint2


xl.Cells(filacelda, 17).Value = fracc2
xl.Cells(filacelda, 18).Value = ciudad2
xl.Cells(filacelda, 19).Value = telefono2
xl.Cells(filacelda, 20).Value = estado2
xl.Cells(filacelda, 21).Value = formadelpago
xl.Cells(filacelda, 22).Value = elimporte
xl.Cells(filacelda, 23).Value = numpagos
xl.Cells(filacelda, 24).Value = fechapagos


If Ii < i Then
Ii = Ii + 1
f = f + 1
filacelda = filacelda + 1
Else
Ii = Ii + 1
End If

Loop

Exit Sub
ManejoError:
Select Case Err
Case -2147467259
MsgBox "ERROR LA CONEXION HA FALLADO, REVISA QUE EL SERVIDOR ESTE ENCENDIDO O CONECTADO A LA RED"
Exit Sub
Case Else
MsgBox "Error " & Err & " : " & Error
End Select

End Sub