複雑な Excel ファイルを html 形式で保存したい。[名前を付けて保存] ダイアログで簡単に実行できますが、同じ名前の htm ファイルとフォルダー + .files が生成されます。ここで、filelist.xml、sheet001.htm、sheet002.htm、...
最初のシートだけを htm 形式で保存するにはどうすればよいですか? では、すべての情報が 1 つの htm ファイルにあるのでしょうか?(MS Word のように)
エクスポートする前に、他のシートを削除してください。
(シート タブを右クリックし、[削除] をクリックします)
保存するときは、選択内容を Web ページに変更し、[selection:sheet
公開] ボタンを選択して、必要に応じて続行します。
できることは、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
見つかった解決策 - 選択したシートのみを保存するラジオ ボタンがあります