module2.bas

来自「主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module2"
Public 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 "当前EXCEL工作表已成功导入当前数据库。", vbInformation, "成功了"
End Sub