Clase Queries (Excel VBA)

La colección de objetos propiedad workbookquery que se ha incluido en Office 2016. Para usar una variable de clase Queries, primero debe ser instanciado, por ejemplo

Dim qrs as Queries
Set qrs = ActiveWorkbook.Queries

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Queries en una colección.

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

Add

Agrega un nuevo objeto propiedad workbookquery a la colección queries .

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

Estos son los argumentos con nombre :

Name (String) - El nombre de la consulta.

Formula (String) - La fórmula de Power Query M para la nueva consulta.

Optional arguments

Los siguientes argumentos son opcionales

Description - String

Count

Devuelve un entero que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.Queries.Count

FastCombine

True para habilitar la característica de combinación rápida, siempre que el libro esté abierto.

Para las operaciones de actualización silenciosa, use la propiedad FastCombine en combinación con la propiedad Application. DisplayAlerts establecida en false.

ActiveWorkbook.Queries.FastCombine = True

Item

Devuelve un solo objeto de una colección.

Item (NameOrIndex)

NameOrIndex: El nombre o número de índice del elemento.

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