0

気にしないで、私はそれを理解しました。他の誰かがこの問題を抱えて検索している場合に備えて、これをここに残します。基本的に、問題は、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 メソッドの引数が気に入らないようです。with ブロックと行の継続を削除しようとしましたが、同じエラーが発生します。

どんな助けでも大歓迎です！

ありがとう！

4

1 に答える 1

0

ステートメントで使用してください。

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-27T11:53:31.503 に答える