RefreshOnChange 属性

       

如果每次更改参数查询的参数值时,都要刷新指定的查询表,则该值为 TrueBoolean 类型,可读写。

说明

只有当使用 xlRange 类型的参数且引用的参数值位于单个单元格中时,才能将此属性设置为 True。每次更改该单元格的值时,都会刷新。

示例

本示例更改 Sheet1 上第一张查询表的 SQL 语句。语句“(ContactTitle=?)”表明该查询是参数查询,标题的值设置为单元格 D4 的值。每次该单元格中的值发生变化时,查询表将会自动刷新。

Set objQT = Worksheets("Sheet1").QueryTables(1)
objQT.CommandText = "Select * From Customers Where (ContactTitle=?)"
Set objParam1 = objQT.Parameters _
    .Add("Contact Title", xlParamTypeVarChar)
objParam1.RefreshOnChange = True
objParam1.SetParam xlRange, Range("D4")