xlsm文件保存后，再打开时总弹出对话框，求路过大神指点下

tudarong

xlsm文件保存后，再打开时总弹出对话框，求路过大神指点下

tudarong

修复记录截图如下：

lsc900707

tudarong 发表于 2018-7-16 23:39
修复记录截图如下：

这不告诉你问题所在了吗？自己检查数据是否有问题呀。

tudarong

问题找到了，原来问题出在工作表中录制排序的宏代码上。好好学习了 香川群子 的vba中使用工作表排序的方法 帖子，问题终于解决了。
录制的排序宏代码（每次保存后打开有误）：

1.     AutoFilter.Sort.SortFields.Add Key:=Range("A5"), _
   
2.         SortOn:=xlSortOnValues, _
   
3.         Order:=xlAscending, _
   
4.         DataOption:=xlSortNormal
   
5.     With AutoFilter.Sort
   
6.         .Header = xlYes
   
7.         .MatchCase = False
   
8.         .Orientation = xlTopToBottom
   
9.         .SortMethod = xlPinYin
   
10.         .Apply
    
11.     End With

复制代码

使用range.sort方法(运行OK)
    Range("A5:G" & m).Sort key1:=Range("A5"), order1:=xlAscending, Header:=xlYes, _
        MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal