1

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

如何仅将第一张工作表保存为 htm 格式？所以所有信息都在单个 htm 文件中？（就像 MS Word 一样）

4

3 回答 3

2

导出前删除其他工作表。

（右键单击工作表选项卡，然后单击删除）

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

于 2012-04-16T12:47:16.160 回答
1

您可以做的是将要另存为 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
于 2012-04-16T12:53:03.363 回答
0

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

于 2012-04-16T12:49:50.033 回答