Excel数据导入导DataTable 方法总结

时间 2019-12-18

标签 excel 数据导入 datatable 方法总结栏目 Microsoft Office 繁體版

原文原文链接

经常使用方法一：ADO （ActiveX Data Objects ）的方法

Excel其实也是一种数据库，既然是数据库，就能够用通常的操做数据库的方法来作处理。

         /// <summary>
        /// 包含表头的链接
        /// </summary>
        private const string EXCELCONNECTIN = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=YES;IMEX=1;';";

        /// <summary>
        /// 不包含表头的链接
        /// </summary>
        private const string EXCELCONNECTINNOHDR = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=NO;IMEX=1;';";

使用这种方法时，曾经遇到过Excel的某列前面部分是数字，后面部分是字符。经过这种方法导入的时候发现后面字符部分的数据并无导入。还有，使用“不包含表头的链接”时，在Excel中某一行是列名行（列名通常是字符），而该列的值如果数字或日期等，导入DataTable时，列名没法导入。调试后发现，导入的时候，系统会根据Excel里面的内容为DataTable的列设置类型。前面是数字，这一列就是整型的了，后面的字符固然导不进去了。

IMEX是用来告诉驱动程序使用Excel文件的模式，其值有0、一、2三种，分别表明导出、导入、混合模式。当咱们设置IMEX＝1时将强制混合数据转换为文本，但仅仅这种设置并不可靠，IMEX＝1只确保在某列前8行数据至少有一个是文本项的时候才起做用，它只是把查找前8行数据中数据类型占优选择的行为做了略微的改变。例如某列前8行数据全为纯数字，那么它仍然以数字类型做为该列的数据类型，随后行里的含有文本的数据仍然变空。
另外一个改进的措施是IMEX＝1与注册表值TypeGue***ows配合使用，TypeGue***ows 值决定了ISAM 驱动程序从前几条数据采样肯定数据类型，默认为“8”。能够经过修改“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Excel”下的该注册表值来更改采样行数。可是这种改进仍是没有根本上解决问题，即便咱们把IMEX设为“1”， TypeGue***ows设得再大，例如1000，假设数据表有1001行，某列前1000行全为纯数字，该列的第1001行又是一个文本，ISAM驱动的这种机制仍是让这列的数据变成空。

方法一的官方解释：

http://support.microsoft.com/default.aspx?scid=kb;zh-cn;257819

如何在 Visual Basic 或 VBA 中使用 ADO 来处理 Excel 数据

简介

Microsoft Excel 工做表中的行和列与数据库中的行和列很是类似。只要用户记住 Microsoft Excel 不是关系型数据库管理系统，并认识到这一事实所带来的限制，在许多状况下均可以利用 Excel 及其工具来存储和分析数据。

Microsoft ActiveX Data Objects 让咱们能够将 Excel 工做簿看作和数据库同样。本文经过如下几节来讨论如何实现这一点：

使用 ADO 链接到 Excel

使用 ADO 检索和编辑 Excel 数据

从 Excel 检索数据源结构（元数据）

注意：本文中的测试是使用 Microsoft Data Access Components (MDAC) 2.5 在装有 Visual Basic 6.0 Service Pack 3 和 Excel 2000 的 Microsoft Windows 2000 上执行的。对用户在使用不一样版本的 MDAC、Microsoft Windows、Visual Basic 或 Excel 时可能会观察到的不一样现象，本文可能未确认或讨论。

回到顶端

使用 ADO 链接到 Excel

ADO 使用 MDAC 中如下两个 OLE DB 提供程序中的任何一个均可以链接到 Excel 数据文件。

Microsoft Jet OLE DB Provider — 或 —
Microsoft OLE DB Provider for ODBC Drivers

如何使用 Microsoft Jet OLE DB Provider

Jet 提供程序只须要两条信息就能够链接到 Excel 数据源：路径（包括文件名），和 Excel 文件版本。

