在VBScript中使用Excel PublishObjects

沒關係，我弄明白了。如果有其他人遇到此問題並進行搜索，請留在此處。基本上，問題是VBScript中要真正的參數列表，並沒有像我試圖就像是在VBA來設置基於帕拉姆的名稱值：在VBScript中使用Excel PublishObjects

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試圖到Excel範圍導出爲HTML時對象。下面是在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方法中的參數。我嘗試刪除塊和行延續，我得到同樣的錯誤。

任何幫助將不勝感激！

謝謝！

來源

2012-10-03 Karter705

請使用此語句。

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

來源

2015-03-27 11:53:31

在VBScript中使用Excel PublishObjects

回答

相關問題