作者vitor (量才適性)
看板Office
標題[算表] 用vba自訂排序，存檔會自動關閉檔案
時間Tue May 26 21:36:45 2020
軟體:Excel
版本:2016
請問各位大大
小弟用vba撰寫自訂排序的程式碼
執行時沒問題，儲存時卻會自動關檔而無法儲存，怎樣都找不出原因
截取其中程式碼如下：
Set 審查人 = Sheets("審查人清單").Range("A2:A" & 清單列)
Application.AddCustomList 審查人
n = Application.CustomListCount
Range("A2:R" & 報表列).Sort key1:=Range("A2"), ordercustom:=n + 1, key2:=Range("B2"), Header:=xlYes
Application.DeleteCustomList n
（為避免程式碼過多而失焦，僅截取片段，如有需要再提供完整程式碼）
經以逐行執行方式偵錯，似乎是「Application.DeleteCustomList n」這段程式碼造成
請問造成關檔的原因為何？如何修正才能順利存檔呢？
希望各位大大不吝指教，感恩
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 49.216.135.83 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1590500220.A.088.html
1F：→ soyoso: 提供檔案含巨集會比較清楚 05/26 22:07
2F：→ soyoso: 以內文所提供，逐行執行並無錯誤訊息 05/26 22:07
4F：→ soyoso: 測試上到存檔時確實excel會當掉，原因是刪除自訂清單後， 05/26 22:43
5F：→ soyoso: 排序內還是保留了先前寫順序以自訂清單，但該自訂清單已被 05/26 22:43
6F：→ soyoso: 刪除了，於range.sort排序後，加上worksheets.sort. 05/26 22:43
7F：→ soyoso: sortfields.clear，工作表名稱再依實際鍵入，或 05/26 22:43
8F：→ soyoso: activesheet、sheets(..)，存檔時就沒發生了，試看看。 05/26 22:43
9F：→ vitor: 解決了！您真是高手高手高高手 05/26 23:05
※ 編輯: vitor (49.216.135.83 臺灣), 05/26/2020 23:07:27