HP excelデータを取り込むマクロ

質問

office2003, winxp he sp2
Q:
下記HPにあるexcelデータを取り込むマクロを教えてください。
現在、PCにdownloadして、展開　copy　貼り付け　でやっています。
これを自動化したいのです。

日本証券金融
http://www.jsf.co.jp/de/view.php?id=179&category=11
貸借取引対象銘柄および代用有価証券適格銘柄一覧 銘柄一覧表(08/1/11）
http://www.jsf.co.jp/user-image/1200010163.xls

よろしくお願いします。

回答No.4

marbin

リンク先の記述をよく見ましたか？
Htmlファイルに記述してありますよ。

回答No.3

marbin

リンク先の方法を試しましたが、ダウンロードできましたよ。

htmlファイルに記述していますか？

補足

htmlファイルに記述？　分かりません。
普通のマクロ登録方法：標準モジュール　にこのマクロを書いています。
実行時エラー'1004':
'WinInetDownload.xls'が見つかりません。ファイル名およびファイルの保存場所が正しいかどうか確認してください。
「ファイル」メニューの最新使用したファイルの一覧からファイルを開こうとしている場合は、そのファイルの名前が変更されていないこと、移動または削除されていないことを確認してください。

デバッグエラー箇所：
objExcelApp.Run "'" & cnsBook & "'!GET_DAT_FILE", cnsURL & cnsData, 1

回答No.2

marbin

>下記マクロ　エラーがあります。

どこでどのようなエラーが出るのでしょう？

回答No.1

marbin

参考になると思います。
それぞれトップページではありませんが・・・。

http://www.asahi-net.or.jp/~ef2o-inue/download/sub09_020_120.html
http://puremis.net/excel/cgi-bin/click.cgi?cnt=c028&url=http://puremis.net/excel/code/028.shtml

お礼

追伸： excelデータ　毎日更新されます。

補足

ありがとう御座います。
下記マクロ　エラーがあります。

Sub Window_OnLoad()
Const cnsURL = "http://www.jsf.co.jp/user-image/1200010163.xls?"
Const cnsBook = "WinInetDownLoad.xls"
Const cnsData = "URIAGE.dat"
' Excel展開
Dim objExcelApp, objExcelBook
Set objExcelApp = CreateObject("Excel.Application")
' URL指定のワークブックを開く
Set objExcelBook = objExcelApp.Workbooks.Open(cnsURL & "Excel/" & cnsBook, , True)
objExcelApp.Visible = True
' URL指定のデータファイルをExcel側マクロに通知して開かせる
objExcelApp.Run "'" & cnsBook & "'!GET_DAT_FILE", cnsURL & cnsData, 1
' マクロが終了したブックは閉じる
objExcelBook.Saved = True
objExcelBook.Close False
Set objExcelBook = Nothing
Set objExcelApp = Nothing

End Sub

よろしくお願いします。