In diesem Beispiel wird die erste Abfragetabelle aktualisiert. Falls die Anzahl der von der Abfragetabelle zurückgegebenen Zeilen größer ist als die in dem Tabellenblatt verfügbaren Zeilen, wird eine Fehlermeldung angezeigt.
With Worksheets(1).QueryTables(1) .Refresh If .FetchedRowOverflow Then MsgBox "Query too large: please redefine." End If End With