webデータの取り込み
winxp he sp3, excel2003
下記a1は、データが取り込めます。a2はデータが取り込めません。web接続中の表示が出ます。
対策を教えてください。よろしくお願いします。
Sub a1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://member.rakuten-sec.co.jp/ITS/Companyfile/margin_restriction.html#9000" _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
End Sub
Sub a2()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://member.rakuten-sec.co.jp/app/com_page_template.do;BV_SessionID=MbGLLn3TQcKDczyjTp3j!-1697526501?type=info&sub_type=" _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.Refresh BackgroundQuery:=False
End With
End Sub
お礼
もっともです。