excel - 使用 Excel VBA 更改 View

Question

我尝试运行一个简单的 For Each 循环来更改 Excel 中的 View ，但不断收到:

438 Run-time Error

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