QueryTables对象参考[EXCEL].docx

QueryTables对象 ExcelQueryTable 对象的集合。注解查询表中的每个对象表示从外部数据源返回的数据中生成一个工作表表。示例使用 QueryTables 属性可返回 QueryTables 集合。下例显示活动工作表上查询表的数目。使用Add 翻（机器译）方法来创建新的查询表，并将其添加到查询表的集合。下面的示例创建一个新的查询表。请参阅MsgBox ActiveSheet.QueryTables.CountDim qt As QueryTable sqlstring = select 96Sales.totals from 96Sales where profit 5 connstring = _ ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales With ActiveSheet.QueryTables.Add(Connection:=connstring, _ Destination:=Range(B1), Sql:=sqlstring) .Refresh End WithVBAVBAQueryTables成员 (Excel)由 QueryTable 对象组成的集合。方法名称说明add新建一个查询表。Item 从集合中返回一个对象。属性名称说明Application当使用不指定对象识别符的情况下，此属性将返回一个Application 对象，表示 Microsoft Excel 应用程序。如果使用对象识别符，本属性返回一个代表指定对象 （可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序） 创建者的Application对象。只读的。Count 返回long 类型的值，该值代表集合中对象的数目。Creator 返回一个 32 位整数，它指示在其中创建此对象的应用程序。只读的long 类型的值。Parent 返回指定对象的父对象。只读的。QueryTables.Application 属性 (Excel)当使用不指定对象识别符的情况下，此属性将返回一个Application 对象，表示 Microsoft Excel 应用程序。如果使用对象识别符，本属性返回一个代表指定对象 （可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序） 创建者的Application对象。只读的。语法表达式 .Application表达式 一个表示查询表对象的变量。示例本示例显示一条有关创建 myObject 的应用程序的消息。请参阅Set myObject = ActiveWorkbook If myObject.Application.Value = Microsoft Excel Then MsgBox This is an Excel Application object. Else MsgBox This is not an Excel Application object. End IfVBAQueryTables.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）表达式 一个表示查询表对象的变量。参数名称必需/ 可选数据类型说明Connection必需Variant查询表的数据源。可以是下列项之一：包含 OLE DB 或 ODBC 连接字符串的字符串。在 ODBC 连接字符串具有形式ODBC 。从该查询信息最初复制时，包括在连接字符串和 SQL 文本，但不是包括目标范围查询表对象。指定查询表对象将导致Sql参数被忽略。ADO 或 DAO记录集对象。从 ADO 或 DAO 记录集中读取数据。查询表将被删除或更改该连接之前，Microsoft Excel 将保留该记录集。不能编辑查询结果的表。Web 查询。一个字符串，在窗体URL ； ，其中URL ；是必需的但不是进行本地化而该字符串的其余部分将用于 Web 查询的URL。数据查找程序。“FINDER”格式的字符串，其中“FINDER”是必需的，但不能本地化。字符串的其余部分为数据查找程序文件（*.dqy 或 *.iqy）的路径和名称。使用 Add 方法时将读取该文件；之后，对查询表的 Connection 属性的调用将相应地返回以“ODBC”或“URL”开头的字符串。文本文件。窗体中的文本 ，其中文本是必需的但不是进行本地化字符串。Destination必需Range查询表目标区域 （查询结果表放置的区域） 左上角中的单元格。目标区域必须在工作表中包含表达式所指定的查询表对象。Sql可选Variant在 ODBC 数据源上运行的 SQL 查询字符串。当使用的数据源为 ODBC 数据源时，该参数可选（如果不在此处指定该参数，则应该在查询表刷新之前使用查询表的 Sql 属性进行设置）。当将 QueryTable 对象、文本文件、ADO 或 DAO Recordset 对象指定为数据源时，不能使用该参数。返回值一个代表新查询表的 QueryTable 对象。注解直到调用Refresh 方法时，由该方法创建的查询不运行。示例本示例创建基于 ADO 记录集的查询表。该示例将保留现有的列排序和筛选设置以及布局信息，以便向后兼容。Dim cnnConnect As ADODB.Connection Dim rstRecordset As ADODB.Recordset Set cnnConnect = New ADODB.Connection cnnConnect.Open Provider=SQLOLEDB; & _ Data Source=srvdata; & _ User ID=testac;Password=4me2no; Set rstRecordset = New ADODB.Recordset rstRecordset.Open _ Source:=Select Name, Quantity, Price From Products, _ ActiveConnection:=cnnConnect, _ CursorType:=adOpenDynamic, _ LockType:=adLockReadOnly, _ Options:=adCmdText With ActiveSheet.QueryTables.Add( _ Connection:=rstRecordset, _ Destination:=Range(A1) .Name = Contact List .FieldNames = True VBA .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本示例向新的查询表中导入固定的宽度文本文件。文本文件中的第一列是五个字符宽度，作为文本导入。第二列四个字符宽度，将跳过。该文本文件的剩余部分导入第三个列并对其应用常规格式。此示例在活动工作表上新建查询表。请参阅Set shFirstQtr = Workbooks(1).Worksheets(1) Set qtQtrResults = shFirstQtr.QueryTables.Add( _ Connection := TEXT;C:My Documents19980331.txt, Destination := shFirstQtr.Cells(1,1) With qtQtrResults .TextFileParsingType = xlFixedWidth .TextFileFixedColumnWidths := Array(5,4) .TextFileColumnDataTypes := _ Array(xlTextFormat, xlSkipColumn, xlGeneralFormat) .Refresh End Withsqlstring = select 96Sales.totals from 96Sales where profit 5 connstring = _ ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales With ActiveSheet.QueryTables.Add(Connection:=connstring, _ Destination:=Range(B1), Sql:=sqlstring) .Refresh End WithVBAVBAQueryTables.Item 方法