Kør Excelmakro fra Access

Uden at jeg har testety, må det kræve en række ting, fx at Excel er startet og den projektmappe, der indeholder makroen skal være åbnet. Desuden skal makroen i Excel været erklæret som Public. Du skal etablere et Excel objekt i Access, og via dette starte makroen.

Hvad gør makreon i Excel?

Det går jeg også ud fra...

Følgende benyttes til aktivering af regneark og efterfølgende afvikling af indbygget makro

Sub runXL()
Dim myXLWrkBk
Dim FilPlacering As String
On Error Resume Next

FilPlacering = DLookup("[Excel_Filplacering]", "tblFilplacering")

'Open connection to XL workbook and make visible.
    Set myXLWrkBk = GetObject(FilPlacering & "ExcelGantt.xls")
    myXLWrkBk.Application.Visible = True
    myXLWrkBk.Application.Windows("ExcelGantt").Visible = True
 

'Run procedure in ThisWorkBook folder.
    myXLWrkBk.Application.Run "ThisWorkBook.Auto_Aktiver"

End Sub

Eller

    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.workbooks.Open ("makrotst.xls")
    xlApp.Run "makrotst.xls!Module1.Makro1"
    xlApp.Visible = True

Tak for svarene begge to - jeg prøver at lege lidt!!!

Takker for point ;)

Velbekomme! Tak for point,

:-)