[算表] 用vba自訂排序，存檔會自動關閉檔案

看板Office作者 (量才適性)時間4年前 (2020/05/26 21:37), 4年前編輯推噓0(0推 0噓 9→)
留言9則, 2人參與, 4年前最新討論串1/1
軟體: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://www.ptt.cc/bbs/Office/M.1590500220.A.088.html
→
05/26 22:07, 4年前 , 1F
提供檔案含巨集會比較清楚
05/26 22:07, 1F
→
05/26 22:07, 4年前 , 2F
以內文所提供，逐行執行並無錯誤訊息
05/26 22:07, 2F
→
05/26 22:07, 4年前 , 3F
05/26 22:07, 3F
→
05/26 22:43, 4年前 , 4F
測試上到存檔時確實excel會當掉，原因是刪除自訂清單後，
05/26 22:43, 4F
→
05/26 22:43, 4年前 , 5F
排序內還是保留了先前寫順序以自訂清單，但該自訂清單已被
05/26 22:43, 5F
→
05/26 22:43, 4年前 , 6F
刪除了，於range.sort排序後，加上worksheets.sort.
05/26 22:43, 6F
→
05/26 22:43, 4年前 , 7F
sortfields.clear，工作表名稱再依實際鍵入，或
05/26 22:43, 7F
→
05/26 22:43, 4年前 , 8F
activesheet、sheets(..)，存檔時就沒發生了，試看看。
05/26 22:43, 8F
→
05/26 23:05, 4年前 , 9F
解決了！您真是高手高手高高手
05/26 23:05, 9F
※ 編輯: vitor (49.216.135.83 臺灣), 05/26/2020 23:07:27
‣ 更多 vitor 的文章
文章代碼(AID): #1UpHjy28 (Office)