將excel文件保存爲html格式會生成很多sheetXXX.htm

Question

我想將複雜的Excel文件保存爲html格式。它可以通過另存爲對話框輕鬆完成，但它會生成具有相同名稱+ .files的htm文件和文件夾，其中是filelist.xml，sheet001.htm，sheet002.htm，...

如何僅保存第一張到htm格式？因此，所有的信息都在單個htm文件中？（與MS Word一樣）

Answer 1

在導出之前刪除其他表格。

（右鍵單擊工作表標籤，然後點擊刪除）

保存時選擇改變爲網頁並選擇selection:sheet按下按鈕發佈，並繼續適當。

Answer 2

找到解決方案 - 有單選按鈕，只保存選定的板

Answer 3

你可以做的就是複製要作爲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