设置窗口类-Excel VBA的FreezePanes属性

我有一个巨大的导入和导出应用程序，写回到版本VBA 9.1并将其迁移到Excel 2013我在使用此行冻结第一行时遇到问题。

AddWorksheetWithDefaults.Parent.Windows(1).Activate With AddWorksheetWithDefaults.Parent.Windows(1) .FreezePanes = False .FreezePanes = True End With 

在这种情况下，我会因为无法设置Windows类的FreezePanes属性而出现错误

而AddWorksheetWithDefaults是一个返回object（）的方法。 “我试着跟着

试试1

 AddWorksheetWithDefaults.Parent.Windows(1).Activate With AddWorksheetWithDefaults.Parent.Windows(1).Rows("1:1").Select .FreezePanes = False .FreezePanes = True End With 

试试2

 AddWorksheetWithDefaults.Parent.Windows(1).Activate With AddWorksheetWithDefaults.Parent.Windows(1).Rows(1).Select .FreezePanes = False .FreezePanes = True End With 

试试3

 AddWorksheetWithDefaults.Parent.Windows(1).Activate With AddWorksheetWithDefaults.Parent.Windows(1).Rows("1:1") .FreezePanes = False .FreezePanes = True End With 

我试过的选项给我错误的属性或方法找不到

帮帮我。

Answer 1

尝试这个：

 AddWorksheetWithDefaults.Parent.Windows(1).Activate With AddWorksheetWithDefaults.Parent.Windows(1) .FreezePanes = False .SplitColumn = 0 .SplitRow = 1 .FreezePanes = True End With