需要在Publishobject特定范围VBA

Question

我需要一个特定的范围内予以公布像$A$1:$O$$25而不是xlSourceSheet

With ActiveWorkbook.PublishObjects.Add("$A$1:$O$$25", _ 
       x, Sname, , _ 
       xlHtmlStatic, , "") 
       Range("A1").Activate 
       .Publish (True) 
       .AutoRepublish = False '~~> True updates HTML when workbook is saved 
End With 

以上是抛出一个错误。这里的x和Sname是在我开始的时候定义的变量，我的主要目的是只发布表格的某些部分。

Answer 1

我在这里找到了可以帮助他人的帖子。

Dim objRange As Range Dim objcoord As String 
      Set objRange =ActiveSheet.Range("A1:P25") 
    >    objcoord = objRange.Address 
    >    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ 
    >      x, Sname, _ 
    >      objcoord, _ 
    >      xlHtmlStatic, , "") 
    >      Range("A1").Activate 
    >      .Publish (True) 
    >      .AutoRepublish = False '~~> True updates HTML when workbook is saved 
    >    End With