如何将EXCEL 2010中的选定单元格导出为HTML。 每次导出的像元范围可能不同吗？

Question

I am looking to export selected cells in EXCEL 2010, to an HTML file.

The selected cells will change before each export so the cell range can't be hard coded into the VBA. The Macro I have recorded for one export produced this VBA:

Sub ExportHTML()

    Range("A1").Select '
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "Q:\Library Resource Centre\AR\AR Project 2015-16\Admin.htm", "Export", _
        "A1:AI26", xlHtmlStatic, "Admin_20257", "")
        .Publish (True)
        .AutoRepublish = False
    End With
End Sub

I have not been able to find a way of changing: "A1:AI26" to match the cells selected.

I hope someone can help, Thank you.

Answer 1

Without further optimization:

Sub ExportHTML()
  dim wks as worksheet
  dim strRng as String

  set wks=Thisworkbook.Worksheets(1) 'Assuming you are working with the 1st Worksheet. Adjust insex number if needed.
  strRng = wks.Range("A1", ActiveCell.SpecialCells(xlLastCell)).address

  With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
      "Q:\Library Resource Centre\AR\AR Project 2015-16\Admin.htm", "Export", _
      wks.Name & "!" & strRng, xlHtmlStatic, "Admin_20257", "")
      .Publish (True)
      .AutoRepublish = False
  End With
End Sub