我在利用VB编程想把Excel表中的数据导入到Access数据库中，程序是照书上的，但是提示实时错误“424”“要求对象”？

Question

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\yuanziguangpushujuku.mdb;persist security info=false"
conn.Execute "select * into tmptable from[excel 8.0;database=" & cechushuju1.xls & "].[sheet1]"
conn.Execute "insert into yuanziguangpushujubiao(姓名,籍贯,性别,学历,面貌) select 姓名,籍贯,性别,学历,面貌 from tmptable"
conn.Execute "drop tabel tmptable"
Set conn = Nothing急用，能快点帮我解决一下吗？谢谢了

Answer 1

'在菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library
'在菜单：工程->引用 里面找 Microsoft EXCEL 11.0 Library

Answer 2

 Microsoft ActiveX Data Object 2.8 Library
 Microsoft EXCEL 11.0 Library
我提前都引用了，但是还是提示 提示实时错误“424”“要求对象”？
所以到不知道是什么问题了，跟临时中间数据表tmptable有没有关系啊？

Answer 3

从EXCEL导入ACCESS最好的方法还是使用access对象,而不是数据库方式:
首先工程添加access对象(就像引用excel对象一样)
Dim ACC As New Access.Application
ACC.OpenCurrentDatabase DBName '使用access对象打开目标数据库文件,如:c:\test.mdb
ACC.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Sheet1", DestinationName, True, "Source!" 
就这样,楼主自己修改一下参数,已适应你自己的excel页名称和数据库表名称,详细参数介绍请google

Answer 4

导出则是:
ACC.DoCmd.OutputTo acOutputTable, "Sheet3", acFormatXLS, DestinationName '从数据库导出到excel文件
ACC.CloseCurrentDatabase '关闭数据库
ACC.Quit '关闭对象
Set ACC = Nothing当然,你的电脑上得安装ACCESS