birra al que me ayude!!!

rla98017
02 de Febrero del 2004
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.

sdemingo
02 de Febrero del 2004
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