Excel VBA質問箱 IV

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

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


5468 / 13646 ツリー ←次へ | 前へ→

【50521】Webクエリ Rin 07/7/30(月) 22:10 質問[未読]
【50522】Re:Webクエリ かみちゃん 07/7/30(月) 22:23 発言[未読]
【50523】Re:Webクエリ Rin 07/7/30(月) 22:29 お礼[未読]
【50615】Re:Webクエリ Rin 07/8/5(日) 0:44 質問[未読]
【50616】Re:Webクエリ かみちゃん 07/8/5(日) 9:27 発言[未読]
【50617】Re:Webクエリ Rin 07/8/5(日) 9:42 お礼[未読]

【50521】Webクエリ
質問  Rin  - 07/7/30(月) 22:10 -

引用なし
パスワード
     With ActiveSheet.QueryTables.Add(Connection:=strURL, _
     Destination:=Range("A1"))
    .WebSelectionType = xlAllTables   'ページ全体
    .WebFormatting = xlWebFormattingNone '取り込み形式は指定なし
  End With

アプリケーション定義またはオブジェクト定義のエラーです。
というエラーが出て回避できません
strURLにはURLを入れています。
いろいろと調べたのですが
どうしてもここでエラーが出てしまいます。

どなたか教えて頂けませんか?
宜しくお願い致します

【50522】Re:Webクエリ
発言  かみちゃん  - 07/7/30(月) 22:23 -

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

>アプリケーション定義またはオブジェクト定義のエラーです。
>というエラーが出て回避できません
>strURLにはURLを入れています。

変数strURLの内容に問題があると思います。
Webクエリをマクロの記録で記録して確認してみてください。

URLの先頭に"URL;"という文字列があると思いますが、その記述がないと、
おっしゃるとおりのエラーになります。

または、
Connection:=strURL

Connection:="URL;" & strURL
とすればいいと思います。

【50523】Re:Webクエリ
お礼  Rin  - 07/7/30(月) 22:29 -

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

ご回答、
本当に、本当に有難うございました!!!!
"URL;" が必要とは本に載ってませんでした・・・

本当に感謝しています!
有難うございました!!!

【50615】Re:Webクエリ
質問  Rin  - 07/8/5(日) 0:44 -

引用なし
パスワード
   Webクエリ実行後に

With ActiveSheet.QueryTables.Add(Connection:="URL;" & strURL, _
   Destination:=Range("A1"))
   .WebSelectionType = xlAllTables   'ページ全体
   .WebFormatting = xlWebFormattingNone '取り込み形式は指定なし
   .Refresh
End With

の後にシートをアクティブにして
Set VarAnswer = Cells.Find(strFind, After:=ActiveCell)
を実行させたいのですが。。。
Nothingが返ってきます。

デバックをして調べると
Refresh後、まだデータが取り込まれていません。
Timerを使ってもデータが取り込まれません。
データが取り込まれてから
その文字があるか否かを調べるにはどうしたら良いのでしょう?

宜しくお願い致します。

【50616】Re:Webクエリ
発言  かみちゃん  - 07/8/5(日) 9:27 -

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

>Refresh後、まだデータが取り込まれていません。

 .Refresh
を以下のようにしてみてください。
 .Refresh BackgroundQuery:=False

【50617】Re:Webクエリ
お礼  Rin  - 07/8/5(日) 9:42 -

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

解決できました!
本当に有難うございました!!!

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