使用Excel VBA更改视图

我试图运行一个简单的For Each循环来更改Excel中的视图，但不断得到一个：

438运行时错误

 Sub ChangeView() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Select ActiveWindow = xlNormalView Range("A1").Select Next 

该错误突出显示了ActiveWindow行。 为什么？

Answer 1

ActiveWindow是一个对象 ， xlNormalView是一个长/枚举常量与该对象的属性相关联。 您不能将属性值分配给对象本身，而是将其分配给适当的属性。 我相信正确的是：

 ActiveWindow.View = xlNormalView