Excel VBA質問箱 IV

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

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


11148 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【17667】選択範囲をWeb形式で保存
質問  かいと  - 04/9/4(土) 16:31 -

引用なし
パスワード
   選択範囲(この場合I2:V44)をWeb形式で保存するプログラムを作ってます。
とりあえず、テキストを写したのですがうまく動きません。
最後の "wPage.Publish True"でエラーがでます。

どなたか教えてください。よろしくお願いします。


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

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

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

>選択範囲(この場合I2:V44)をWeb形式で保存するプログラムを作ってます。

Web形式で保存するプログラムは作ったことがないのですが、少しどんなものかと見てみました。

>とりあえず、テキストを写したのですがうまく動きません。
>最後の "wPage.Publish True"でエラーがでます。

どういうエラーなのでしょうか?

>  'Title:="GRAPH")

直接関係ないかもしれませんが、「'」はいらないのではないでしょうか?
ここだけが問題であとはうまくいきそうです。
存在しないパスを指定したり、存在しないシートを指定したりしても、
wPage.Publish True
ではエラーになりません。その前段でエラーになります。

【17679】Re:選択範囲をWeb形式で保存
発言  かいと  - 04/9/4(土) 21:29 -

引用なし
パスワード
   ▼かみちゃん さん:

こんにちは。
すいません、この「’」はいろいろ試したときに消し忘れた奴です。
これをはずしてもエラーが出ます。
エラーコードがちょっと忘れてしまったのですが(1004だったような
気がするけど、不確かです)。

他にありますでしょうか?


>
>直接関係ないかもしれませんが、「'」はいらないのではないでしょうか?
>ここだけが問題であとはうまくいきそうです。
>存在しないパスを指定したり、存在しないシートを指定したりしても、
>wPage.Publish True
>ではエラーになりません。その前段でエラーになります。

【17694】Re:選択範囲をWeb形式で保存
回答  shousuke WEB  - 04/9/5(日) 0:50 -

引用なし
パスワード
   Set wpage = ActiveWorkbook.PublishObjects.Add _
  (SourceType:=xlSourceRange, _
  Filename:="C:\Documents and Settings\ (省略)\graph1.htm", _
  Sheet:="sheet1", _
  Source:="I2:V44", _
  Title:="GRAPH").wpage.Publish(True)

これでよいはずです。

●'が不要なこと
●wpageのまえに.がないこと
●Trueは()で囲ってください。

それでは

【17734】Re:選択範囲をWeb形式で保存
発言  かいと  - 04/9/6(月) 21:53 -

引用なし
パスワード
   ▼shousuke さん:

すいません。やっぱりダメでした。

"コンパイル エラー
メソッドまたはデータメンバが見つかりません。"

とエラーが出ます。
ちなみに前回の段階で出ていたエラーは

"実行時エラー ’1004':
アプリケーション定義またはオブジェクト定義のエラーです。"

でした。wpageを定義する必要があるのでしょうか?
あまりに初心者なので、どなたかお助けください。
どうぞよろしくお願いします。

【17738】Re:選択範囲をWeb形式で保存
発言  shousuke WEB  - 04/9/6(月) 23:16 -

引用なし
パスワード
   私の環境はWin2000/Excel2000なのですが...
試しにマクロ記録してみたらどうですか?

【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", _
が、存在しない存在しないシートを指定していたりすると、
このエラーが私の環境では出ました。

【17791】Re:選択範囲をWeb形式で保存
発言  かいと  - 04/9/7(火) 21:37 -

引用なし
パスワード
   ▼かみちゃん さん:

どうもありがとうございます。

少し私の状況を説明いたしますと、私はこのVBA作成を会社でやっており、
ここの質問箱の投稿を自宅でやっております。
会社の環境はWin2k/Excel2kですが、自宅はoffice97のためこの作業は出来ません。

かみちゃん さんの環境で動いたという構文が正にテキストに書いてあった
ものであり、そう考えると環境の問題かな。。。と思ってます。
今日は、マクロの自動書き込みで書いたもの(マクロでは動く)
をコピーして試したところ、それでもダメでした。

エラーコードもかみちゃんさんとは異なります。
う〜ん。お手上げ気味です。

【17864】Re:選択範囲をWeb形式で保存
発言  shousuke WEB  - 04/9/8(水) 23:56 -

引用なし
パスワード
   Excelのバージョンを取得して、それによって分岐させたらどうですか?
バージョンを知るにはワークシート関数のinfoを参照してみてください。

実はあのコード、マクロ記録でもとれるんですよ。
その一部を変えただけです。

どうですか?

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