如何在Access中编写代码将Excel文件自动倒入到Access中----急！！！！求教？？？？？

[tjwanda]

我建立了一个Access数据库，并设计了一个窗体，目的是通过Command按钮自动实现将Excel文件（该文件就一个表）倒入到Access数据库中，要求通过代码实现。
我利用 DoCmd.TransferDatabase , "ODBC", "ODBC;DSN=cangku", , "Excel表名称", "Access表名称"来实现，但系统提示不能使用ODBC来处理Microsoft 引擎，不只各位大虾有什么好办法-------------在线等待！！高分相送！！！

[changechange]

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "juan", "c:\d.xls", True,"sheet1"

[tjwanda]

谢谢任兄的指点，但我试过之后系统提示找不到---------sheet1,我将表的名称已经改为sheet1,另外你写的-----"juan"-------是不是Access数据库的名称？？谢了！！！

[changechange]

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "access表的名字", "c:\d.xls", 是否有行标题,"工作表的名字"


TransferText 方法


在 Visual Basic 中，TransferText 方法执行 TransferText 操作。有关该操作及其参数如何使用的详细内容，请参阅该操作主题。

语法

DoCmd.TransferText [transfertype][, specificationname], tablename, filename[, hasfieldnames][, HTMLtablename][, codepage]

TransferText 方法具有以下参数：

参数 说明
transfertype 下列固有常量之一：
acExportDelim
acExportFixed
acExportHTML
acExportMerge
acImportDelim（默认值）
acImportFixed
acImportHTML
acLinkDelim
acLinkFixed
acLinkHTML
如果该参数空缺，将假设为默认常量 (acImportDelim)。
注意 可以将文本文件中的数据连接到 HTML 文件中，但此数据在 Microsoft Access 中是只读的。
在 Microsoft Access 项目 (.adp) 中仅支持 acImportDelim、acImportFixed、acExportDelim、acExportFixed 或 acExportMerge 转换类型。

specificationname 字符串表达式，指定当前数据库中已创建或保存的导入或导出规格的名称。
对于固定长度文本文件, 必须指定参数或使用 schema.ini 文件, 该文件必须保存在导入、链接或导出的文本文件的文件夹中。若要创建一个方案文件, 可使用文本导入/导出向导创建此文件。 对于带分隔符的文本文件和 Microsoft Word 邮件合并数据文件,可以空缺此参数以选定默认导入/导出规格。
tablename 字符串表达式，代表要向其中导入文本数据、从中导出文本数据或链接文本数据的 Microsoft Access 表的名称，或者要将其结果导出到文本文件的 Microsoft Access 查询的名称。
filename 字符串表达式，代表要从其中导入、从中导出或链接的文本文件的完整名称（包括路径）。
hasfieldnames 如果该参数为 True (-1)，在导入、导出或链接时，将使用文本文件中的第一行做为字段名。如果为 False (0)，则将文本文件中的第一行看成普通数据。如果该参数空缺，将假设为默认值 (False)。
对 Microsoft Word 邮件合并数据文件，该参数将被忽略，必须在文件第一行中包含字段名。
HTMLtablename 字符串表达式，代表要导入或链接的 HTML 文件中的表或列表的名称。除非 transfertype 参数设置为 acImportHTML 或 acLinkHTML，否则该参数将被忽略。如果该参数空缺，将导入或链接 HTML 文件中的第一个表或列表。
如果 HTML 文件中存在 <CAPTION> 标记的话，则 HTML 文件的表或列表名称取决于该标记指定的文本。如果没有 <CAPTION> 标记，则名称由 <TITLE> 标记指定的文本决定。Microsoft Access 通过给每个表或列表名称结尾添加一个数字，如“雇员1”和“雇员2”来区分它们。
codepage Long 类型的值，用于标识代码页的字符集。


说明

语法中的可选参数可以空缺，但是必须包含参数的逗号。如果位于末端的参数空缺，在指定的最后一个参数后面不需使用逗号。

注意 通过设置 Recordset 对象的 ActiveConnection 属性，也可使用 ActiveX 数据对象(ADO) 来创建链接 。

[changechange]

TransferSpreadsheet 方法


在 Visual Basic 中，TransferSpreadsheet 方法执行 TransferSpreadsheet 操作。有关该操作及其参数如何使用的详细内容，请参阅该操作主题。

语法

DoCmd.TransferSpreadsheet [transfertype][, spreadsheettype], tablename, filename[, hasfieldnames][, range]

TransferSpreadsheet 方法具有以下参数：

参数 说明
transfertype 下列固有常量之一：
acImport（默认值）
acExport
acLink
如果该参数空缺，将假设为默认常量 (acImport)。
spreadsheettype 下列固有常量或与之相等的数值设置之一：
0 acSpreadsheetTypeExcel3（默认值）
6 acSpreadsheetTypeExcel4
5 acSpreadsheetTypeExcel5
5 acSpreadsheetTypeExcel7
8 acSpreadsheetTypeExcel8
8 acSpreadsheetTypeExcel9
2 acSpreadsheetTypeLotusWK1
3 acSpreadsheetTypeLotusWK3
7 acSpreadsheetTypeLotusWK4
4 acSpreadsheetTypeLotusWJ2 — 仅日文版
注意 可以链接 Lotus 1-2-3 电子表格文件中的数据，但是这些数据在 Microsoft Access 中是只读的。也可以导入和链接 Lotus .WK4 文件，但是不能将 Microsoft Access 的数据导出为这种电子表格格式。使用该方法，Microsoft Access 也不支持从 Lotus .WKS 或 Microsoft Excel 2.0 版电子表格导入、导出或链接数据。
如果该参数空缺，将假设为默认常量 (acSpreadsheetTypeExcel8)。
tablename 字符串表达式，代表要向其中导入电子表格数据、从中导出电子表格数据或链接电子表格数据的 Microsoft Access 表的名称，或要将其结果导出到电子表格的 Microsoft Access 选择查询的名称。
filename 字符串表达式，包含要从其中导入、导出到或链接到的电子表格的名称与路径。
hasfieldnames 如果该参数为 True (-1)，在导入或链接时，使用电子表格中的第一行作为字段名。如果该参数为 False (0)，则将电子表格中的第一行处理成普通数据。如果该参数空缺，将假设为默认值 (False)。
当向电子表格中导出 Microsoft Access 表或选择查询数据时，不论在此参数中输入什么，字段名都将被插入到电子表格的第一行中。
range 字符串表达式，代表电子表格中的单元格范围或范围的名称。该参数只能用于导入。当其空缺时将导入完整的电子表格。
当将数据导出到电子表格中，必须让该参数空缺。如果输入了一个范围，导出将失败。


说明

语法中的可选参数可以空缺，但是必须包含参数的逗号。如果位于末端的参数空缺，在指定的最后一个参数后面不需使用逗号。

注意 通过使用 Recordset 对象的 ActiveConnection 属性，也可以使用 ActiveX 数据对象 (DAO) 来创建一个链接。