Excel VBA Code - Publish Error from 2016

[antoanand1981]

Hi,

Currently I've the below code which i used to send an email from Excel, However, Now I've moved the code from 2010 to 2016 and its is not working for .Publish (True). Please help


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

 

[Domenic]

You need to place "SourceType:=xlSourceRange, _" on the second line, and you need to include "End With" at the end...

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

Hope this helps!