来自「VB的文本资料,需要时有帮助」· 代码 · 共 15 行

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

Private Sub Command1_Click()
    ExportExcelSheetToAccess "Sheet1", App.Path + "\操作系统.xls", "aaa", App.Path + "\操作系统.mdb"

End Sub