リスト3：Excelワークシート上の特定の範囲を、HTMLファイルとして書き出すプロシージャ Public Sub MakeHtml() ActiveWorkbook.PublishObjects.Add( _ 　SourceType:=xlSourceRange, _ 　Filename:="C:\My Documents\example.htm", _ 　　　　　　　　　↑HTMLファイルの場所と名前 Sheet:="Sheet1", _ 　　　　　　↑シート名 Source:="A1:D10", _ 　　　　　　　↑書き出したい範囲 HtmlType:=xlHtmlCalc).Publish 　　　　　　　　　　　　　　　↑Publishメソッドで書き出す End Sub 本文へ戻る