将所有工作表保存为HTML文件

我一直在使用以下脚本将.xlsx文件转换为HTML网页。 现在我需要将这个工作簿中的所有工作表保存为HTML，这个function不起作用。

Const xlHtml = 44 Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open "C:\Workbook\newitems.xlsx" objExcel.ActiveWorkbook.SaveAs "C:\Workbook\newitems.html", xlHtml objExcel.Quit 

谢谢你的帮助

Answer 1

您将需要迭代文件中的每个工作表并为其保存一个输出文件：

 Const xlHtml = 44 Sub SaveAllTabsAsHtmlFiles() Set objExcel = CreateObject("Excel.Application") ' open that source file objExcel.Workbooks.Open "C:\Workbook\newitems.xlsx" ' iterate all sheets in source file For i = 1 To objExcel.ActiveWorkbook.Worksheets.Count ' select each sheet objExcel.ActiveWorkbook.Worksheets(i).Select ' get name of current sheet sheetname = objExcel.ActiveWorkbook.Worksheets(i).Name ' name of output file (I added underscore + sheetname) outputfile = "C:\Workbook\newitems_" & sheetname & ".html" ' save current sheet as html objExcel.ActiveWorkbook.SaveAs Filename:=outputfile, FileFormat:=xlHtml Next i 'done objExcel.Quit End Sub