|
こんにちは。かみちゃん です。
>今回マクロ関係なく、手動で読み込ませたらエラーが出てしまいます。
あまりそういう事象には遭遇したことがありません。
>どの様な手順で行ったのでしょうか?
WindowsXP Pro SP2 + Excel2002 SP3 の環境で以下のVBAコードで試してみたところ、
取り込めました。
Sub Sample()
Dim strURL As String
strURL = StrConv("http", 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
動作確認済みです。
|
|