Vba 将特定范围导出为HTML

我正在尝试将范围（“A1:C10”）从工作表

Sheet1

导出为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

---

Source:=

需要一个地址为范围的字符串值，而不是

range

对象

包含宏的工作簿的路径可以通过

thiswoolk.path

获取

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

---

如何在代码

Filename:=file1

中设置file1的值？