Save a Web Page

  • Thread starter Thread starter Tim Reape
  • Start date Start date
T

Tim Reape

I use the "Save as Web Page" function to generate my
html pages and it works fine.
I want to autoimate the process and I'm wondering if it's
possible to script this process? Any Ideas?

Thanks in Advance

Tim
 
-----Original Message-----
I use the "Save as Web Page" function to generate my
html pages and it works fine.
I want to autoimate the process and I'm wondering if it's
possible to script this process? Any Ideas?

Thanks in Advance

Tim
.
Click to expand...

I wrote a simple macro to open an auto-updating file and
then perform a "Save as Web Page" function to publish the
updated report statistics, due to my having to do the same
daily. Try it out:

Sub SaveasWebPage

ChDir "C:\XFileLocation"
Workbooks.Open Filename:="XFileURL"
With ActiveWorkbook.PublishObjects("XSaveasFile")
.HtmlType = xlHtmlStatic
.Publish (False)
End With
ChDir "J:\XLocationtoPublish"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
 
Back
Top