返回列表 上一主題 發帖

[發問] 將活頁簿的工作表 分成各個單獨的檔案

[發問] 將活頁簿的工作表 分成各個單獨的檔案

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

回復 1# eg0802


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

TOP

這種操作要用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
複製代碼

TOP

回復 3# oobird


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

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題