用SAS抓取Yahoo Finance上任意一只股票任意时间段各种数据的宏

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这个宏本来是本学期SAS课程的一个小作业，本人感觉用处很广，可以抓取数据以后做各种分析。支持全球任意股市。所以就把老师给的参考答案发上来造福大家。只作为学习分享用，版权属于Shusong Jin老师。 new_get_hist_quote.zip (1.33 KB, 需要: 3 个论坛币) 本附件包括：

• new_get_hist_quote.sas

2014-1-3 20:45:04 上传

抓取股票数据的宏
需要: 3 个论坛币  [购买]

扫码加我 拉你入群

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

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

分享0 收藏7 回帖

关键词：Finance Financ YAHOO Finan Nance yahoo 参考答案 时间段 课程

请问这个支持动态抓取吗？

测试可用

*我们的SAS老师也给出了一个类似题目的答案，但是运行的时候有个地方有错误，希望大家能帮忙纠正，谢谢！代码如下;

%macroget_hist_quote(instrument=msft,start='01jan2000'd,end=,out=) ;

     

    %localinstrument start end;

    %locals a b c d e f g q y z x url;

   

    %if(%superq(instrument)eq ) %then

        %letinstrument=msft;

    %letinstrument=%lowcase(&instrument);

    %if(%superq(end) eq ) %then

        %letend=%str(%')%sysfunc(today(),date9.)%str(%'d);

    %if(%superq(start) eq ) %then

        %letstart='01jan2000'd;

   

    %if(%superq(out) eq ) %then

        %letout=inst_%sysfunc(compress(&instrument,%str(-./^)));

    %lets=&instrument;

    %leta=%sysfunc(month(&start));

    %let a=%eval_r(&a-1);

    %letb=%sysfunc(day(&start));

    %if &b < 10 %then %let b=0&b;

    %letc=%sysfunc(year(&start));

    %letd=%sysfunc(month(&end));

    %let d=%eval_r(&d-1);

    %lete=%sysfunc(day(&end));

    %if&e < 10 %then %let e=0&e;

    %letf=%sysfunc(year(&end));

    %letg=d;

    %letq=q;

    %lety=0;

    %letz=&s;

    %letx=.csv;

    %letand=%str(&);

    %let url=http://ichart.finance.yahoo.com/table.csv;

    %leturl=&url.?s=&s;

    %leturl=&url.&and.d=&d.&and.e=&e.&and.f=&f;

%leturl=&url.&and.g=&g;

    %leturl=&url.&and.a=&a.&and.b=&b.&and.c=&c;

    %leturl=&url.&and.ignore=.csv;

    %put&url;

   

    data_null_;

      numb= ceil (ranuni(0)*10000000);

      r= 'A' || put(numb, Z7.);

      callsymput ('ran', r);

    run;

   

    filenamemyquote url "&url";

    data&ran;

        infilemyquote dlm=',' dsd firstobs=2;

        

        informatDate yymmdd10. ;

        formatDate yymmdd10. ;

        retaininstrument "&instrument";

        inputdate

              Open

              High

              Low

              Close

              Volume

              Adj_Close;

   

    procsql;

        createtable &out as

            selectdistinct *

              from&ran

              wherevolume ^= 0

              orderby date;

    quit;

    odsselect none;

    procdatasets;

        delete&ran;

    run;

    odsselect all;

%mend get_hist_quote;

%get_hist_quote(instrument=600196.SS,start='01jan1991'd,end=,out=);

看一下看一下

哇哦，这么多年了，竟然还有人下载。感谢大家！我已经从物理本科生变成统计phd了....多亏SAS