GuardarComo
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
Hay alguna manera de pasarlo a excel directamente?
Gracias
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.
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.