Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31368 / 76732

←次へ　｜　前へ→


	【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を使ってもデータが取り込まれません。
データが取り込まれてから
その文字があるか否かを調べるにはどうしたら良いのでしょう？

宜しくお願い致します。

0 hits

▼

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