Jose
10 de Febrero del 2006

Hola amigos, he capturado la informaci贸n de una impresora con visual basic. Esta informaci贸n me gustaria pasarla a una hoja excel. de momento tengo un bot贸n De Guardar, pero lo guardo con extensi贸n (txt) y luego lo paso a excel.
Hay alguna manera de pasarlo a excel directamente?
Gracias

Rosa
10 de Febrero del 2006

Hola, quiz谩 puedas usar una plantilla de excel (.xlt) con una macro que reciba los datos y los pinte en el excel, algo as铆:

Private Sub Command1_Click()

Dim m_objExcel As Excel.Application
Dim m_objWorkbook As Excel.Workbook
Dim m_varDatos As Variant

Set m_objExcel = New Excel.Application
m_objExcel.Visible = True

Set m_objWorkbook = m_objExcel.Workbooks.Open("c:prueba.xlt", , False)

ReDim m_varDatos(0 To 1, 1 To 1)
m_varDatos(0, 1) = "Dato1"
m_varDatos(1, 1) = "Dato2"

'Correr la macro de excel
m_objExcel.Run "CargarDatos", m_varDatos

Set m_objWorkbook = Nothing
Set m_objExcel = Nothing

End Sub

Previamente debes referenciar en tu proyecto (men煤 Proyecto -> Referencias -> Microsoft Excel...
La macro en el excel ser铆a un procedimiento que se llame CargarDatos y reciba como par谩metro un variant

Espero que te ayude.