返回列表下一主題上一主題發帖

[發問] 另存成多個活頁簿

蘿蔔泥

中學生 Rank: 2

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

個人清冊test.zip (82.69 KB)

樓主熱帖

蘿蔔泥

中學生 Rank: 2

帖子: 36
主題: 10
精華: 0
積分: 93
點名: 0
作業系統: win10
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2018-2-27
最後登錄: 2022-2-25

2^#

發表於 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.原始檔案是否需要紀錄上次轉存日期時間的功能?
應該不需要

謝謝您

TOP

靜思自在 : 小事不做、大事難成。

返回列表下一主題上一主題