GuardarComo

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.