Office中国论坛/Access中国论坛

标题: excel表数据导入access数据库 更新其内容 [打印本页]

---

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

---

作者: yanghua1900363    时间: 2011-8-4 17:33
俺的级别不够 不能直接向红尘老师留言，所以只好放这里了!大家帮帮我！

---

作者: yanghua1900363    时间: 2011-8-6 18:47
问题已经解决 虽然麻烦了一点

---

作者: lzqlaj    时间: 2011-8-6 19:43
把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    时间: 2011-8-6 19:43
把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    时间: 2011-8-6 19:43


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

---

作者: yanghua1900363    时间: 2011-8-14 11:27
多谢Lzqlaj

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3