在VBScript中使用Excel PublishObjects

没关系，我知道了。将此保留在此处，以防其他人遇到此问题并进行搜索。基本上，问题在于VBScript需要一个真正的参数列表，而不喜欢我试图根据参数名称设置值，就像在VBA中一样：

objWorkbook.PublishObjects.Add(4,"F:\METRICS_TEAM\OSO\New OSO\Net OSO Acceptance Email.html","Destination",objWorkbook.Sheets("Destination").Range("B1:R29").Address,0).Publish (True)

很好。有关此问题的详细信息，请参见下文

---

我正在尝试将一些代码从VBA移到VBScript，在尝试将Excel范围导出到HTML时，PublishObjects对象遇到了一些问题。以下是VBA中的工作代码：

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
    fileName:="F:\METRICS_TEAM\OSO\New OSO\Net OSO Acceptance Email.html", _
    Sheet:="Destination", _
    Source:=Sheet3.Range("B1:R29").Address, _
    HtmlType:=xlHtmlStatic)
    .Publish (True)
End With

下面是我在VBScript中遇到问题的代码：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("F:\METRICS_TEAM\OSO\New OSO\Net OSO Acceptance Email.xlsm")

With objWorkbook.PublishObjects.Add(SourceType:=4, _
    Filename:="F:\METRICS_TEAM\OSO\New OSO\Net OSO Acceptance Email.html", _
    Sheet:="Destination", _
    Source:=objWorkbook.Sheets("Destination").Range("B1:R29").Address, _
    HtmlType:=0)
    .Publish (True)
End With

当我在VBScript中运行它时，我得到一个编译错误，说它在第一行继续之前缺少一个右括号。。。出于某种原因，它似乎不喜欢.add方法中的参数。我试着删除带有块和线连续的部分，但得到了相同的错误

任何帮助都将不胜感激

---

谢谢

请将此语句与语句一起使用

使用ActiveWorkbook.PublishObjects.Add（xlSourceRange，“D:\EXCEL\u TO\u HTML\u RANGE.htm”，“Sheet1”_ 范围（“B1:R29”）。地址，xlHtmlStatic，“页面标题”） .发布（真实） 以