如何用vba切换工作表的视图？

每个工作表的视图可以有“普通”、“分页预览”、“页面布局”3种。

如果要用vba批量设置工作表的视图，可以使用Window对象的View属性设置。

但是用Window对象的View属性设置工作表的视图时，每次只能设置活动工作表的视图，所以如果要批量设置所有工作表的视图，需要先激活每个工作表。

以下vba代码演示了如何批量设置工作表的视图为分页预览：

Sub QQ1722187970()
    Dim oWB As Workbook
    Set oWB = Excel.ThisWorkbook
    Dim oWK As Worksheet
    Dim oRng As Range
    Dim oWindow As Window
    Set oWindow = Excel.Application.Windows(1)
    For Each oWK In oWB.Worksheets
        With oWK
            .Activate
            With oWindow
                .View = xlPageBreakPreview
            End With
        End With
    Next
End Sub