excel表数据导入access数据库 更新其内容

yanghua1900363

红尘老师你好！excel to access 通用数据导入 程序已经试用 非常好用再次谢过！ 另一个问题请你帮忙：通用导入程序只能实现向指定表中追加新的数据，请问怎么才能直接做到向指定表中更新数据。说白了，就是用excel 表中的数据导入同时更新access数据库表中特定字段的值。

yanghua1900363

俺的级别不够 不能直接向红尘老师留言，所以只好放这里了!大家帮帮我！

yanghua1900363

问题已经解决 虽然麻烦了一点

lzqlaj

把excel追加导入到access数据库
'1、sSheetName：要导出资料的资料表名称   (Sheet   name)，例如   Sheet1
'2、sExcelPath：要导出资料的   Excel   文件路径名称   (Workbook   path)，例如   C:\book1.xls
'3、sAccessTable：要导入的   Access   Table   名称，例如   TestTable
'4、sAccessDBPath：要导入的   Access   文件路径名称，例如   C:\Test.mdb
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
    'db.Execute ("Select * into [;database= " & sAccessDBPath & "]." & sAccessTable & " FROM [ " & sSheetName & "$]")
    db.Execute ("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & " select * from [" & sSheetName & "$]")
    db.Close
    Set db = Nothing
End Sub
http://club.excelhome.net/thread-745574-1-1.html

lzqlaj

把excel追加导入到access数据库
'1、sSheetName：要导出资料的资料表名称   (Sheet   name)，例如   Sheet1
'2、sExcelPath：要导出资料的   Excel   文件路径名称   (Workbook   path)，例如   C:\book1.xls
'3、sAccessTable：要导入的   Access   Table   名称，例如   TestTable
'4、sAccessDBPath：要导入的   Access   文件路径名称，例如   C:\Test.mdb
Private Sub ExportExcelSheetToAccess(sSheetName As String, sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
    'db.Execute ("Select * into [;database= " & sAccessDBPath & "]." & sAccessTable & " FROM [ " & sSheetName & "$]")
    db.Execute ("insert into [;database=" & sAccessDBPath & "]." & sAccessTable & " select * from [" & sSheetName & "$]")
    db.Close
    Set db = Nothing
End Sub
http://club.excelhome.net/thread-745574-1-1.html

lzqlaj

发重了，网速太慢，论坛时常打不开。

yanghua1900363

多谢Lzqlaj