返回列表 上一主題 發帖

[發問] 求助，如何用VBA把拆分工作表及存檔日期

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-22 23:25 | 顯示全部帖子
回復 3# threelin
  1. Sub ex()
  2. sh = Array("c", "e", "g")
  3. ipath = ThisWorkbook.Path & "\"
  4. Sheets(sh).Copy
  5. With ActiveWorkbook
  6. .SaveAs ipath & Sheets("g").[A1] & ".xls"
  7. .Close
  8. End With
  9. End Sub
複製代碼
修正2處,試試看
再有問題,要提供EXCEL壓縮檔

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-23 13:11 | 顯示全部帖子
本帖最後由 register313 於 2012-4-23 13:12 編輯

回復 10# threelin


fs = ipath & n & sh.Name &  ".xls"

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
3#
發表於 2012-4-23 18:26 | 顯示全部帖子
回復 12# threelin
  1. Sub ex()
  2. n = Sheets("g").[A1]
  3. sht = Array("c", "e", "g")
  4. ipath = ThisWorkbook.Path & "\"
  5. For Each sh In Sheets(sht)
  6. sh.Copy
  7. With ActiveWorkbook
  8. Cells.Copy
  9. Cells.PasteSpecial Paste:=xlPasteValues
  10. fs = ipath & n & sh.Name & ".xls"
  11. .SaveAs fs
  12. .Close
  13. End With
  14. Next
  15. End Sub
複製代碼

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題