把EXCEL表导入ACCESS

Question

ExportExcelSheetToAccess "authors", "f:\authors.XLS", "TestTable", App.Path & "\db0.mdb"
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 8.0")
Call DB.Execute("select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")Z
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub

Answer 1

其中有几个要说明的是：
“authors”是excel的一个工作表的名称，
"testtable"是要生成的表的名称
如果在数据库中已经存在表的名称为testtable的时候会出错。
这个我在win2000，vb6.0下面测试通过。