Question

我需要使用VBScript将excel工作簿中的所有工作表更改为Page Layout View而不是默认视图。但是，我无法弄清楚如何在VBS中这样做。使用VBA，我一直在使用的代码（使用while循环遍历每个工作表）是

With ActiveWindow
    .View = xlPageLayoutView
End With

这对我的目的很好。但我需要在VBS中这样做。我认为它与Application对象有关，但我不确定。任何帮助将不胜感激。

编辑：这是我用声明和事物编写的代码示例。它基本上迭代工作簿中的多个工作表，并将它们全部（或尝试）设置到页面布局视图。缺少此段是我使用与Names（）中的条目匹配的新工作表填充工作簿的子。

Dim destFile, objWorkbook

Set destFile = CreateObject("Excel.Application")

Set objWorkbook = destFile.Workbooks.Add()
objWorkBook.SaveAs(strPath)

Sub OverNames()
    For i = 1 to 9
        SetPagelayout(i)
    Next
End Sub

Sub SetPageLayout(hNum)
    Dim houseSheet, sheetName

    'retrieves sheet name from array Names()
    sheetName = Names(hNum, 0)

    Set houseSheet = destFile.Worksheets(sheetName)

    houseSheet.Window.View = xlPageLayoutView
End Sub

使用VBScript将Excel视图更改为页面布局

0 个答案: