テーブル名は「テーブル1[#すべて]」のように指定するとヘッダーも含め出力できます。 「テーブル1」だけだと、Bodyしか出力されません。 Public Sub PublishHtmlTable() With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Users\【User名】\Desktop\BookTest.html", "Sheet1", "テーブル1[#すべて]", xlHtmlStatic, _ "XXXX", "") '任意のHTMLのIDを指定 .Publish (True) .AutoRepublish = F…