Excel使用VBA發布多個工作表

Question

我正在嘗試使用VBA在excel中發布多個工作表。 我需要發布工作表2和3。

下面是代碼。

With ActiveWorkbook
    .WebOptions.AllowPNG = False
        With .PublishObjects(2)
            Range("A1").Activate
            .Filename = "D:\Reports\09192014\MNM.html"
            .Publish (True)
        End With
End With

在PublishObjects(2)我將數字從2手動更改為3，如下所示。

With ActiveWorkbook
    .WebOptions.AllowPNG = False
        With .PublishObjects(3)
            Range("A1").Activate
            .Filename = "D:\Reports\09192014\Coal.html"
            .Publish (True)
        End With
 End With

不過，在HTML報告coal.html我正在獲取MNM.html數據，而該數據也有一半。
如何迭代工作表和發布對象？

Answer 1

您不應該像這樣先添加它嗎？：

    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "D:\Reports\09192014\MNM.html", "Sheet1", , _
        xlHtmlStatic, , "")
        .Publish (True)
        .AutoRepublish = False '~~> True updates HTML when workbook is saved
    End With

    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "D:\Reports\09192014\Coal.html", "Sheet2", , _
        xlHtmlStatic, , "")
        .Publish (True)
        .AutoRepublish = False
    End With

添加之后，這就是您可以使用PublishObjects Collection通過索引號訪問它的時候了。
索引將基於創建Object的順序。