birra al que me ayude!!!
Necesito copiar un objeto de excel y pegarlo en una tabla de access. Luego necesito pegar una consulta de access en una hoja de un libro excel. Cerveza libre al que me ayude.
Hola,
Private Sub Command1_Click()
generaHoja
End
End Sub
Sub generaHoja()
Dim e As Object
Dim ruta As String
On Error GoTo error1
Set e = CreateObject("Excel.Application")
ruta = "c:documento.xls"
e.Workbooks.Open ruta
e.Visible = True
e.ActiveSheet.Range("A1:B1").Select
e.ActiveCell = "Hola Caracola"
' En el caso de ser una consulta sql
' e.ActiveCell = rsRecordSet("NombreCampo")
' etc....
e.ActiveWorkbook.Save
e.Application.Quit
Set e = Nothing
Exit Sub
'ERROR
error1:
MsgBox Err.Description
e.Application.Quit
Set e = Nothing
End Sub
Saludos
sdemingo
Private Sub Command1_Click()
generaHoja
End
End Sub
Sub generaHoja()
Dim e As Object
Dim ruta As String
On Error GoTo error1
Set e = CreateObject("Excel.Application")
ruta = "c:documento.xls"
e.Workbooks.Open ruta
e.Visible = True
e.ActiveSheet.Range("A1:B1").Select
e.ActiveCell = "Hola Caracola"
' En el caso de ser una consulta sql
' e.ActiveCell = rsRecordSet("NombreCampo")
' etc....
e.ActiveWorkbook.Save
e.Application.Quit
Set e = Nothing
Exit Sub
'ERROR
error1:
MsgBox Err.Description
e.Application.Quit
Set e = Nothing
End Sub
Saludos
sdemingo