QueryTables对象参考EXCEL

QueryTables对象?Excel?

QueryTable对象的集合。

注解查询表中的每个对象表示从外部数据源返回的数据中生成一个工作表表。 示例

使用QueryTables属性可返回QueryTables集合。下例显示活动工作表上查询表的数目。 VBA MsgBoxActiveSheet.QueryTables.Coun使用Add（机器翻译）方法来创建新的查询表，并将其添加到查询表的集合。下面的示例创建一个新的查询表。

VBA

Dim qtAsQueryTable sqlstring = \connstring = _ With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range(\ .Refresh End 请 参 阅

QueryTables成员 (Excel)

由QueryTable对象组成的集合。 方法 名称 add Item 属性 名称 说明 当使用不指定对象识别符的情况下，此属性将返回一个Application 对象，表示 Microsoft Excel 应用程序。如果使用对象识别符，本属性返回一个代表指定对象（可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序）创建者的Application对象。只读的。 返回long 类型的值，该值代表集合中对象的数目。 返回一个 32 位整数，它指示在其中创建此对象的应用程序。只读的long 类型的值。 返回指定对象的父对象。只读的。 说明 新建一个查询表。 从集合中返回一个对象。 Application Count Creator Parent QueryTables.Application属性 (Excel)

当使用不指定对象识别符的情况下，此属性将返回一个Application 对象，表示 Microsoft Excel 应用程序。如果使用对象识别符，本属性返回一个代表指定对象（可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序）创建者的Application对象。只读的。

语法

表达式.Application

表达式一个表示查询表对象的变量。 示例 本示例 显 示一条有关 创 建 应 用程序的消息。 myObject 的 VBA Set myObject = If myObject.Application.Value = \MsgBox \ Else MsgBox \ End 请 参 阅

QueryTables.Count属性 (Excel)

返回long 类型的值，该值代表集合中对象的数目。 语法

表达式 .Count

表达式一个表示查询表对象的变量。 请参阅

QueryTables.Creator属性 (Excel)

返回一个 32 位整数，它指示在其中创建此对象的应用程序。只读的long 类型的值。 语法

表达式 .Creator

表达式一个表示查询表对象的变量。 注解

如果该对象是在 Microsoft Excel 中创建的，则此属性返回字符串 XCEL，它等同于十六进制的数字 5843454C。Creator属性是为 Macintosh 上的 Microsoft Excel 设计的，在Macintosh 上，每个应用程序都具有一个四字符的创建者代码。例如，Microsoft Excel 的创建者代码为 XCEL。

请参阅

QueryTables.Parent属性 (Excel)

返回指定对象的父对象。只读的。 语法

表达式 .Parent

表达式一个表示查询表对象的变量。 请参阅

方法

QueryTables.Add方法 (Excel)

新建一个查询表。 语法

表达式。Add(连接，目标Sql）

表达式一个表示查询表对象的变量。 参数

必 需/ 可数据类型 说明 选 必需 Variant 查询表的数据源。可以是下列项之一： 包含 OLE DB 或 ODBC 连接字符串的字符串。在 ODBC 连接字符串具有形式\连接字符串>\。 从该查询信息最初复制时，包括在连接字符串和 SQL 文本，但不是包括目标范围查询表对象。指定查询表对象将导致Sql参数被忽略。 ADO 或 DAO记录集对象。从 ADO 或 DAO 记录集中读取数据。查询表将被删除或更改该连接之前，Microsoft Excel 将保留该记录 集。不能编辑查询结果的表。 Web 查询。一个字符串，在窗体\；\，其中\；\是必需的但不是进行本地化而该字符串的其余部分将用于 Web 查询的 URL。 数据查找程序。“FINDER?<数据查找程序文件路径>”格式的字符串，其中“FINDER?”是必需的，但不能本地化。字符串的其余部分为数据查找程序文件（*.dqy或 *.iqy）的路径和名称。使用Add方法时将读取该文件；之后，对查询表的Connection 属性的调用将相应地返回以“ODBC”或“URL”开头的字符串。 文本文件。窗体中的\文本?<文本的文件路径和名称>\，其中文本是必需的但不是进行本地化字符串。 查询表目标区域（查询结果表放置的区域）左上角中的单元格。目标区域必须在工作表中包含表达式所指定的查询表对象。 在 ODBC 数据源上运行的 SQL 查询字符串。当使用的数据源为 ODBC 数据源时，该参数可选（如果不在此处指定该参数，则应该在查询表刷新之前使用查询表的Sql属性进行设置）。当将QueryTable对象、文本文件、ADO 或 DAO 名称 Connection Destination 必需 Range Sql 可选 Variant Recordset对象指定为数据源时，不能使用该参数。 返回值 一个代表新查询表的QueryTable对象。

注解直到调用Refresh 方法时，由该方法创建的查询不运行。

示例本示例创建基于 ADO 记录集的查询表。该示例将保留现有的列排序和筛选设置以及布局信息，以便向后兼容。VBA Dim cnnConnect As Dim rstRecordset As Set cnnConnect = New cnnConnect.Open \ \ Set rstRecordset = New rstRecordset.Open Source:=\ActiveConnection:=cnnConnect, _ CursorType:=adOpenDynamic, _ LockType:=adLockReadOnly, _ With .Name = \ .FieldNames = .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True

.AdjustColumnWidth = True .RefreshPeriod = 0

.PreserveColumnInfo = True

.Refresh BackgroundQuery:=False End With

本示例向新的查询表中导入固定的宽度文本文件。文本文件中的第一列是五个字符宽度，作为文本导入。第二列四个字符宽度，将跳过。该文本文件的剩余部分导入第三个列并对其应用常规格式。

VBA Set shFirstQtr = Set qtQtrResults = Connection := \ Destination :=shFirstQtr.Cells(1,1)) With qtQtrResults .TextFileParsingType = .TextFileFixedColumnWidths := .TextFileColumnDataTypes := Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) .Refresh End 此示例在活动工作表上新建查询表。VBA

sqlstring = \connstring = _ With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range(\ .Refresh End 请 参 阅

QueryTables.Item方法 (Excel)

从集合中返回一个对象。 语法

表达式。Item（索引）

表达式一个表示查询表对象的变量。 参数 名称 Index 必需/可选 必需 数据类型 Variant 说明 对象的名称或索引号。 返回值 包含在集合中的一个QueryTable对象。 示例 本示例 对查询 表 进 行 设 置，以便 查询 表右 侧 的公式在每次刷新 时 都可以 进 行自 动 更新。

VBA Sheets(\请 参 阅

本文来源：https://www.bwwdw.com/article/261a.html