使用Excel VBA更改视图

Question

我正在尝试运行一个简单的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