Excel使用VBA发布多个工作表

我正尝试使用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 

尽pipe如此，在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创build的顺序。