Jet 提供程序使用链接字符串

 
   
   Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
	.Provider = "Microsoft.Jet.OLEDB.4.0"
	.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" & _
"Extended Properties=Excel 8.0;"
	.Open
End With

提供程序版本：必须使用 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驱动程序。若是指定了 Jet 3.51 提供程序，在运行时会出现如下错误信息：

Couldn't find installable ISAM.

Excel 版本：对于 Excel 95 工做簿（Excel 版本 7.0），应指定 Excel 5.0；对于 Excel 9七、Excel 2000 或 Excel 2002 (XP) 工做簿（Excel 版本 8.0、9.0 和 10.0），应指定 Excel 8.0 版本。

使用“数据连接属性”对话框的 Jet 提供程序

若是在应用程序中使用“ADO 数据控件”或“数据环境”，就会出现数据连接属性对话框来收集必要的链接设置。

在提供程序选项卡上，选择 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驱动程序。若是指定了 Jet 3.51 提供程序，在运行时会出现如下错误信息：

Couldn't find installable ISAM.
在链接选项卡上，浏览到您的工做簿文件。忽略“用户 ID”和“密码”项，由于这些不适用于 Excel 链接。（没法打开受密码保护的 Excel 文件做为数据源。本文后面有关于此主题的详细信息。）
在全部选项卡上，从列表中选择扩展属性，而后单击编辑值。输入 Excel 8.0;，用分号 (;) 将其与任何其余已有的项分隔。若是忽略此步骤，测试链接时将出现一条错误信息。这是由于，若是不另行指定，Jet 提供程序指望 Microsoft Access 数据库。
返回到链接选项卡，并单击 测试链接。将出现一个消息框，通知您测试已成功完成。

其余 Jet 提供程序链接设置

列标题：默认状况下，系统认为 Excel 数据源的第一行包含可用做字段名的列标题。若是不是这种状况，则必须将该设置关闭，不然，第一行数据将会“消失”，而被用做字段名称。这可经过向链接字符串的扩展属性添加可选的 HDR= 设置来完成。默认状况下（无需指定）是 HDR=Yes。若是没有列标题，则须要指定 HDR=No；提供程序将字段命名为 F一、F2 等等。由于扩展属性字符串如今包含了多个值，因此各值必须用双引号括起来，再加一对双引号，让 Visual Basic 将第一层引号中的内容看成字面值，以下例所示（为便于看清楚，添加了额外的空格）。

 
   
   .ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" & _
"Extended Properties=" " Excel 8.0; HDR=No;" " "

使用 Microsoft OLE DB Provider for ODBC Drivers

ODBC 驱动程序的提供程序（本文为简便起见将其称为“ODBC 提供程序”）也只须要两条信息就能够链接到 Excel 数据源：驱动程序名，以及工做簿的路径和文件名。

重要说明：Excel 的 ODBC 链接默认为只读。ADO 记录集 LockType 属性设置不会覆盖此链接级别的设置。若是想编辑数据，则必须将链接字符串或 DSN 配置中的 ReadOnly 设置为 False。不然，将出现如下错误信息：

Operation must use an updateable query.

使用没有 DSN 的链接字符串的 ODBC 提供程序

 
   
   Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
	.Provider = "MSDASQL"
	.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=C:\MyFolder\MyWorkbook.xls; ReadOnly=False;"
	.Open
End With

使用带有 DSN 的链接字符串的 ODBC 提供程序

 
   
   Dim cn as ADODB.Connection
Set cn = New ADODB.Connection
With cn
	.Provider = "MSDASQL"
	.ConnectionString = "DSN=MyExcelDSN;"
	.Open
End With

使用“数据连接属性”对话框的 ODBC 提供程序

若是在应用程序中使用“ADO 数据控件”或“数据环境”，就会出现数据连接属性对话框来收集必要的链接设置。

在提供程序选项卡上，选择 Microsoft OLE DB Provider for ODBC Drivers。
在链接选项卡上，选择想使用的现有 DSN，或选择使用链接字符串。这将打开标准 DSN 配置对话框，收集必需的链接设置。若是须要，请不要忘记取消选择默认只读设置，如上文所述。
返回链接选项卡，而后单击测试链接。将出现一个消息框，通知您测试已成功完成。

