返回列表 上一主題 發帖

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

eg0802

帖子
81 
主題
26 
精華
0 
積分
106 
點名
0  
作業系統
WIN7 
軟體版本
32位元 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2012-3-3 
最後登錄
2019-6-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-17 15:25 | 只看該作者

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

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

eg0802

帖子
81 
主題
26 
精華
0 
積分
106 
點名
0  
作業系統
WIN7 
軟體版本
32位元 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2012-3-3 
最後登錄
2019-6-26 
4#
發表於 2012-7-18 14:06 | 只看該作者
回復 3# oobird


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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 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
複製代碼

TOP

eg0802

帖子
81 
主題
26 
精華
0 
積分
106 
點名
0  
作業系統
WIN7 
軟體版本
32位元 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2012-3-3 
最後登錄
2019-6-26 
2#
發表於 2012-7-18 10:29 | 只看該作者
回復 1# eg0802


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

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題