Web ページとして保存
Sub file_save_web()
	ActiveWorkbook.SaveAs Filename:="C:\My Documents\Book1.htm", _
	                      FileFormat:=xlHTML
	'C:\My DocumentsにBook1.htmファイルとして保存
End Sub