其余 ODBC 提供程序链接设置

列标题：默认状况下，系统认为 Excel 数据源的第一行包含可用做字段名的列标题。若是不是这种状况，则必须将该设置关闭，不然，第一行数据将会“消失”，而被用做字段名称。这可经过向链接字符串添加可选的 FirstRowHasNames= 设置来完成。默认状况下（无需指定）为 FirstRowHasNames=1，其中 1 = True。若是没有列标题，则须要指定 FirstRowHasNames=0，其中 0 = False；驱动程序将字段命名为 F一、F2 等等。DSN 配置对话框中没有此选项。

不过，因为 ODBC 驱动程序中存在错误，目前指定 FirstRowHasNames 设置不起做用。换句话说，Excel ODBC 驱动程序（MDAC 2.1 和更高版本）始终把指定数据源中的第一行做为字段名。有关列标题错误的其余信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

288343 (http://support.microsoft.com/kb/288343/ ) BUG：Excel ODBC 驱动程序忽略 FirstRowHasNames 或 Header 设置

要扫描的行数：Excel 不会像关系数据库那样为 ADO 提供有关其数据的详细架构信息。所以，驱动程序必须至少扫描几行现有数据，才能有根据地猜想各列的数据类型。“要扫描的行数”的默认值为八 (8) 行。能够指定从一 (1) 行到十六 (16) 行的整数值，或指定零 (0)，扫描全部现有行。这可经过向链接字符串添加可选的 MaxScanRows= 设置，或在 DSN 配置对话框中更改要扫描的行数设置来完成。

可是，因为 ODBC 驱动程序中存在一个错误，因此目前指定“要扫描的行数”(MaxScanRows) 设置不起做用。换句话说，Excel ODBC 驱动程序（MDAC 2.1 和更高版本）始终扫描指定数据源中的前 8 行，以肯定各列的数据类型。

有关“要扫描的行数”错误的其余信息，包括一个简单的替代方法，请单击下面的文章编号，查看 Microsoft 知识库中相应的文章：

189897 (http://support.microsoft.com/kb/189897/ ) XL97：使用 Excel ODBC 驱动程序数据截短到 255 个字符

其余设置：若是是经过使用数据连接属性对话框来构造链接字符串的，那么您可能会注意到一些其余的扩展属性设置添加到了链接字符串中，而这些设置不必定有用，如：

 
   
   ... DefaultDir=C:\WorkbookPath;DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;PageTimeout=5;

Visual Basic 编辑器中的“Collating Sequence”（排序顺序）错误信息

使用某些版本的 MDAC 时，当您的程序在设计时第一次链接到 Excel 数据源时，Visual Basic 设计环境中将出现如下错误信息：

Selected collating sequence not supported by the operating system.

此信息仅出如今 IDE 中，而不会出如今编译好的程序中。有关其余信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

246167 (http://support.microsoft.com/kb/246167/ ) PRB：首次在 Excel XLS 中打开 ADODB 记录集时出现排序顺序错误

使用这两种 OLE DB 提供程序时都应考虑的问题

混用数据类型时应注意的事项

如上文所述，ADO 必须猜想 Excel 工做表或范围中各列的数据类型。（这不受 Excel 单元格格式设置的影响。）若是同一列中既有数字值，也有文本值，会出现严重的问题。Jet 和 ODBC 提供程序将返回占多数的类型的数据，但对于占少数的数据类型，则会返回 NULL（空）值。若是该列中两种类型数据的数量相等，提供程序将优先选择数字型数据，放弃文本型数据。

例如：

在被扫描的八 (8) 行中，若是该列包含五 (5) 个数字值和三 (3) 个文本值，则提供程序将返回五 (5) 个数字和三 (3) 个空值。
在被扫描的八 (8) 行中，若是该列包含三 (3) 个数字值和五 (5) 个文本值，则提供程序将返回三 (3) 个空值和五 (5) 个文本值。
在被扫描的八 (8) 行中，若是该列包含四 (4) 个数字值和四 (4) 个文本值，则提供程序将返回四 (4) 个数字和四 (4) 个空值。

所以，若是列中包含不一样类型的值，惟一的解决方法是将该列中的数字值存储为文本，而后在须要时使用 Visual Basic VAL 函数或同等功能的函数将其还原为数字。

做为解决只读数据问题的一种替代方法，可在链接字符串的“扩展属性”部分中使用“IMEX=1”这一设置来启用导入模式。这可强制执行 ImportMixedTypes=Text 注册表设置。但在此模式下，执行更新操做时可能会出现意外的结果。有关此设置的其余信息，请单击下面的文章编号，查看 Microsoft 知识库中相应的文章：

194124 (http://support.microsoft.com/kb/194124/ ) PRB：使用 DAO OpenRecordset 时 Excel 返回值为 NULL

没法打开受密码保护的工做簿

若是您的 Excel 工做簿受密码保护，即便在链接设置中提供了正确的密码，也没法打开它以访问其数据，除非已在 Microsoft Excel 应用程序中打开了该工做簿文件。若是您尝试这样作，将出现如下错误信息：

Could not decrypt file.

有关其余信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

211378 (http://support.microsoft.com/kb/211378/ ) XL2000：访问受密码保护的文件时，出现“Could Not Decrypt File”（没法解密文件）错误

回到顶端

使用 ADO 检索和编辑 Excel 数据

本节讨论两种处理 Excel 数据的方式：

如何选择数据 — 和 —
如何更改数据

如何选择数据

有几种选择数据的方法。您能够进行如下操做：

使用代码选择 Excel 数据。
使用 ADO 数据控件选择 Excel 数据。
使用数据环境命令选择 Excel 数据。

使用代码选择 Excel 数据

Excel 数据可能包含在工做簿中的如下一种对象内：

整张工做表。
工做表上的命名单元格区域。
工做表上的未命名单元格区域。

指定工做表

若要指定一张工做表做为记录源，请使用该工做表的名称，后面带有一个美圆字符，并用方括号将其括起。例如：

 
   
   	strQuery = "SELECT * FROM [Sheet1$]"

也可使用键盘上波形符 (~) 下的斜单引号字符 (`) 来分隔工做表名称。例如：

 
   
   	strQuery = "SELECT * FROM `Sheet1$`"

Microsoft 建议使用方括号，这是用于表示未知数据库对象名的标准约定。

若是将美圆符号和方括号所有省略，或只省略美圆符号，将出现如下错误信息：

... the Jet database engine could not find the specified object

若是使用美圆符号而忽略了方括号，将会看到如下错误信息：

Syntax error in FROM clause.

若是您尝试使用普通单引号，将出现如下错误信息：

Syntax error in query.Incomplete query clause.

指定命名区域

若要指定命名的单元格区域做为记录源，只需使用定义的名称。例如：

 
   
   	strQuery = "SELECT * FROM MyRange"

指定未命名区域

若要指定未命名的单元格区域做为记录源，请在工做表名的后面加上用标准 Excel 行/列表示法表示的区域，并用方括号将其括起。例如：

 
   
   	strQuery = "SELECT * FROM [Sheet1$A1:B10]"

指定工做表时应注意的事项：提供程序认为数据表从指定工做表上最左上方的非空单元格开始。换句话说，数据表能够从第 3 行，C 列开始，这没有问题。但在这种状况下，举个例子来讲，就不能在数据左上方的 A1 单元格中键入工做表标题。

指定区域时应注意的事项：指定工做表做为记录源时，提供程序将新记录添加到工做表中现有记录的下面（若是有可用空间）。指定区域（命名区域或未命名区域）时，Jet 也将新记录添加到区域中现有记录的下面（若是有可用空间）。可是，若是对原区域从新执行查询，则获得的记录集不包含新添加到该区域外的记录。

使用 2.5 版以前的 MDAC 时，若是指定了命名区域，则没法将新记录添加到该区域定义的界限以外，不然将出现如下错误信息：

Cannot expand named range.

使用 ADO 数据控件选择 Excel 数据

在 ADODC 属性对话框的常规选项卡上指定 Excel 数据源的链接设置后，单击记录源选项卡。若是选择的 CommandType 为 adCmdText，则可使用上文介绍的语法在命令文本对话框中输入一个 SELECT 查询。若是选择的 CommandType 为 adCmdTable，并且使用的是 Jet 提供程序，所选工做簿中的可用命名区域和工做表的名称都会显示在下拉列表中，命名区域排在前面。

此对话框会正确地在工做表名称后面加上美圆符号，但不会添加必要的方括号。结果，若是只选择工做表名称并单击肯定，则稍后可能会收到如下错误信息：

Syntax error in FROM clause.

您必需手动在工做表名称的先后加上方括号。（此组合框容许进行编辑。）若是使用的是 ODBC 提供程序，则在此下拉列表中只能看到命名区域。可是，能够手动输入带有正确分隔符的工做表名称。

使用数据环境命令选择 Excel 数据

设置完 Excel 数据源的数据环境链接后，建立一个新的 Command 对象。若是选择的数据源为 SQL 语句，则可使用前面介绍的语法在文本框中输入一个查询。若是选择的数据源为数据库对象，请在第一个下拉列表中选择表，若是您使用的是 Jet 提供程序，所选工做簿中的可用命名区域和工做表名称都会显示在该下拉列表中，命名区域排在前面。（从该位置选择工做表名称时，不须要像在使用 ADO 数据控件时那样在工做表名称的先后加上方括号。)若是使用的是 ODBC 提供程序，则在此下拉列表中只能看到命名区域。可是，能够手动输入工做表名称。

如何更改 Excel 数据：编辑、添加和删除

编辑

可使用普通 ADO 方法来编辑 Excel 数据。对应于 Excel 工做表中包含 Excel 公式（以“=”开始）的单元格的记录集字段是只读的，不能对其进行编辑。记住 Excel 的 ODBC 链接默认是只读的，除非在链接设置中另行指定。请参见上文中的“使用 Microsoft OLE DB Provider for ODBC Drivers”一节。

添加

若是有可用空间，能够将记录添加到 Excel 记录源中。可是，若是将新记录添加到了原来指定的区域以外，那么在对原来指定的区域从新进行查询时，将看不到这些记录。请参见上文中“指定区域时应注意的事项”一节。

在某些情形中，使用 ADO Recordset 对象的 AddNew 和 Update 方法向 Excel 表插入新数据行时，ADO 可能会将数据值插入错误的列。有关其余信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

314763 (http://support.microsoft.com/kb/314763/ ) FIX：ADO 将数据插入 Excel 中错误的列

删除

删除 Excel 数据时，受到的限制要比从关系数据源中删除数据时更多。在关系数据库中，“行”除了表示一条“记录”外没有其余意义；但在 Excel 工做表中却不一样。能够删除字段（单元格）中的值。但不能：

一次删除一整条记录，不然将出现如下错误信息：

Deleting data in a linked table is not supported by this ISAM.

只能经过分别清空各个字段的内容来删除一条记录。
删除包含 Excel 公式的单元格中的值，不然将出现如下错误信息：

Operation is not allowed in this context.
虽然电子表格中已被删除的数据原来所在的行如今是空行，但没法将其删除，并且记录集将继续显示对应于这些空行的空记录。

使用 ADO 编辑 Excel 数据时应注意的事项：使用 ADO 在 Excel 中插入文本数据时，文本值前面带有一个单引号。这在后面处理新数据时可能会致使问题。

回到顶端

从 Excel 检索数据源结构（元数据）

使用 ADO 能够检索有关 Excel 数据源（表和字段）的结构的数据。虽然使用两种 OLE DB 提供程序时至少都返回相同数量（不多）字段的有用信息，但结果在二者之间仍有细微差异。使用 ADO Connection 对象的 OpenSchema 方法可检索此元数据，该方法返回一个 ADO Recordset 对象。也可使用更强大的 Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 库来检索元数据。然而，对于 Excel 数据源，“表”既能够是工做表也能够是命名区域，而“字段”则是几种有限的通常数据类型之一，因此这一附加的功能没有什么用处。

查询表信息

在关系数据库提供的各类对象中（表、视图、存储过程，等等），Excel 数据源仅提供至关于表的对象，它由指定工做簿中的工做表和定义的命名区域组成。命名区域被视为“表”，而工做表被视为“系统表”。除“table_type”属性外，检索不到太多有用的表信息。使用如下代码能够检索工做簿中可用表的列表：

 
   
   Set rs = cn.OpenSchema(adSchemaTables)

Jet 提供程序返回的记录集包含九 (9) 个字段，但其中只有四 (4) 个字段有数据：

table_name
table_type（“表”或“系统表”）
date_created
date_modified

对于一个给定的表，两个日期字段始终显示相同的值，该值为“最后修改日期”。换句话说，“date_created”不可靠。

ODBC 提供程序返回的记录集也包含九 (9) 个字段，但其中只有三 (3) 个字段有数据：

table_catalog，该工做簿所在的文件夹。
table_name。
table_type，如上文所述。

根据 ADO 文档，只检索工做表列表是能够作到的 — 例如经过向 OpenSchema 方法指定如下附加标准：

 
   
   Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "System Table"))

但遗憾的是，对于 Excel 数据源，若是使用的 MDAC 版本高于 2.0，不管使用哪一种提供程序此方法都不行。

查询字段信息

Excel 数据源中的每一个字段（列）都属于如下数据类型之一：

数字（ADO 数据类型 5，adDouble）
货币（ADO 数据类型 6，adCurrency）
逻辑或布尔值（ADO 数据类型 11，adBoolean）
日期（使用 Jet 时，为 ADO 数据类型 7，adDate；使用 ODBC 时为数据类型 135，adDBTimestamp）
文本（一种 ADO ad...Char 类型，例如，202，adVarChar；200，adVarWChar，或类似类型）

对于数字列，返回的 numeric_precision 始终为 15（是 Excel 中的最大精度）；对于文本列，返回的 character_maximum_length 始终为 255（是 Excel 列中文本的最大显示宽度，但不是最大长度）。除了 data_type 属性以外，得不到多少有用的字段信息。使用如下代码能够检索表中可用字段的列表：

 
   
   Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, "TableName", Empty))

Jet 提供程序返回的记录集包含 28 个字段。对于数字字段，其中八 (8) 个有数据；对于文本字段，其中九 (9) 个有数据。有用的字段极可能是：

table_name
column_name
ordinal_position
data_type

ODBC 提供程序返回的记录集包含 29 个字段。对于数字字段，其中十 (10) 个有数据；对于文本字段，其中 11 个有数据。有用的字段与上文所述相同。

枚举表和字段及其属性

可使用 Visual Basic 代码（以下例所示）来枚举 Excel 数据源中的表和列，以及有关各个表和列的可用信息。本示例将其结果输出到同一窗体上的一个列表框 List1。

 
   
   Dim cn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim intTblCnt As Integer, intTblFlds As Integer
Dim strTbl As String
Dim rsC As ADODB.Recordset
Dim intColCnt As Integer, intColFlds As Integer
Dim strCol As String
Dim t As Integer, c As Integer, f As Integer
Set cn = New ADODB.Connection
With cn
	.Provider = "Microsoft.Jet.OLEDB.4.0"
	.ConnectionString = "Data Source=" & App.Path & _
"\ExcelSrc.xls;Extended Properties=Excel 8.0;"
	'.Provider = "MSDASQL"
	'.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & App.Path & "\ExcelSrc.xls; "
	.CursorLocation = adUseClient
	.Open
End With
Set rsT = cn.OpenSchema(adSchemaTables)
intTblCnt = rsT.RecordCount
intTblFlds = rsT.Fields.Count
List1.AddItem "Tables:	" & intTblCnt
List1.AddItem "--------------------"
For t = 1 To intTblCnt
	strTbl = rsT.Fields("TABLE_NAME").Value
	List1.AddItem vbTab & "Table #" & t & ":	" & strTbl
	List1.AddItem vbTab & "--------------------"
	For f = 0 To intTblFlds - 1
		List1.AddItem vbTab & rsT.Fields(f).Name & _
vbTab & rsT.Fields(f).Value
	Next
	List1.AddItem "--------------------"
	Set rsC = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, strTbl, Empty))
	intColCnt = rsC.RecordCount
	intColFlds = rsC.Fields.Count
	For c = 1 To intColCnt
		strCol = rsC.Fields("COLUMN_NAME").Value
		List1.AddItem vbTab & vbTab & "Column #" & c & ": " & strCol
		List1.AddItem vbTab & vbTab & "--------------------"
		For f = 0 To intColFlds - 1
			List1.AddItem vbTab & vbTab & rsC.Fields(f).Name & _
vbTab & rsC.Fields(f).Value
		Next
		List1.AddItem vbTab & vbTab & "--------------------"
		rsC.MoveNext
		Next
		rsC.Close
		List1.AddItem "--------------------"
		rsT.MoveNext
Next
rsT.Close
cn.Close

使用数据视图窗口

在Visual Basic 的“数据视图”窗口中建立 Excel 数据源的数据连接时，“数据视图”中显示的信息与上文所述能够经过编程方式检索到的信息相同。特别应注意 Jet 提供程序将工做表和命名区域都列在“表”下，而 ODBC 提供程序仅在“表”下显示命名区域。若是使用的是 ODBC 提供程序，并且未定义任何命名区域，“表”列表中将不显示任何内容。

Excel 的限制

使用 Excel 做为数据源受限于 Excel 工做簿和工做表的内部限制。这包括但不限于如下事件：

工做表大小：65,536 行，256 列
单元格内容（文本）：32,767 个字符
工做簿中的工做表数：受可用内存限制
工做簿中的名称数：受可用内存限制

回到顶端

参考

有关如何在 Visual Basic .NET 中使用 ADO.NET 检索和修改 Excel 工做簿中的记录的更多信息，请单击下面的文章编号，查看 Micro...

有关如何在 Visual Basic .NET 中使用 ADO.NET 检索和修改 Excel 工做簿中的记录的更多信息，请单击下面的文章编号，查看 Microsoft 知识库中相应的文章：

316934 (http://support.microsoft.com/kb/316934/ ) 如何在 Visual Basic .NET 中使用 ADO.NET 检索和修改 Excel 工做簿中的记录

有关其余信息，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：

295646 (http://support.microsoft.com/kb/295646/ ) 如何使用 ADO 将数据从 ADO 数据源传输到 Excel

246335 (http://support.microsoft.com/kb/246335/ ) 如何使用“自动化”功能将数据从 ADO 记录集传输到 Excel

247412 (http://support.microsoft.com/kb/247412/ ) INFO：将数据从 Visual Basic 传输到 Excel 的方法

278973 (http://support.microsoft.com/kb/278973/ ) SAMPLE：ExcelADO 演示如何在 Excel 工做簿中使用 ADO 来读写数据

318373 (http://support.microsoft.com/kb/318373/ ) 如何使用 Visual Basic .NET 中的 GetOleDbSchemaTable 方法从 Excel 中检索元数据

有关更多信息，请参阅如下 Microsoft 培训和认证教程：

Microsoft Corporation1301 Mastering Office 2000 Solution Development（1301 熟练掌握 Office 2000 解决方案开发） (http://www.microsoft.com/traincert/syllabi/1301Afinal.asp)

回到顶端