作者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/cn.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