Question

想找个老师帮忙解释一下这段代码的意思和优缺点！

Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "准备就绪", vbInformation, "Yams"
End Sub

Private Sub Command1_Click()
ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"
End Sub

在网上找到的代码！但是我见短短的几行代码就已经能完成excel导入Access 了！有老师可以逐行解释下吗？还有他有什么优缺点？
还有就是当数据库里面已经有TestTable这个表之后就会出错！有什么方法可以解决呢？谢谢老师啦！
我想是如果检测到TestTable表存在就删掉再重新导入！应该怎么写呢？

Answer 1

这是用的DAO，在98年VB6出来的时候就过时了的一种技术，是VB5里面的东西。
毛病就是对新版本的Excel和Access都不支持。
建议使用ADODB对象。

追问

ADODB对象可以自己建立表！然后按照excel的第一行做为表头然后自动录入所有数据吗？
可以的话能教下我吗？

追答

可以，留个QQ我传你个代码

追问

59141731
谢谢你的帮助！实在不是我不想动脑！但是要在节前做出来！所以麻烦您了！

追答

加了