Clase Parameters (Excel VBA)

Una colección de objetos Parameter para la tabla de consulta especificada. Para usar una variable de clase Parameters, primero debe ser instanciado, por ejemplo

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

For Each

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

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

Add

Crea un parámetro de consulta nuevo.

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

Un argumento con nombre

Name (String) - Nombre del parámetro especificado.

Optional arguments

Los siguientes argumentos son opcionales

iDataType (XlParameterDataType) - El tipo de datos del parámetro.

Aquí puede ver valores posibles para XlParameterDataType

Count

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

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

Delete

Elimina el objeto.

ActiveCell.QueryTable.Parameters.Delete

Item

Devuelve un solo objeto de una colección.

El nombre de texto del objeto es el valor de las propiedades Name y Value .

Item (Index)

Index: Número de índice o nombre del objeto.

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