- 帖子
- 46
- 主題
- 12
- 精華
- 0
- 積分
- 72
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2007-EXCEL
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-12-29
- 最後登錄
- 2020-3-20
|
[發問] 請問~如何從ACCESS抓取資料至EXCEL工作表合併後，再匯入ACCESS資料庫
本帖最後由 fusayloveme 於 2012-3-26 08:54 編輯
各位大大您好，
小弟目前有些問題，想請教大家，就是說~若我想從A資料表內(6個欄位)抓取資料至EXCEL，但他會開起六個工作表，我如何將他們同時放置於一個工作表
然後只是SHEET不同，但SHEET名稱須依照那6個欄位名稱呢!? 以下我已有先嘗試寫出一段語法，我是先以開啟兩個資料表，然後用錄製的手法，再修改一些，
若傷眼，抱歉了.... ><"- Sub 開啟資料表()
- Dim mypath, myfile, mydata, X
- mypath = ThisWorkbook.Path
- myfile = "範例資料表_網路.accdb"
- ChDir mypath
- For i = 1 To 2
- X = "tb_23_HM" & i
- Workbooks.OpenDatabase Filename:=mypath & "\" & myfile, _
- CommandText:=Array(X), CommandType:=xlCmdTable, ImportDataAs:=xlTable
- Sheets("範例資料表_網路").Select
- Sheets("範例資料表_網路").Name = X
- Next
- Windows("Book2").Activate
- Sheets("tb_23_HM2").Select
- Sheets("tb_23_HM2").Move After:=Workbooks("Book1").Sheets(1)
- End Sub
最後，很抱歉一連串問了那麼多問題，先謝謝大家幫忙思考解決問題，預祝心想事成。 ^_^
總結一下問題：
1.從ACCESS開啟6個資料表(tb_23_HM1~tb_23_HM6)，看能不能夠在同一個EXCEL內開啟??
2.開啟資料表後的sheet，是否能夠依照資料表名稱命名(tb_23_HM1~tb_23_HM6)呢??
3.再將B資料表(tb_23_HM1~tb_23_HM6)，匯入剛剛開啟的那個EXCEL，並分別依照sheet分類匯入，但是屬於接續下來的，
例如a資料庫的tb_23_HM1匯入至excel是到第5筆，接下來b資料庫的tb_23_HM1，是否可從第6筆開始匯入呢??
4.最後將整理好的excel資料，在依照不同的sheet，匯入新的access資料庫內。
因為大概有5~60個資料表須要作一個合併整理的動作...呵呵..先謝謝大家。
下載物件內有~範例資料表_網路為A資料表，範例資料表_書面為B資料表，EXCEL內含我所寫的VBA，謝謝大家。
 範例資料表.rar (387.61 KB)
|
|
發表於 2012-3-21 08:58
| 
