分享一个可以下载股票行情数据的宏

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

经验本人验证可用 但只能取03年以后的数据
/* 从yahoo.com读取股票行情数据*/
%macro quotes (code=, start=, end=, prompt=NO);
%local code start end;
%local s _start _end a b c d e f g url;
%if (%superq(code) eq ) %then %let code=000001.SZ;
%let code = %upcase (&code);
%if (%superq(end) eq )
%then %let end = %sysfunc(today(),mmddyy8);
%if (%superq(start) eq ) %then %do;
%let start = %sysfunc(inputn(&end,mmddyy8.));
%let start = %eval (&start-30);
%let start = %sysfunc(putn(&start,mmddyy8.));
%end;
%if (%upcase(&prompt) eq YES) %then %do;
%window quotes rows=12 columns=30
[email=#2@2]#2@2[/email] "code: " code 4 c=blue a=rev_video
[email=#4@2]#4@2[/email] "Start: " start 8 c=blue a=rev_video
[email=#6@2]#6@2[/email] "End: " end 8 c=blue a=rev_video
;
%display quotes;
%end;
%let code = %upcase (&code);
%if (%superq(end) eq )
%then %let _end = %sysfunc(today());
%else %let _end = %sysfunc(inputn(&end ,mmddyy10.));
%if (%superq(start) eq )
%then %let _start = %eval (&_end-30);
%else %let _start = %sysfunc (inputn(&start,mmddyy10.));
%let s = &code;
%let a = %sysfunc (month(&_start)); %let a=%eval(&a-1);
%let b = %sysfunc (day (&_start));
%let c = %sysfunc (year (&_start));
%let d = %sysfunc (month(&_end)); %let d=%eval(&d-1);
%let e = %sysfunc (day (&_end));
%let f = %sysfunc (year (&_end));
%let g = d;
%let and = %str(&);

%let url = http://ichart.finance.yahoo.com/table.csv;
%let url = &url.?s=&s;
%let url = &url.&and.a=&a.&and.b=&b.&and.c=&c;
%let url = &url.&and.d=&d.&and.e=&e.&and.f=&f;
%let url = &url.&and.g=&g;
%let url = &url.&and.ignore=.csv;
%put &url;
filename quotes URL "&url";
data stockquotes;
infile quotes dlm=",";
retain code "&code";
if _n_ = 1 then input; * skip header row;
input date date9. opening highest lowest closing volume;
format date yymmdd10.;
format volume comma11.;
run;
%bye:
%mend;
/*
调用格式如:
%quotes (code=aol, prompt=YES);

%quotes (code=000001.SZ, start=4/1/03, end=4/10/2010);

其中:code为股票代码,美国股票代码不用加后缀,深市代码后加.SZ,沪市代码后加.SS,如000001.SZ为深发展代码,
详见http://finance.yahoo.com/l
start和end分别为起止日期,格式为mm/dd/yyyy
prompt:是否弹出窗口输入上述参数

ps. 沪深股票行情数据好象每次最多只能下载200个记录.
*/
%quotes (code=000001.SZ, start=1/1/2003, end=9/30/2005);

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：股票行情数据 行情数据 股票行情 filename sysfunc

自己顶顶
弄点股票数据自己分析玩玩还是挺有趣味的

开盘、收盘、最高、最低和交易量
很可能就陷入所谓技术分析的泥潭

上周我们金融工程的老师讲了些股票的心得
JL目前正在分析

期待你们的结果。。。。。。

期待另一个“带头大哥”

我觉得宏程序博大精深啊
好好研究

crackman 发表于 2010-4-28 18:02
我觉得宏程序博大精深啊
好好研究

确实 我已经听到很多次用博大精深来形容宏了

越看越眼熟～

楼主，你运行了吗？我运行了一下，还有一些地方有问题啊。不知道你遇到没有？