Classe Queries (Excel VBA)

O conjunto de objetos WorkbookQuery introduzidos no Office 2016. Para usar uma variável de classe Queries, ela primeiro precisa ser instanciada por exemplo

Dim qrs as Queries
Set qrs = ActiveWorkbook.Queries

For Each

Aqui está um exemplo de processamento dos itens Queries em uma coleção.

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

Add

Adiciona um novo objeto WorkbookQuery à coleção 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

O seguinte argumento é opcional

Name (String) - O nome da consulta.

Formula (String) - A fórmula da consulta de energia M para a nova consulta.

Optional arguments

The following argument is optional

Description (String) - A descrição da consulta.

Count

Retorna um inteiro que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveWorkbook.Queries.Count

FastCombine

True para habilitar o recurso de combinação rápida, desde que a pasta de trabalho esteja aberta. Boolean de leitura/gravação.

Para operações de atualização silenciosa, use a propriedade FastCombine em conjunto com a propriedade Application. DisplayAlerts definida como false.

ActiveWorkbook.Queries.FastCombine = True

Item

Retorna um único objeto de uma coleção.

Item (NameOrIndex)

NameOrIndex: O nome ou número de índice do item.

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