WorkbookOpen事件不适用于AutoFilterDateGrouping

Question

我在PersonalWorkbook（Excel 2010）中的personal.xlsb中创建了以下vba脚本：

Sub Workbook_Open()

     Application.ActiveWindow.AutoFilterDateGrouping = False

End Sub

它不起作用。 我得到vba运行时错误：91对象变量或未设置块变量。 虽然在文件打开后手动运行会有效。

目的是让所有新打开的文件自动将AutoFilterDateGrouping设置为False。

Answer 1

我找到了肮脏的解决方案：

模块：

  

Sub Startup（）

     

ActiveWindow.AutoFilterDateGrouping = False

     

End Sub

工作簿部分：

  

Sub Workbook_Open（）

     

Application.OnTime Now（）+ TimeSerial（0,0,1），“Startup”

     

End Sub