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 "Table exported successfully.", vbInformation, "Yams"
End Sub
使用範例如下:將 C:\book1.xls 中的 Sheet1 匯入 C:\Test.mdb 成為 TestTable
Private Sub Command6_Click()
' conn.Execute "insert into [test] select * from [html export;database=e:\test].[test3.htm]"
conn.Execute "insert into [test] select * from [Excel 8.0;database=e:\test\test4.xls].[test4]"
Unload Me
End Sub