Klasse Parameters (Excel VBA)

Eine Auflistung von Parameter -Objekten für die angegebene Abfragetabelle. Um eine Parameters -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der Parameters -Elemente in einer Sammlung

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

Add

Erstellt einen neuen Abfrageparameter.

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

Ein benanntes Argument

Name (String) - Der Name des angegebenen Parameters.

Optional arguments

Das folgendes Argument ist optional

iDataType (XlParameterDataType) - Der Datentyp des Parameters.

Dies sind mögliche Werte für XlParameterDataType

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

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

Delete

Löscht das Objekt.

ActiveCell.QueryTable.Parameters.Delete

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Der Textname des Objekts entspricht dem Wert der Eigenschaften Name und value .

Item (Index)

Index: Der Name oder die Indexnummer für das Objekt.

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