GetSaveAsFileName, cant find project or library

[dandiep]

Goedenavond,

Ik zit alweer enige tijd te stoeien met het volgende.

Ik prober vanuit een functie een .xlsm op te slaan, maar krijg de code niet gecompileerd.
Het compileren struikeld ieder keer over .GetSaveAsFileName met als foutmeling: cant find project or library.

Al struinend over het almachtige www kom ik maar tot één conclusie, de referentie in de VBA editor klopt niet.
Het probleem is echter dat ik niet kan achterhalen welke library aan/uit moet staan.

In de bijlage mijn instellingen.

Weet iemand aan welke library GetSaveAsFileName gerelateerd is?

Gr.
Danny

 

[OctaFish]

Ik zie geen bijlagen...

 

[dandiep]

Goedenavond,

Het probleem is echter opgelost mbv een andere code.

Set oExcel = CreateObject("Excel.Application")
Set oExcelWrkBk = oExcel.Workbooks.Open("D:\EmptyTemplate.xlsm")
...
...
..
oExcel.ScreenUpdating = True
oExcel.Visible = True
oExcel.Application.DisplayAlerts = False

oExcelWrkBk.SaveAs fileName

Excel zichtbaar maken voor afsluiten:

Daarna netjes excel afsluiten

    oExcel.Application.DisplayAlerts = False
    oExcel.Workbooks.Close
    oExcel.Quit
    Set oExcelWrSht = Nothing
    Set oExcelWrkBk = Nothing
    Set oExcel = Nothing

Het netjes afsluiten had wat voeten in aarde, maar werkt inmiddels ook goed.
Case closed.