Board logo

標題: [發問] 另存成多個活頁簿 [打印本頁]
作者: 蘿蔔泥    時間: 2021-8-4 16:06     標題: 另存成多個活頁簿

各位大大好
書本裡的範例是將所有工作表都建立成一個活頁簿，存放位置也是固定(要自己進去vba做更改)，但工作上不太實用
小妹我是想將特定幾個工作表分別拆分成一個活頁簿，不用全部，並且會先跳出詢問存放在哪個資料夾內(全部都存在同一個位置)

如範例，前面兩個工作表不用另存成活頁簿，但後面的工作表都要另存成個別活頁簿(部門數量不一定)，已存成新活頁簿的就將其刪除
可以請大家幫幫忙嗎？謝謝。

Sub 分檔()

Application.ScreenUpdating = False
Dim folder As String
folder = ThisWorkbook.Path & "\各部門清冊"
If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
Dim sht As Worksheet
For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True

End Sub
作者: singo1232001    時間: 2021-8-4 18:06

本帖最後由 singo1232001 於 2021-8-4 18:21 編輯

回復 1# 蘿蔔泥

情境提問
(工作表代表為"個人清冊test內的各部門工作表")      
(工作簿代表為"新增轉存的個別工作簿檔案")

1.存檔已轉成個別工作簿時 倘若資料有誤 而工作表已刪除 預計如何處理? 是否變更原本邏輯
1-a  (轉存,不刪表) 要轉存,但原始資料不刪
1-b (改複製,不刪表) 直接匯入工作簿檔案更新存檔即可,沒檔案時會新增工作簿檔案,但不刪除工作表舊有資料
1-c  (改複製, 刪表) 直接匯入工作簿檔案更新存檔即可,沒檔案時會新增工作簿檔案,刪除工作表舊有資料
1-d  (轉存,刪表)  存錯沒關係 手動複製回去
2.同上 若有工作表誤轉成工作簿 預計如何處理?

3.舅有的工作簿是否要刪除?
4.個別活頁簿 的檔名設定 是否需要建立日期 +流水號? 以避免覆蓋舊有工作簿同檔案的功能??
5."存放路徑位置"跳出"路徑對話框" ,是否預設為路徑下"\各部門清冊"   ,並且可以選擇改變資料夾路的功能?
6.拆分工作表時 多個工作表存放一個工作簿 or 多個工作表存放多個個別工作簿 是否皆有需求 需能選擇的功能?
7.承6 是否需要  "預設工作表轉存工作簿的名稱" 並且追加能當次添加 "工作表轉存工作簿的名稱"  的功能?
8.承7  是否需要 "預設工作表"不"轉存工作簿的名稱" 的功能?
9.承8 多個工作表合併成轉存成一個工作簿時 檔名如何預設?
10.原始檔案是否需要紀錄上次轉存日期時間的功能?
作者: singo1232001    時間: 2021-8-5 14:08

本帖最後由 singo1232001 於 2021-8-5 14:12 編輯

[attach]33840[/attach]回復 1# 蘿蔔泥


    我先放個測試檔 可以參考看看

有幾個bug還沒處理
A5.表名輸入與否 可能會有影響判斷 造成找不到工作表 或者 找錯工作表
A10 日期流水號目前沒有此功能  若同個資料夾有完全一樣的檔名 會被他覆蓋掉
作者: 蘿蔔泥    時間: 2021-8-5 16:47

回復 2# singo1232001

1.存檔已轉成個別工作簿時 倘若資料有誤 而工作表已刪除 預計如何處理? 是否變更原本邏輯
1-a  (轉存,不刪表) 要轉存,但原始資料不刪
1-b (改複製,不刪表) 直接匯入工作簿檔案更新存檔即可,沒檔案時會新增工作簿檔案,但不刪除工作表舊有資料
1-c  (改複製, 刪表) 直接匯入工作簿檔案更新存檔即可,沒檔案時會新增工作簿檔案,刪除工作表舊有資料
1-d  (轉存,刪表)  存錯沒關係 手動複製回去
2.同上 若有工作表誤轉成工作簿 預計如何處理?
總表不會另外轉出去，只有細分出部門的工作表才會轉成工作簿
3.舅有的工作簿是否要刪除?
不是所有sheet都要轉成工作簿，只有細分出部門的工作表才會轉成工作簿，所以會留著
4.個別活頁簿 的檔名設定 是否需要建立日期 +流水號? 以避免覆蓋舊有工作簿同檔案的功能??
可以有日期但不用+流水號
5."存放路徑位置"跳出"路徑對話框" ,是否預設為路徑下"\各部門清冊"   ,並且可以選擇改變資料夾路的功能?
這個我看不懂耶，是什麼意思？我是希望他可跳出問我要存放在哪
6.拆分工作表時 多個工作表存放一個工作簿 or 多個工作表存放多個個別工作簿 是否皆有需求 需能選擇的功能?
一個工作表存成一個工作簿
7.承6 是否需要  "預設工作表轉存工作簿的名稱" 並且追加能當次添加 "工作表轉存工作簿的名稱"  的功能?
依工作表名稱做成工作簿名稱即可
8.承7  是否需要 "預設工作表"不"轉存工作簿的名稱" 的功能?
應該不需要
9.承8 多個工作表合併成轉存成一個工作簿時 檔名如何預設?
目前只有要分出去沒有要合併回來耶
10.原始檔案是否需要紀錄上次轉存日期時間的功能?
應該不需要

謝謝您
作者: singo1232001    時間: 2021-8-6 05:46

[attach]33842[/attach]回復 4# 蘿蔔泥



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