Question

我想将复杂的Excel文件保存为html格式。可以使用“另存为”对话框轻松完成，但它会生成同名+ .files的htm文件和文件夹，其中是filelist.xml，sheet001.htm，sheet002.htm，...

如何只将第一张纸保存为htm格式？那么所有的信息都在于单个htm文件？（就像MS Word那样）

Answer 1

导出前删除其他工作表。

（右键单击工作表标签，然后单击删除）

保存时将选择更改为网页并选择selection:sheet按钮，然后按发布并继续。

Answer 2

您可以做的是将要保存为HTML的工作表复制到新工作簿，并将该新工作簿另存为HTML。例如：

Public Sub doIt()

    hardCopyToNewBook
    saveFile "C:\temp\fileName.html"

End Sub

Private Sub hardCopyToNewBook()

  Dim tabs As Variant
  Dim s As Worksheet

  tabs = Array("Sheet1", "Sheet2")

  Sheets(tabs).Copy
  For Each s In ActiveWorkbook.Sheets
    With s
      .Cells.Copy
      .Cells.PasteSpecial Paste:=xlPasteValues
    End With
  Next s

  Application.CutCopyMode = False

End Sub

Private Sub saveFile(htmlFileName As String)

  Application.DisplayAlerts = False
  Application.DefaultWebOptions.SaveHiddenData = False

  On Error Resume Next
  Call ActiveWorkbook.SaveAs(fileName:=htmlFileName, FileFormat:=xlHtml)
  ActiveWorkbook.Close
  Application.DisplayAlerts = True

End Sub

Answer 3

找到解决方案 - 有单选按钮可以仅保存选定的工作表

将excel文件保存为html格式会生成许多sheetXXX.htm

3 个答案: