12
返回列表 上一主題 發帖

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

threelin

帖子
19 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2010-7-26 
最後登錄
2021-8-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-22 22:43 | 只看該作者

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

大家好，

請教大家，兩個問題

（1）工作薄中有a b c d e f g，共7個sheet，我只想拆出c e g這3個sheet為獨立的檔案，其他4個不拆分。

（2）存檔日期，成指定為sheet g 中，A1的數值(A1=20120408)。

請教大家，該如何修改下面的VBA，才能實現我想要的功能，感謝大家幫忙

Sub test()
    Dim sht As Worksheet, ipath As String, iname As String
    ipath = ThisWorkbook.Path & "\"
    Application.ScreenUpdating = False
    For Each sht In ThisWorkbook.Worksheets
        iname = sht.Name
        sht.Copy
        With ActiveWorkbook
  .SaveAs Filename:=ipath & iname & "  " & sht1.Range("a1") & ".xls"
          .Close
        End With
    Next
    Application.ScreenUpdating = True
End Sub
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-4-22 22:51 | 只看該作者
本帖最後由 Hsieh 於 2012-4-22 23:33 編輯

回復 1# threelin
直接轉譯成VBA
  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
複製代碼
學海無涯_不恥下問

TOP

threelin

帖子
19 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2010-7-26 
最後登錄
2021-8-5 
3#
發表於 2012-4-22 23:09 | 只看該作者
[版主管理留言]
  • Hsieh(2012-4-22 23:36): 樓上筆誤，已更正

回復 2# Hsieh


    感謝Hsieh 版主。

我執行後，出現錯誤的小視窗，視窗的代號400，請教您是什麼原因，謝謝。

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
4#
發表於 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

threelin

帖子
19 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2010-7-26 
最後登錄
2021-8-5 
5#
發表於 2012-4-22 23:44 | 只看該作者
回復 2# Hsieh


    Hsieh 版主

    剛才的錯誤，我發現是我A1的數值沒打所造成的。

    我又重新執行了一次，但不是我需要的結果。

     我想要c、e、g三個工作表變成三個獨立的檔案， 檔名分別為 c 20120408.xls、e 20120408.xls、 g 20120408.xls

     再麻煩您幫忙，謝謝您。

2012.rar (5.61 KB)

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-4-23 00:10 | 只看該作者
回復 5# 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. fs = ipath & sh.Name & n & ".xls"
  9. .SaveAs fs
  10. .Close
  11. End With
  12. Next
  13. End Sub
複製代碼
學海無涯_不恥下問

TOP

bbojj

帖子
19 
主題
3 
精華
0 
積分
21 
點名
0  
作業系統
XP 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2012-4-21 
最後登錄
2012-5-22 
7#
發表於 2012-4-23 00:23 | 只看該作者
本帖最後由 bbojj 於 2012-4-23 00:28 編輯

感謝版主
又多學了一些東西！

有個問題請教
設定 ipath=ThisWorkBook.path 是要讓 Copy出來的檔案與原檔在同一個資料夾底下嗎？
謝謝回答!

TOP

threelin

帖子
19 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2010-7-26 
最後登錄
2021-8-5 
8#
發表於 2012-4-23 00:32 | 只看該作者
回復 6# Hsieh


    感謝版主細心及耐心的回答，可以用了，謝謝您。:)


    我把 08.fs = ipath & sh.Name & n & ".xls"   改成 08.fs = n & ipath & sh.Name &  ".xls"

    跳出錯誤，不知道是為什麼？

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
9#
發表於 2012-4-23 10:05 | 只看該作者
回復 8# threelin
ipath=Thisworkbook.Path & "\"
ipath是存檔位置
例如:Thisworkbook是存放在D:\TEMP
ipath就是"D:\TEMP\"
若n="e"
n &  ipath就成了"eD:\TEMP\"

所以n &  ipath這樣是找不到這個資料夾，所以出錯
學海無涯_不恥下問

TOP

threelin

帖子
19 
主題
2 
精華
0 
積分
16 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
10 
註冊時間
2010-7-26 
最後登錄
2021-8-5 
10#
發表於 2012-4-23 13:08 | 只看該作者
回復 9# Hsieh


    謝謝版主您的回覆，我明白了。

　請教您，如果是把日期放在前面，是不是不可行，還是有其它的寫法？

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
12
返回列表 上一主題