Foutmelding 1004 bij openen macro

[AABE]

Forum,

ik heb de volgende macro gemaakt, welke uitgevoerd wordt bij het openen van een excelsheet.

[Private Sub Workbook_Open()
Application.DisplayAlerts = False
Selection.QueryTable.Refresh BackgroundQuery:=True
Application.DisplayAlerts = True
End Sub

Deze macro gebruik ik in diverse excelsheets.
Het komt nu bij enkele sheets voor dat er een foutmelding 1004 gegeven wordt.

Weten jullie een oplossing?

mvg,

AABE

 

[richard1970]

Kan het zijn dat er meerdere tabellen op een sheet staan?
Kan het zijn dat je een cel geselecteerd hebt buiten de tabel?
Kan het zijn dat je meerdere cellen geselecteerd hebt op een sheet?

Zomaar wat vragen waar ik het eerst zou zoeken.

Richard

 

[AABE]

Kan het zijn dat er meerdere tabellen op een sheet staan?
Kan het zijn dat je een cel geselecteerd hebt buiten de tabel?
Kan het zijn dat je meerdere cellen geselecteerd hebt op een sheet?

Zomaar wat vragen waar ik het eerst zou zoeken.

Richard

Een sheet heeft 1 werkblad met 1 query en een andere sheet heeft 4 werkbladen met 1 query per werkblad.

De macro wordt uitgevoerd bij het openen van de excelsheet, dus hoe moet ik jouw opmerkingen dan plaatsen? De macro ververst alle queries op alle werkbladen van de excelsheet...

Aat

 

[Roncancio]

Hallo,

In je code heb je het over Selection.QueryTable.Refresh BackgroundQuery:=True
Het kan zijn dat er op het betreffende werkblad geen query is geselecteerd.

Met vriendelijke groet,


Roncancio

 

[AABE]

Hallo,

In je code heb je het over Selection.QueryTable.Refresh BackgroundQuery:=True
Het kan zijn dat er op het betreffende werkblad geen query is geselecteerd.

Met vriendelijke groet,


Roncancio

Dus als er in een sheet met 4 werkbladen op 1 werkblad geen query staat zou hij deze fout kunen geven?
Kun je wellicht ook aangeven hoe ik dan dit werkblad kan uitsluiten?

Aat

 

[Roncancio]

Hallo,

Zo iets? Dit is niet getest.

Private Sub Workbook_Open()
Dim WS As Worksheet
    For Each WS In ThisWorkbook.Worksheets
        If WS.QueryTables.Count > 0 Then
           Application.DisplayAlerts = False
            Selection.QueryTable.Refresh BackgroundQuery:=True
            Application.DisplayAlerts = True
        End If
    Next
End Sub

Met vriendelijke groet,


Roncancio