Excel 情報収集用マクロメモ1

※記載内容はメモとして作成しているため、修正が必要な部分があるかもしれません。

指定したWEBページから表をコピーするマクロ

With ActiveSheet.QueryTables.Add _
     (Connection:="URL;http://info.finance.yahoo.co.jp/ranking/?kd=1&tm=d&mk=1", _
     Destination:=Range("$B$8"))

    .WebSelectionType = xlSpecifiedTables
    .WebTables = "1"

    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True

    .Refresh

End With

指定値
Connection              URL指定
Destination              貼り付け先指定
WebSelectionType = xlSpecifiedTables       webページ内の一部を取得する
WebTables = "1"              表１を指定、同ページ内で複数指定する場合は"1,2,3"と、要素番号を指定

テキスト形式を指定
WebFormatting = xlWebFormattingNone
WebPreFormattedTextToColumns = True