|
1) 直接导入: “文件”菜单-“获取外部数据”-"导入”。
a) 以新建表的方式导入，用默认第一行标题为字段名。
b) 以追加方式把记录导入现有表：现有表中不能有自动编号字段，否则导不成功，如，把供应商.xls导入现有的罗斯福数据库中，可以先删除表中“供应商ID”这个自动编号的字段，在核对xls文件中字段与供应商表中字段要求一致后，就可以导入数据。导入成功后再在表中添加回来自动编号这个字段。
2) 直接用sql语句导入: 建表并设置好字段属性，如空白的“供应商”表，准备把“供应商表格.xls”中“供应商”工作表中记录导入时，新建一个SQL查询语句，然后执行查询就可以追加记录到“供应商”表中：
INSERT INTO 供应商 SELECT * FROM [Excel 5.0;HDR=YES;DATABASE=F: \供应商表格.xls].供应商;
3) 用链接表: 当你只是要导入EXCEL数据到现有的“供应商”表中时，可以先链接供应商表格.xls文件(“文件”菜单-“获取外部数据”-“链接表”)，然后直接用sql语句来做：
INSERT INTO 供应商 SELECT 公司名称 AS 公司名称, 联系人姓名 AS 联系人姓名, 联系人职务 AS 联系人职务, 地址 AS 地址, 城市 AS 城市 FROM 供应商表格;
a) 追加查询:链接Excel,设置追加条件，如，从“供应商表格”链接表中只把“供应商”表中没有的记录追加到“供应商”表中：
方法一：INSERT INTO 供应商 SELECT 公司名称 AS 公司名称, 联系人姓名 AS 联系人姓名, 联系人职务 AS 联系人职务, 地址 AS 地址, 城市 AS 城市, 地区 AS 地区, 邮政编码 AS 邮政编码, 国家 AS 国家, 电话 AS 电话, 传真 AS 传真, 主页 AS 主页 FROM 供应商表格 WHERE 公司名称 not in (select 公司名称 from 供应商);
方法二：INSERT INTO 供应商 SELECT 供应商表格.* FROM 供应商表格 LEFT JOIN 供应商 ON 供应商.公司名称=供应商表格.公司名称 WHERE (((供应商.公司名称) is null));
4) 复制粘帖：在EXCEL中复制一条或多条记录，在表中选中整条空白记录后粘帖。前提：字段一一对应。 | 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2006-2-16 18:34
如下正确图
电子表格必须是二维数据表格，不能有合并的单元格、标题、脚注等，否则会产生错误，另外要注意字段名不能重复，例如有两个或多个“金额”名称 如上错误图。
还要说明即使电子表格的数据形式是正确的，在导入ACCESS时也要一步步按提示导入。
其他方法：采用VBA代码（实际上是宏代码）
一、
举个例子：
DoCmd.TransferSpreadsheet acImport, , "无锡库存", "D:\My Documents\库存明细表.xls", True, "A1:J25"
解释：
acimport 参数是导入的意思；
在acimport 后面和无锡库存的前面还有一个参数这里没有给出，不给出参数则默认为acSpreadsheetTypeExcel8或acSpreadsheetTypeExcel9 值就是当前EXCEL97或EXCEL2000版本
无锡库存 参数是指导入到ACCESS中的表名称；
D:\My Documents\库存明细表.xls 是指要导入的电子表格的带路径的全名；
TRUE 是指 导入时第一行做为字段名来导入；
A1：J25 是指 数据所在的单元格的范围；
注意一点 此代码导入时要求电子表格中只能允许一张Sheet表格，也就是Sheet1默认有效表格，其他则被忽略。
此方法的指定单元格的导入是灵活的特点！
二、
Private Sub Command0_Click()
DoCmd.SetWarnings False REM 屏蔽ACCESS的信息提示框
DoCmd.RunSQL "SELECT * INTO [无锡] FROM [Excel 5.0;HDR=YES;IMEX=2;DATABASE=D:\My Documents\库存明细表.xls].[无锡$]"
DoCmd.SetWarnings True REM 恢复ACCESS的信息提示框
End Sub
解释：SELECT INTO FROM 语句
无锡 是指导入到ACCESS后的表名称
DATABASE = 这后面是带路径的电子表格文件的全名
无锡$ 是指电子表格中的要导入到ACCESS的那张指定的表格即表名为“无锡”，$是必须加的字符。
此方法比较是编程中较方便常用的。
楼主