Klasse Queries (Excel VBA)

Die Sammlung von WorkbookQuery -Objekten, die in Office 2016 eingeführt wurden. Um eine Queries -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim qrs as Queries
Set qrs = ActiveWorkbook.Queries

For Each

Hier ist ein Beispiel für die Verarbeitung der Queries -Elemente in einer Sammlung

Dim wqyQuerie As WorkbookQuery
For Each wqyQuerie In ActiveWorkbook.Queries
	
Next wqyQuerie

Add

Fügt der Queries -Auflistung ein neues WorkbookQuery -Objekt hinzu.

Add (Name, Formula, Description)

Dim myConnection As WorkbookConnection
Dim mFormula As String
mFormula = _
"let Source = Csv.Document(File.Contents(""C:\data.txt""),null,""#(tab)"",null,1252) in Source"
query1 = ActiveWorkbook.Queries.Add("query1", mFormula)

Arguments

Hier sind die benannte Argumente :

Name (String) - Der Name der Abfrage.

Formula (String) - Die Power Query M-Formel für die neue Abfrage.

Optional arguments

Das folgendes Argument ist optional

Description - String

Count

Gibt eine ganze Zahl zurück, die die Anzahl der Objekte in der Sammlung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.Queries.Count

FastCombine

True, um die Funktion für schnelleres Kombinieren zu aktivieren, solange die Arbeitsmappe geöffnet ist.

Verwenden Sie für unbeaufsichtigte Aktualisierungsvorgänge die FastCombine -Eigenschaft in Verbindung mit der Application. DisplayAlerts -Eigenschaft auf falsefestgelegt.

ActiveWorkbook.Queries.FastCombine = True

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (NameOrIndex)

NameOrIndex: Der Name oder die Indexnummer des Elements.

Dim wqyQuery As WorkbookQuery
Set wqyQuery = ActiveWorkbook.Queries(NameOrIndex:=1)