需要在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