標題: [發問] 將活頁簿的工作表 分成各個單獨的檔案 [打印本頁]

---

作者: eg0802    時間: 2012-7-17 15:25     標題: 將活頁簿的工作表 分成各個單獨的檔案

如題，一個活頁簿10個工作表  如何快速的分成10個excel檔(一個工作表一個檔)

---

作者: eg0802    時間: 2012-7-18 10:29

回復 1# eg0802


    請問有大大可以幫忙嗎??? 感恩~~

---

作者: oobird    時間: 2012-7-18 11:02

這種操作要用vba

1. Sub 以下參考()
   
2.     For Each Sh In Worksheets
   
3.         Sh.Copy
   
4.         ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sh.Name & ".xls"
   
5.         Workbooks(Sh.Name & ".xls").Close True
   
6.     Next
   
7. End Sub

複製代碼

---

作者: eg0802    時間: 2012-7-18 14:06

回復 3# oobird


    成功了!!! 謝謝大大...跪恩...  再一問   如果要把某一資料夾的excel檔案  合併成一個活頁簿該怎麼用????

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)