[算表] 如何跨檔案使用VBA撈取資料
軟體:excel
版本:2010
各位先進好 晚安
想請教如何使用 VBA巨集 將 指定檔名之xls檔 當作資料庫來撈資料
用途是將xls內所有工作表整合為單一工作表
(EX：將A.xls之資料 複製到B.xlsm中第一頁)
以下巨集已可達到單檔需求
將本檔內[第二至所有工作表] 中之 [第二至最下有效資料列] 整合至第一頁
因來源xls常更新 故希望能將此功能擴展成可撈取他檔使用
謝謝先進指教
----------------------------------------------
巨集如下
Sub 巨集2()
'
' 巨集2 巨集
Sheets("total").Select
Range("A2").Select
For i = 2 To Sheets.Count
Sheets(i).Select
Range("E2:I2").Select //因為只需要E~I欄所以這樣指定
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("total").Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
Range("A2").Select
End Sub
------------------------------------------------------------------
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.116.200.21
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1470065203.A.06A.html
→
08/02 00:19, , 1F
08/02 00:19, 1F
→
08/02 00:20, , 2F
08/02 00:20, 2F
→
08/02 00:20, , 3F
08/02 00:20, 3F
→
08/02 00:21, , 4F
08/02 00:21, 4F
→
08/02 00:26, , 5F
08/02 00:26, 5F