Youtor
Excel 教學 E13 將多頁工作表自動轉存成檔案
>> YOUR LINK HERE: ___ http://youtube.com/watch?v=KcDbWWRCPeo
Ⓜ️頻道筆記區(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工作表自動轉存成檔案
#############################
