PTT數位生活區 / Office

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

看板Office作者 (法國香菜 多舊勇魚)時間9年前 (2017/01/20 23:00), 編輯推噓0(0推 0噓 6→)
留言6則, 2人參與, 最新討論串1/1
軟體: 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
→
01/20 23:48, , 1F
01/20 23:48, 1F
→
01/20 23:54, , 2F
1.迴圈配合dir()取目錄內檔名，workbooks.open開啟已取得
01/20 23:54, 2F
→
01/20 23:54, , 3F
檔名
01/20 23:54, 3F
→
01/20 23:54, , 4F
2.接著迴圈將worksheets.copy後activeworkbook.saveas
01/20 23:54, 4F
→
01/20 23:54, , 5F
另存的檔名以dir取得檔名連結worksheet.name
01/20 23:54, 5F
→
01/20 23:54, , 6F
3.最後activeworkbook.close
01/20 23:54, 6F
‣ 更多 amndl811 的文章
文章代碼(AID): #1OWYOJq_ (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 amndl811 的文章
文章代碼(AID): #1OWYOJq_ (Office)