Excelシート内容をHTML化した時のエラー

質問

下記URL内容を参考にして、以下のようにVBAソースプログラムを作成し、実行しました所、「実行時エラー1004、アプリケーション定義またはオブジェクト定義のエラーです。」とエラーメッセージがでます。関連サイトを探して色々とデバッグしてみたのですが、どうしてもクリアできません。どうか、ご教授・ご指導願います。

https://docs.microsoft.com/en-us/office/vba/api/excel.publishobjects.add

＜VBAソースプログラム＞

Option Explicit

Sub HTML出力()
ActiveWorkbook.PublishObjects.Delete
With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
FileName:="C:\株式情報取得.html", Sheet:="株式情報取得", Source:=Worksheets("株式情報取得").Range("A1:Q40"), _
HtmlType:=xlHtmlStatic, DivID:="Book1_4170", Title:="株式情報取得")
.Publish (True)
.AutoRepublish = False
End With
End Sub

回答No.2

kkkkkm · ベストアンサー

> 「Source:="$A$1:$Q$40"」と訂正した所、今度は「.Publish (True)」の行で、
> 「実行時エラー1004、Publishメソッドは失敗しました　'Publish'オブジェクト」
> というエラーがでました。

FileName:="C:\株式情報取得.html",
これは実際の場所なのでしょうかC直下だと駄目みたいです。フォルダしか作れない。
NameのNが大文字なのも気になるのですが、こちらでは自動でnameになりました。

お礼

Cドライブに「株式情報」ファルダを作成し、
「FileName:="c:\株式情報\株式情報取得.html"」と編集して実行した所、
うまくHTMLファイルが作成できました。

お付き合い頂き、本当にありがとうございました。

回答No.1

kkkkkm

シートはすでに
Sheet:="株式情報取得",
で指定していますので
Source:="$A$1:$Q$40"
でいいのではないでしょうか。

補足

早速のご回答、誠にありがとうございます。

「Source:="$A$1:$Q$40"」と訂正した所、今度は「.Publish (True)」の行で、
「実行時エラー1004、Publishメソッドは失敗しました　'Publish'オブジェクト」
というエラーがでました。

「.Publish (True)」⇒「.Publish True」に編集したりしたのですが、うまくいきません。