如何用access从excel指定行开始导入?

kenccc

有很多个格式相同的excel表（样表见附件），想导入到access一张表中，由于excel表前两行是标题，如何实现只导入每张表中第三行以后的数据？
本想把excel表头逐个删掉再导入，但数量实在太多（有几百个，而且每周都要导入），希望高人指导，能否用程序实现？拜谢了！

Henry D. Sy

可以直接使用excel表，不用导入

1. SELECT *
   
2. FROM [Excel 8.0;HDR=Yes;IMEX=1;Database=D:\样表.XLS].[Sheet1$A2:C5];
   

复制代码

Henry D. Sy

也可以导入，也就是追加
假设目标表为A

1. INSERT INTO A
   
2. SELECT *
   
3. FROM [Excel 8.0;HDR=Yes;IMEX=1;Database=D:\样表.XLS].[Sheet1$A2:C5];
   

复制代码

kenccc

感谢!
放到access中运行提示语法错误(代码全是红字),能否写得完整些,谢谢了!

kenccc

我是用窗体按钮的单击事件:
Private Sub Command0_Click()

INSERT INTO A
SELECT *
FROM [Excel 8.0;HDR=Yes;IMEX=1;Database=C:\Users\ken\Desktop\批量导入\样表.XLS].[Sheet1$A2:C5];

End Sub

kenccc

发现你提供的代码用于建立查询可以,但不知如何能写到vba代码里;
另外每个excel表不止3行数据(用$A2:C5只能导入3行),每个表的数据条数也不同,如何能完整导入?

kenccc

代码没有问题,是我弄错了,抱歉!
但第二个问题还是没有解决,即如何完整导入?

zhuyiwen

1. INSERT INTO A
   
2. SELECT *
   
3. FROM [Excel 8.0;HDR=Yes;IMEX=1;Database=C:\Users\ken\Desktop\批量导入\样表.XLS].[Sheet1$A2:C5];

复制代码

这是SQL语句。

在VBA中SQL语句只是字符串，你要这这样执行SQL语句

1. Private Sub Command0_Click()
   
2. Dim sql AS String
   
3. sql = _
   
4. "INSERT INTO A " & _
   
5. "SELECT * " & _
   
6. "FROM [Excel 8.0;HDR=Yes;IMEX=1;Database=C:\Users\ken\Desktop\批量导入\样表.XLS].[Sheet1$A2:C5];"
   
7. 
   
8. Docmd.RunSQL sql
   
9. 
   
10. End Sub

复制代码

Henry D. Sy

kenccc 发表于 2011-12-27 22:47
代码没有问题,是我弄错了,抱歉!
但第二个问题还是没有解决,即如何完整导入?

INSERT INTO A

SELECT *

FROM [Excel 8.0;HDR=Yes;IMEX=1;Database=D:\样表.XLS].[Sheet1$A2:C5];

看到语句中红色部分了吗，这就是让你设置导入的范围
a2：c5是导入区域的对角线

kenccc

发现写成[Sheet1$A2:C]，即不写对角线的行标，就可以导入全部内容了 ，谢谢版主！
以上方法实现了一张excel表的导入，如何用access的vba实现多张表的一次导入呢？