In diesem Beispiel werden der Abfragetabelle Zeilennummern und Feldnamen hinzugefügt.
With Worksheets(1).QueryTables("ExternalData1") .RowNumbers = True .FieldNames = True .Refresh End With