返回列表 上一主題 發帖

[發問] EXCEL VBA抓資料(非表單)

[發問] EXCEL VBA抓資料(非表單)

本帖最後由 super16666 於 2016-6-25 22:11 編輯

想問怎樣抓下面的資料,我是在TDCC境外平台 (http://structurednotes-announce.tdcc.com.tw/Snoteanc/)

因為論文需要,想要一口氣抓下方所有的資料(如下圖),可是這個真的太多了...
如圖:

進去網站之後,點左側"商品總覽"→"發行人/總代理人"
我想要一口氣把所有"發行人/總代理人"下方的表格都下載下來
如圖:

可是有兩個困難點
1. 第一個就是從EXCEL的時候,如果我直接COPY網址,他只會連到這個首頁...這樣子就不能直接抓表格...
2. 就是他的頁碼介面很不友善,只能一頁一頁點,也要點到最後一頁才知道總共有幾頁,而且假設你要到第十頁只能一頁一頁點...
如圖:

想問問看有沒有大神可以一口氣下載全部資料...
救救小妹我的論文QQ

目前有網友是建議用createobject("internetexplorer.application"),不過我已經嘗試好久了真的弄不太出來,有人可以稍微指點一下嗎?

謝謝Q_Q 救救我的論文...真的不行就只能一個一個點了...

目前我已經摸索出來怎樣選出發行人 和 按下查詢的按鈕了

現在卡在下面兩點:
1. 得知總共頁數有幾頁
2. 如何換頁

有找到網頁原始碼的位置了,如下:
-------------------------------------
                                        <img src="/Snoteanc/images/fp.gif" style="border:none"
                                                onClick="setPage('1')">
                                        <img src="/Snoteanc/images/ppn.gif" style="border:none"
                                                onClick="setPage('1')">
                                        <strong><font size="2">1</font></strong>
                                        <img src="/Snoteanc/images/np.gif" style="border:none"
                                                onClick="setPage('2')">
                                        <img src="/Snoteanc/images/lp.gif" style="border:none"
                                                onClick="setPage('46')">


        function setPage(p){
          form.ORDER_BY.value = 'FUND_NAME';
           var asc = '0';
           if(asc == '1'){
            asc = "0";
           }
           else{
            asc = '1';
           }
           form.IS_ASC.value =  asc;
             form.currentPage.value = p;
                          checkBeforeSubmit();
        }
       

-------------------------------------

QQ

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題