Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5487 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼かみちゃん さん：

解決できました！
本当に有難うございました！！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5487 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free