In diesem Beispiel wird der Sheet1 eine Abfragetabelle hinzugefügt. Mit der RefreshStyle-Eigenschaft werden dem Tabellenblatt nach Bedarf neue Zeilen hinzugefügt, um die Ergebnisdaten aufzunehmen.
Dim qt As QueryTable Set qt = Sheets("sheet1").QueryTables _ .Add(Connection:="Finder;c:\myfile.dqy", _ Destination:=Range("sheet1!a1")) With qt .RefreshStyle = xlInsertEntireRows .Refresh End With