将特定范围导出为 HTML答案

【问题标题】：Export specific range into an HTML将特定范围导出为 HTML
【发布时间】：2015-06-01 14:46:15
【问题描述】：

我正在尝试将工作表 Sheet1 中的范围 ("A1:C10") 导出为 HTML 并将其保存在与当前工作簿相同的目录中。我也想保留源格式。

我正在使用以下代码，但出现错误，我无法将目标文件夹定义为当前工作簿所在的同一文件夹。

Sub Export()
Dim rng As Range

Set rng = Sheets("Sheet1").Range("A1:C10")
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=file1, _
sheet:="Sheet1", _
Source:=rng, _
HtmlType:=xlHtmlStatic).Publish

End Sub

我也试过这个：

Sub Export()
Dim rng As Range


Set rng = Sheets("sheet1").Range("A1:C10")
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
fileName:="C:\exported.xlsx", _
Sheet:="Sheet1", _
Source:=rng, _
HtmlType:=xlHtmlStatic).Publish

End Sub

【问题讨论】：

代码Filename:=file1中file1的值如何设置？

标签： vba excel

【解决方案1】：

Source:= 需要一个具有范围地址的字符串值，而不是 Range 对象。

可以通过ThisWorkbook.Path获取包含宏的Workbook的路径。

Sub Export()
 Dim rng As Range

 file1 = ThisWorkbook.Path & "\" & "test.html"

 Set rng = Sheets("Tabelle1").Range("A1:C10")

 ActiveWorkbook.PublishObjects.Add( _
 SourceType:=xlSourceRange, _
 Filename:=file1, _
 Sheet:=rng.Worksheet.Name, _
 Source:=rng.Address, _
 HtmlType:=xlHtmlStatic).Publish

End Sub

【讨论】：