Excel export cell range to HTML via Macro

[griffj]

Hi

I have the following macro which exports my sheet (Page1) as an HMTL file and it works well, except it exports the entire page. I was wondering if it could be modified to export only a selection of cells on the page? such as A1:CN106?

Sub HTML_File()

    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\Exports\Page1.htm", "Page1", , xlHtmlStatic, , "")
        .Publish (False)
        .AutoRepublish = True
    End With
    
End Sub

Thanks to L42's answer on Stackoverflow for the macro

Thanks

 

[JoeMo]

I have never used PublishObjects and know absolutely nothing about it, but from this example from Excel VBA help, it appears that you can do a modification to export a range. Hope this helps.

PublishObjects.Add Method


Example

This example saves the range D5:D9 on the First Quarter worksheet in the active workbook to a Web page called Stockreport.htm.

Visual Basic for Applications
With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _ Filename:="\\Server\Stockreport.htm", Sheet:="First Quarter", Source:="$G$3:$H$6", _ HtmlType:=xlHtmlStatic, DivID:="Book1_4170") .Publish (True) .AutoRepublish = False End With