VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何將 Excel 的文件导入 Access文件?
发表评论(0)作者:, 平台:, 阅读:12974, 日期:2000-04-02
主題: 如何將 Excel 的文件导入 Access文件?


來源:Yamini


资料整理:影子 VB爱好者乐园





下面我已將程序代码做成模块,只要导入必要之参数即可!


此一模块共有四个参数:

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 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

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


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