Excel PublishObjects与VBScript的结合
Excel PublishObjects与VBScript的结合
提问于 2012-10-03 18:16:35
不介意，我想出来了。把这个留在这里，以防其他人有这个问题，然后搜索它。基本上，问题是VBScript想要一个真正的参数列表，而不喜欢我试图根据param的名称设置值，就像在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，并且在将PublishObjects范围导出到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方法中的参数。我尝试删除with块和行延续，并得到相同的错误。
任何帮助都将不胜感激！
谢谢!
回答 1
Stack Overflow用户
发布于 2015-03-27 11:53:31
请用这个和陈述一起使用。
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, "D:\EXCEL_TO_HTML_RANGE.htm", "Sheet1", _ Range("B1:R29").Address, xlHtmlStatic, "Title of the page") .Publish (True) End With
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/12714419
复制相关文章
相似问题
腾讯云开发者
