Classe Parameters (Excel VBA)

Uma coleção de objetos Parameter para a tabela de consulta especificada. Para usar uma variável de classe Parameters, ela primeiro precisa ser instanciada por exemplo

Dim prms as Parameters
Set prms = ActiveCell.QueryTable.Parameters

For Each

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

Dim prm As Parameter
For Each prm In ActiveCell.QueryTable.Parameters
	
Next prm

Add

Cria um novo parâmetro de consulta.

Add (Name, iDataType)

Set qt = Sheets("sheet1").QueryTables(1) 
qt.Sql = "SELECT * FROM authors WHERE (city=?)" 
Set param1 = qt.Parameters.Add("City Parameter", _ 
 xlParamTypeVarChar) 
param1.SetParam xlConstant, "Oakland" 
qt.Refresh

Arguments

O seguinte argumento é necessário

Name (String) - O nome do parâmetro especificado. O nome do parâmetro deve coincidir com a cláusula de parâmetro na instrução SQL.

Optional arguments

The following argument is optional

iDataType (XlParameterDataType) - O tipo de dados do parâmetro. Pode ser qualquer constante XlParameterDataType . Esses valores correspondem a tipos de dados ODBC. Eles indicam o tipo de valor que o driver ODBC espera receber. O Microsoft Excel e o Gerenciador de driver ODBC forçarão o valor de parâmetro fornecido no Excel para o tipo de dados correto para o driver.

Aqui você pode encontrar os valores possíveis para XlParameterDataType

Count

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

Dim lngCount As Long
lngCount = ActiveCell.QueryTable.Parameters.Count

Delete

Exclui o objeto.

ActiveCell.QueryTable.Parameters.Delete

Item

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

O nome de texto do objeto é o valor das propriedades Name e Value .

Item (Index)

Index: O nome ou número de índice do objeto.

Dim prm As Parameter
Set prm = ActiveCell.QueryTable.Parameters(Index:=1)