返回列表下一主題上一主題發帖

[發問] 請問~如何從ACCESS抓取資料至EXCEL工作表合併後，再匯入ACCESS資料庫

fusayloveme

中學生 Rank: 2

帖子: 46
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: win7
軟體版本: 2007-EXCEL
閱讀權限: 20
性別: 男
註冊時間: 2011-12-29
最後登錄: 2020-3-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-21 08:58 | 只看該作者

[發問] 請問~如何從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

複製代碼

接下來這邊我就卡住了，就是呢~將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，謝謝大家。

範例資料表.rar (387.61 KB)

樓主熱帖

靜思自在 : 愛不是要求對方，而是要由自身的付出。

返回列表下一主題上一主題