ウェブからExcelデータを取得する
2021-12-02 00:00:00
以前にウェブからデータを取得するというページを作成しましたが、Excelのデータを取得する場合には簡単な方法があるのに気が付きましたのでご紹介します。
下のようにWorkbooks.Openのファイル名にURLで指定するとウェブ上のエクセルをダウンロードして開くことができます。
Dim bk as Workbook
Set bk = Workbooks.Open("http://filefish.net/works/TournamentTable.xlsm")
あとは普通にファイルを開いた時のように、値の取得やコピーなどができます。ファイルをダウンロードしたいだけなら下のようにそのまま名前を付けて閉じればいいです。
bk.SaveAs "c:\data\TournamentTable.xlsm" bk.Close
社内のイントラに載っているエクセルのデータをVBAで使いたいとき、わざわざダウンロードするてまなしに開くことができるので役立っています。