→ soyoso: 可加上開其他檔案的部分workbooks.open 08/02 00:19
→ soyoso: 如某目錄內的excel一併整合的話，也可以dir()配合do..loop 08/02 00:20
→ soyoso: 或while的方式 08/02 00:20
→ soyoso: 來取得完整檔名 08/02 00:21
→ soyoso: 關檔workbook.close 08/02 00:26
軟體: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