[算表] 多張 Sheet 變成多個檔案

[amndl811 (法國香菜 多舊勇魚)]

軟體: excel

版本: 2010

本人有一個有大量sheet的xlsx檔，假設是 sheet A 和 sheet 1 ，sheet 2，...


現需要輸出根據sheet號碼的名輸出成一堆檔案，但每個檔案都必須夾上 sheet A

即
sheet1.xlsx 含有 sheet 1 和 sheet A
sheet2.xlsx 含有 sheet 2 和 sheet A
sheet3.xlsx 含有 sheet 3 和 sheet A
如此類推

如果只需要一張 sheet 一個檔我找到 VBA 去拆，但這個卻找不到方法。

由於 Sheet 相當多 (近千)，要是逐張拆 (加上後續工序) 恐怕過年就是要拆檔過日。

有沒有解決方法？

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 218.250.11.141
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1484924435.A.D3F.html
→ visualchen: 試試  https://goo.gl/qedg1b
→ soyoso: 1.迴圈配合dir()取目錄內檔名，workbooks.open開啟已取得
→ soyoso: 檔名
→ soyoso: 2.接著迴圈將worksheets.copy後activeworkbook.saveas
→ soyoso:   另存的檔名以dir取得檔名連結worksheet.name
→ soyoso: 3.最後activeworkbook.close