如何将excel文档连续导入到access中

[frank0142]

请教：

如何将excel连续导入access中：

例如：access文档名称是“成绩表”
我需要导入1月份成绩表（excel）到access“成绩表”中；
同时2月份需要导入2月份成绩表（excel）到access“成绩表”中。形成一张包含1、2月份的成绩的access“成绩表”

[frank0142]

网上这段代码一张access表只能一次性导入一个excel文档。我需要可以连续插入excel文档内容到access中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
End Sub

使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

[frank0142]

网上这段代码一张access表只能一次性导入一个excel文档。我需要可以连续插入excel文档内容到access中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
End Sub

使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

[frank0142]

怎么没有人回复，很失望