Código de Visual Basic para escribir en Excel desde Microsoft Access Política de privacidad de plasticaweb

Academia Plasticaweb

Temas de la semana Código de Visual Basic para escribir en Excel desde Microsoft Access.htm
¿Cómo llegar?: Código en Visual Basic
Pasos :
Notas :

Dim xlApp As Object ' Declara la variable para mantener la referencia.

Set xlApp = CreateObject("excel.application")

' Puede tener la propiedad Visible a True

' si quiere ver la aplicación.

xlApp.Visible = True

xlApp.FindFile

xlApp.Worksheets(1).Range("A1:AF300").ClearContents

contame = 1

xlApp.Worksheets("hoja1").Cells(contame, 1).Value = "Escribo desde Microsoft Access"

contame = 2

xlApp.Worksheets("hoja1").Cells(contame, 1).Value = "Segunda linea escrita"

xlApp.Quit

 ' Cuando finaliza, utiliza el método Quit para cerrar

Set xlApp = Nothing

 ' la aplicación; después libera la referencia.