Enviar datos a excel
Necesito el código completo para pasar información de un TextBox a una celda de un documento excel existente.
¿Podría hacerse sin abrir el citado documento?
Gracias
¿Podría hacerse sin abrir el citado documento?
Gracias
1 respuesta
Respuesta de aja72
1
Te pongo un trozo de código de ejemplo:
Dim xl As Excel.Application
Dim w As Worksheet
Set xl = CreateObject("Excel.Application")
xl.Visible = False
xl.Application.Workbooks.Open App.Path & "\informe.xls"
Set w = xl.Worksheets.item("Hoja1")
w.Activate
w.Cells(1, 1) = Text1.Text
xl.ActiveWorkbook.SaveAs App.Path & "\modificado.xls"
Xl. Workbooks. Close
Xl. Application. Quit
Set xl = Nothing
Es imposible modificar un documento sin abrirlo, lo que si puedes hacer es abrir la instancia de excel sin que sea visible, modificar el documento y cerrarlo.
Dim xl As Excel.Application
Dim w As Worksheet
Set xl = CreateObject("Excel.Application")
xl.Visible = False
xl.Application.Workbooks.Open App.Path & "\informe.xls"
Set w = xl.Worksheets.item("Hoja1")
w.Activate
w.Cells(1, 1) = Text1.Text
xl.ActiveWorkbook.SaveAs App.Path & "\modificado.xls"
Xl. Workbooks. Close
Xl. Application. Quit
Set xl = Nothing
Es imposible modificar un documento sin abrirlo, lo que si puedes hacer es abrir la instancia de excel sin que sea visible, modificar el documento y cerrarlo.
