VBScript에서 Excel PublishObjects 사용

Question

신경 쓰지 마라. 알아 냈어. 다른 사용자가이 문제를 겪고 있고 해당 문제를 검색하는 경우 여기에 남겨 둡니다.

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) 

잘 작동 : 기본적으로, 문제는 VBScript를 진정한 매개 변수 목록을 원하고 나는 그것이 VBA에 있었던 것처럼 PARAM의 이름을 기준으로 값을 설정하려고했던 것을 좋아하지 않는 것입니다. 문제에 대한 자세한 내용은 아래를 참조하십시오.

---

나는 VBScript를에 VBA부터 일부 코드를 이동하려고하고 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로 문제를 데 코드입니다 :이 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 

내가이없는 말을 컴파일 오류 첫 번째 줄 연속 직전에 닫는 괄호 ... 어떤 이유로 든 .add 메서드의 인수를 좋아하지 않는 것 같습니다. with 블록과 줄 연속을 제거하려고했는데 같은 오류가 발생합니다.

도움이 될 것입니다.

감사합니다.

Answer 1

진술과 함께 사용하십시오.

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