我有一个巨大的导入和导出应用程序，它写在 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
我尝试的选项给我的错误是 未找到属性或方法
帮帮我。
最佳答案
尝试这个:
AddWorksheetWithDefaults.Parent.Windows(1).Activate
With AddWorksheetWithDefaults.Parent.Windows(1)
.FreezePanes = False
.SplitColumn = 0
.SplitRow = 1
.FreezePanes = True
End With
关于vba - 设置windows类的FreezePanes属性-Excel VBA，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/40505788/