Fout 1004 bij openen excel sheet

[AatB]

Hallo Forum,

Ik worstel al een tijdje met het volgende probleem;

Ik wil dat als het excelsheet geopend wordt, de queries welke in het excelsheet staan ververst worden, zonder dat de gebruiker het bevestigingsscherm krijgt.

Daarvoor gebruik ik onderstaande macro welk in de module ThisWorkbook zet.
De ene keer gaat het goed, maar ik krijg ook vaak een foutmelding;

Fout 1004 tijdens uitvoering:
Door de toepassing of door object gedefineerde fout

Wie kan mij helpen?

O ja, het zijn queries op een Access database...


mvg,

Aat

Private Sub Workbook_Open()

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
       
    Sheets("Delivered").Activate
    Range("A1").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False

    Sheets("PlanBoard").Activate
    Range("A6").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False

    Sheets("Report").Activate
    Range("A3").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With

 

[Finch]

Heb je daar ook een voorbeeldbestand bij?

 

[AatB]

Heb je daar ook een voorbeeldbestand bij?

Dat gaat denk ik niet, want dan moet ik ook de database mee sturen....

Aat

 

[AatB]

Hier dan toch het bestand....

 

[Finch]

Probeer anders eens deze code voor het refreshen van de QT:

Sub test()
Dim QT As QueryTable
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    For Each QT In WS.QueryTables
        QT.Refresh False
    Next QT
Next WS
End Sub

Evt. icm jouw with application..... code

 

[AatB]

Probeer anders eens deze code voor het refreshen van de QT:

Sub test()
Dim QT As QueryTable
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    For Each QT In WS.QueryTables
        QT.Refresh False
    Next QT
Next WS
End Sub

Evt. icm jouw with application..... code

Helaas, ik krijg dezelfde foutcode.

Aat

 

[AatB]

Probeer anders eens deze code voor het refreshen van de QT:

Sub test()
Dim QT As QueryTable
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    For Each QT In WS.QueryTables
        QT.Refresh False
    Next QT
Next WS
End Sub

Evt. icm jouw with application..... code