阿Q吧 > 怎么用VBA将Excel中的sheet页单独保存为HTML文件,并且HTML不会随着修改Excel文件而变动？

怎么用VBA将Excel中的sheet页单独保存为HTML文件,并且HTML不会随着修改Excel文件而变动？

2024-11-03 06:33:54

推荐回答（1个）

回答1：

试试下面的代码，是将sheet1 保存为 html格式。

Sub Chief()
iPath = ThisWorkbook.Path & "\"             '(保存路径为当前工作簿所在路径)
myN = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=iPath & myN & ".html", FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
       '(工作表名称为文件名）
ActiveWorkbook.Close
End Sub
 
'打开询问时不启用ACTIVEX即可