Excel VBA質問箱 IV

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

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


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

24153 / 76732

←次へ　｜　前へ→


	【57930】Re:このWebクエリによって返されるデータがありません　のエラーについて

かみちゃん

- 08/9/21(日) 21:38 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>今回マクロ関係なく、手動で読み込ませたらエラーが出てしまいます。

あまりそういう事象には遭遇したことがありません。

>どの様な手順で行ったのでしょうか？

WindowsXP Pro SP2 + Excel2002 SP3 の環境で以下のＶＢＡコードで試してみたところ、
取り込めました。

Sub Sample()
　Dim strURL As String
　
　strURL = StrConv("ｈｔｔｐ", vbNarrow) & "://money.www.infoseek.co.jp/MnStock/sranking/?t=r&k=r&m=0"
　With ActiveSheet
　　With .QueryTables.Add(Connection:="URL;" & strURL, Destination:=.Range("A1"))
　　　.AdjustColumnWidth = False
　　　.WebFormatting = xlWebFormattingNone
　　　.Refresh BackgroundQuery:=False
　　End With
　End With
　MsgBox "取り込みました"
End Sub

動作確認済みです。

0 hits

▼

【57926】このWebクエリによって返されるデータがありません　のエラーについて まさと 08/9/21(日) 19:24