vb程序中一个导入命令按扭Command1如何将Excel中的数据导入到Access数据表中,请高手帮忙提供代码，谢谢

Answer 1

Private Sub Command1_Click()
Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb")
If Dir(App.Path & "\MyExcel.xls") <> "" Then Kill App.Path & "\MyExcel.xls"
dbs.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] FROM 表名"
dbs.Close
Set dbs = Nothing
End Sub

追问

运行不了，能不能写全一点，能够运行的

追答

我这里运行没问题