PublishObjects 语句疑惑

yuliuyan07

Sub pub_test()

    Dim TempFile As String
    Dim TempWB As Workbook

  TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

Set TempWB = ThisWorkbook

    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

以上语句一直调试不通，不知道原因何在? 求各位大侠协助。

杨建营

win10，o2019测试通过。

yuliuyan07

我也是win10（64bit）+office 2019 (64bit)  ，一直报错，请见如下图片。

yuliuyan07

我是用的也是windows10+office 2019(64bit) ，运行会跳出错误

剑指E

yuliuyan07

非常感谢，👍。

yuliuyan07

剑指E 发表于 2023-4-17 13:32

多谢出手。