Classe WorkbookQuery (Excel VBA)

Um objeto que representa uma consulta que foi criada pelo Power Query. Introduzido no Office 2016.

Set

Para usar uma variável de classe WorkbookQuery, ela primeiro precisa ser instanciada por exemplo

Dim wqy as WorkbookQuery
Set wqy = ActiveWorkbook.Queries(NameOrIndex:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo WorkbookQuery: Workbook.Queries, Queries.Item e Queries.Add

For Each

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

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

Queries.Add

Adiciona um novo objeto WorkbookQuery à coleção queries .

Sintaxe : expression.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.

The following argument is optional

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

Queries.Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.Queries.Count

Queries.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

Queries.Item

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

Sintaxe : expression.Item (NameOrIndex)

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

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

Queries.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

Delete

Exclui a consulta e sua conexão subjacente e a remove da coleção Queries.

ActiveWorkbook.Queries(1).Delete

Description

A descrição da consulta. String de leitura/gravação.

ActiveWorkbook.Queries(1).Description =

Formula

A fórmula M do Power Query para o objeto. String de leitura/gravação.

ActiveWorkbook.Queries(1).Formula =

Name

O nome da consulta. String de leitura/gravação.

ActiveWorkbook.Queries(1).Name =

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.