In diesem Beispiel wird die SQL-Anweisung der ersten Abfragetabelle geändert. Der Teil "(city=?)" gibt an, dass es sich bei der Abfrage um eine Parameterabfrage handelt. Außerdem wird in dem Beispiel als Wert für "City" die Konstante "Oakland" festgelegt.
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