作者amndl811 (法国香菜 多旧勇鱼)
看板Office
标题[算表] 多张 Sheet 变成多个档案
时间Fri Jan 20 23:00:28 2017
软体: 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://webptt.com/cn.aspx?n=bbs/Office/M.1484924435.A.D3F.html
2F：→ soyoso: 1.回圈配合dir()取目录内档名，workbooks.open开启已取得 01/20 23:54
3F：→ soyoso: 档名 01/20 23:54
4F：→ soyoso: 2.接着回圈将worksheets.copy後activeworkbook.saveas 01/20 23:54
5F：→ soyoso: 另存的档名以dir取得档名连结worksheet.name 01/20 23:54
6F：→ soyoso: 3.最後activeworkbook.close 01/20 23:54