In diesem Beispiel wird die automatische Anpassung der Spaltenbreite für die neu hinzugefügte Abfragetabelle im ersten Tabellenblatt der ersten Arbeitsmappe deaktiviert.
With Workbooks(1).Worksheets(1).QueryTables _ .Add(Connection:= varDBConnStr, _ Destination:=Range("B1"), _ Sql:="Select Price From CurrentStocks " & _ "Where Symbol = 'MSFT'") .AdjustColumnWidth = False .Refresh End With