Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63587 / 76732 ←次へ | 前へ→

【17740】Re:選択範囲をWeb形式で保存
発言  かみちゃん  - 04/9/7(火) 7:16 -

引用なし
パスワード
   shousuke さん、かいとさん、こんにちは。かみちゃん です。

> Private Sub CmbUPDATE_Click()
>  Set wpage = ActiveWorkbook.PublishObjects.Add _
>    (SourceType:=xlSourceRange, _
>    Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
>    Sheet:="sheet1", _
>    Source:="I2:V44", _
>    Title:="GRAPH").wpage.Publish(True)
> End Sub

私の環境は、WindowsXP HomeEdition、Excel2002ですが、shousuke さんのこのコードでは、かいとさんがおっしゃている「コンパイル エラー メソッドまたはデータメンバが見つかりません。」となります。

Private Sub CmbUPDATE_Click()
 Set wpage = ActiveWorkbook.PublishObjects.Add _
   (SourceType:=xlSourceRange, _
   Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
   Sheet:="sheet1", _
   Source:="I2:V44", _
   Title:="GRAPH")
 wPage.Publish True
End Sub

とすると、私の環境ではうまく動くようです。

> ちなみに前回の段階で出ていたエラーは
>
> "実行時エラー ’1004':
> アプリケーション定義またはオブジェクト定義のエラーです。"

かいとさん、こういう情報は、一番最初に出してください。
それと、このエラーは
>最後の "wPage.Publish True"でエラーがでます。
ではなく
 Set wpage = ActiveWorkbook.PublishObjects.Add _
 〜
   Title:="GRAPH")
で出ていませんか?

   Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
が、存在しないパス(フルパスのファイル名)を指定していたり
   Sheet:="sheet1", _
が、存在しない存在しないシートを指定していたりすると、
このエラーが私の環境では出ました。
1 hits

【17667】選択範囲をWeb形式で保存 かいと 04/9/4(土) 16:31 質問
【17668】Re:選択範囲をWeb形式で保存 かみちゃん 04/9/4(土) 16:45 発言
【17679】Re:選択範囲をWeb形式で保存 かいと 04/9/4(土) 21:29 発言
【17694】Re:選択範囲をWeb形式で保存 shousuke 04/9/5(日) 0:50 回答
【17734】Re:選択範囲をWeb形式で保存 かいと 04/9/6(月) 21:53 発言
【17738】Re:選択範囲をWeb形式で保存 shousuke 04/9/6(月) 23:16 発言
【17740】Re:選択範囲をWeb形式で保存 かみちゃん 04/9/7(火) 7:16 発言
【17791】Re:選択範囲をWeb形式で保存 かいと 04/9/7(火) 21:37 発言
【17864】Re:選択範囲をWeb形式で保存 shousuke 04/9/8(水) 23:56 発言

63587 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free