Excel 教學 E13 | 將多頁工作表自動轉存成檔案 скачать в хорошем качестве

Excel 教學 E13 | 將多頁工作表自動轉存成檔案

Ⓜ️頻道筆記區(Notion)➤https://reurl.cc/RWGpV9 Ⓜ️ LightPDF 官方網站 ➤ https://bit.ly/48GQmJT Ⓜ️推薦：Gamma AI簡報➤ https://try.gamma.app/pt665975k4wx Ⓜ️推薦：新手影片剪輯線上平台 FlexClip➤ https://www.flexclip.com/ Ⓜ️收藏：Meiko教學文章➤ https://vocus.cc/user/@meiko =====購書優惠區====== 博客來➤https://www.books.com.tw/products/001... 旗標知識講堂➤  / flagforum   旗標蝦皮商城➤ https://shopee.tw/flag23311033 (其他期間折扣碼請由頻道筆記內查詢) ．2024/01/01-2024/03/31 優惠碼：【FLAGM0005】 原9折再打84折 ．2024/04/01-2024/06/30 優惠碼：【FLAGM0006】 原9折再打84折 ．2024/07/01-2024/09/30 優惠碼：【FLAGM0007】 原9折再打84折 ．2024/10/01-2024/12/31 優惠碼：【FLAGM0008】 原9折再打84折 =====折扣碼專區===== Ⓜ️Flot.ai 文案寫作AI工具 https://go.flot.ai/Meiko 折扣碼 【 MEIKO 】20%優惠 Ⓜ️DesignEvo LOGO：https://www.designevo.com/tw/ 折扣碼 【 MeikoDE20 】20%優惠 =====本單元說明===== ►單元主題：Excel 教學 E13 | 將多頁工作表自動轉存成檔案 ►重點說明： 1.Alt+F11開啟VBA編輯器 2.插入模組 3.貼上程式語法 4.點按執行 ►此影片錄製使用版本：Microsoft Excel 365 ►範例檔案下載：https://1drv.ms/u/s!Aqp4JwPG9GlVga8AK... 🔴複製程式語法：(虛線以下) -------------------------------------------------- Sub 切割活頁簿() source_window_name = ActiveWindow.Caption source_path_name = ActiveWorkbook.Path '先把現在準備分割的原始檔案的視窗名稱及路徑記錄下來 target_path = source_path_name & "\" & Left(source_window_name, Len(source_window_name) - 4) MkDir target_path '建立準備儲存切割完成檔案的新資料夾 For i = 1 To ActiveWorkbook.Sheets.Count '使用迴圈 , 執行次數是作用中的活頁簿的工作表數量 ActiveWorkbook.Sheets(i).Copy '把作用中的活頁簿的第i個工作表複製到另一個新開啟的活頁簿 ActiveWorkbook.SaveAs target_path & "\" & ActiveSheet.Name '需注意這裡的ActiveWorkbook已經是新的活頁簿了 '把新活頁簿儲存到指定路徑 , 且檔名與工作表名稱相同 ActiveWorkbook.Close '關閉已經儲存的新活頁簿 Windows(source_window_name).Activate '將作用視窗切換回原始檔案 Next MsgBox "您的檔案已經被拆分完成，檔案會存放在您原始檔案位置，請打開資料夾查看!" End Sub ------------------------------------------------ -------------------------------------------------------------------------------- 🔔 Meiko微課頻道其他影片 ------------------------------------------------------------------------------- 🔗EXCEL不求人系列：   • Excel不求人   🔗用Canva玩設計系列：   • 在Canva玩設計   🔗生活小技巧系列：   • 生活小工具應用   🔗PDF文件編輯系列：   • PDF文件編輯系列   🔗Windows作業系統操作系列：   • Windows系統操作系列   🔗Facebook粉絲專頁：  / meikochang   #Excel教學 #工作表轉存成檔案 #Excel轉存 #Excel不求人 #Excel函數 #Excel下拉清單 #Excel跨檔合併 #Excel分行處理 #Excel保護 #Excel工作表自動轉存成檔案