標題: [發問] 請問~如何從ACCESS抓取資料至EXCEL工作表合併後，再匯入ACCESS資料庫 [打印本頁]

---

作者: fusayloveme    時間: 2012-3-21 08:58     標題: 請問~如何從ACCESS抓取資料至EXCEL工作表合併後，再匯入ACCESS資料庫

本帖最後由 fusayloveme 於 2012-3-26 08:54 編輯

各位大大您好，
小弟目前有些問題，想請教大家，就是說~若我想從A資料表內(6個欄位)抓取資料至EXCEL，但他會開起六個工作表，我如何將他們同時放置於一個工作表
然後只是SHEET不同，但SHEET名稱須依照那6個欄位名稱呢!? 以下我已有先嘗試寫出一段語法，我是先以開啟兩個資料表，然後用錄製的手法，再修改一些，
若傷眼，抱歉了.... ><"

1. Sub 開啟資料表()
   
2. Dim mypath, myfile, mydata, X
   
3. mypath = ThisWorkbook.Path
   
4. myfile = "範例資料表_網路.accdb"
   
5.     ChDir mypath
   
6.     For i = 1 To 2
   
7.     X = "tb_23_HM" & i
   
8.         Workbooks.OpenDatabase Filename:=mypath & "\" & myfile, _
   
9.     CommandText:=Array(X), CommandType:=xlCmdTable, ImportDataAs:=xlTable
   
10.     Sheets("範例資料表_網路").Select
    
11.     Sheets("範例資料表_網路").Name = X
    
12.     Next
    
13.    Windows("Book2").Activate
    
14.     Sheets("tb_23_HM2").Select
    
15.     Sheets("tb_23_HM2").Move After:=Workbooks("Book1").Sheets(1)
    
16.     End Sub

複製代碼

接下來這邊我就卡住了，就是呢~將B資料表內的六個欄位的資料，同樣抓至EXCEL與A資料表內的資料合併，例如~A資料表內的[tb_23_HM1]有5筆資料貼至EXCEL，那我B資料表內的[tb_23_HM1]，就是從第6筆資料開始貼上。最後就是將含有AB資料表的EXCEL匯入ACCESS中(新開一個ACCESS資料庫，可能較為恰當)。
最後，很抱歉一連串問了那麼多問題，先謝謝大家幫忙思考解決問題，預祝心想事成。 ^_^
總結一下問題：
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，謝謝大家。

[attach]10079[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)