| |
winxp he sp3, hm707, hmex402f, excel2003
使い勝手の観点から、HMEXマクロにしたいのです。
現状、excelマクロでやっていますが、重いのです。
銘柄.txtを読み込んで、下記マクロ結果を出したいのです。
実は、この続きがあります。このマクロの後処理です。
手順：
銘柄.txtから各銘柄コードを足して、注aの様にします。
yahoo制限 一度に50個までです。約2000個の場合、50個毎に分割処理します。
注aを起動しますと、一覧表が出ます。
この一覧表をHMEXでdownloadします。
その後、マクロ結果の様にデータを整理します。
銘柄.txt：約2000個
1844,大盛工業
8840,大京
5934,日本アルミ
8928,穴吹興産
8426,ニッシン債権回収
2318,ビービーネット
3242,アーバネットコーポレーション
マクロ結果：
1844,大盛工業 ,東証2部
8840,大京 ,東証1部
5934,日本アルミ ,大証2部
8928,穴吹興産 ,大証1部
8426,ニッシン債権回収 ,マザーズ
2318,ビービーネット ,ヘラクレス
3242,アーバネットコーポレーション ,JASDAQ
参考マクロ：
setcompatiblemode 0x200;
newfile;
disabledraw;
openfile "http://quote.yahoo.co.jp/q?s=1844+8840+5934+8928+8426+2318+3242&d=
v1"; --------注a
//if( readonly ) readonlyswitch;
gofiletop;
setclipboard "";
while(1){
searchdown "([0-9][0-9][0-9][0-9])\\n *\\n(.+)\\n", regular;
if(result==false)break;
appendcopy;
}
closenew;
paste;
replaceallfast "([0-9][0-9][0-9][0-9])\\n *\\n(.+)\\n", "\\1,\\2\\n",regular;
よろしくお願いします。
|
|