能不能用VB把EXCEL里的信息导入ACCESS中?

diedknight 2004-04-30 07:42:37
如题
...全文
31 3 点赞 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
diedknight 2004-04-30
用ADO实现能说清楚一点吗?谢谢
  • 打赏
  • 举报
回复
daisy8675 2004-04-30
主題:如何將 Excel 的資料表匯入 Access資料庫?
來源:Yamini
版本:VB6.0 / VB5.0

--------------------------------------------------------------------------------


先前我們在【問題127】資料庫的匯出 ---- 使用 DAO 提過資料庫的匯出功能,之後,很多網友來信問到如何將 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 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"

  • 打赏
  • 举报
回复
daisy8675 2004-04-30
Private Sub Command6_Click()
' conn.Execute "insert into [test] select * from [html export;database=e:\test].[test3.htm]"
conn.Execute "insert into [test] select * from [Excel 8.0;database=e:\test\test4.xls].[test4]"
Unload Me
End Sub
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1191

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-04-30 07:42
社区公告
暂无公告