123
返回列表 上一主題 發帖

[發問] 網路CSV下載問題

spermbank

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-3-29 11:35 | 只看該作者

[發問] 網路CSV下載問題

本帖最後由 GBKEE 於 2013-3-29 20:14 編輯

大家好:
     我想從http://mops.twse.com.tw/mops/web/t51sb08
     擷取上市101年第4季與上櫃101年第4季的所有CSV檔案
     可是問題來囉
     因為市場別要分別選上市或上櫃，且選擇上市又要存取多個CSV檔案；選擇上櫃又要存取多個CSV檔案，才能自行併入一個excel表格當中
     所以想請教
     如何"一次"將上市及上櫃的CSV一次匯入一個excel表格當中呢?
     謝謝
收藏 分享

randomwalk

帖子
3 
主題
1 
精華
0 
積分
4 
點名
0  
作業系統
winxp 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2013-5-17 
最後登錄
2014-12-12 
22#
發表於 2013-5-17 11:18 | 只看該作者
回復 8# diabo


    請教diabo兄
    如何檢視原始網址?
    新版的公開資訊站並無法檢視,
    望不吝指導,謝謝

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
21#
發表於 2013-4-21 18:06 | 只看該作者
感恩大大分享.

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
20#
發表於 2013-4-2 00:11 | 只看該作者
本帖最後由 HSIEN6001 於 2013-4-2 00:13 編輯

回復 19# GBKEE
回復 18# diabo

謝謝兩位幫忙解惑
你們都好棒喔!
感恩 ^__^

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
19#
發表於 2013-4-1 15:18 | 只看該作者
回復 16# HSIEN6001
只是沒法理解----->網頁表格 13 or 12  遇到不同網頁，判別方式？！

4# 這段程式碼
  1.       k = 1
  2. 47.        On Error Resume Next
  3. 48.        For xx = 網頁表格(資訊) To AA.Length - 1
  4. 49.            For i = 0 To AA(xx).Rows.Length - 1      '寫入資料
  5. 50.                k = k + 1
  6. 51.                For j = 0 To 19
  7. 52.                    Application.StatusBar = "下載資料中 ..." & k - 1
  8. 53.                    .Cells(k, j + 1) = AA(xx).Rows(i).Cells(j).innertext
  9. 54.                Next
  10. 55.            Next
  11. 56.        Next
複製代碼
改成15#這段程式碼
  1. 10.     k = 1
  2. 11.    On Error Resume Next
  3. 12.        For xx = 0 To aa.Length - 1  
  4. 13.       '不同網頁，判別方式 '找到後修改 For xx = ??? To aa.Length - 1        
  5. 14.            For i = 0 To aa(xx).Rows.Length - 1      '寫入資料
  6. 15.                Cells(k, 1) = "Table" & xx
  7. 16.                k = k + 1                            '列數
  8. 17.                For j = 0 To 19
  9. 18.                    Application.StatusBar = "下載資料中 ..." & k - 1
  10. 19.                    Cells(k, j + 2) = aa(xx).Rows(i).Cells(j).innertext
  11. 20.                Next
  12. 21.            Next
  13. 22.        Next
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
18#
發表於 2013-3-31 21:54 | 只看該作者
回復 13# HSIEN6001


1.  EXCEL的WEB查詢，也是透過IE，因此IE的設定會影響到下載的結果。
2.  IE     檢視→編碼→自動選取

抓財報彙總表.rar (327.74 KB)
diabo

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
17#
發表於 2013-3-31 19:57 | 只看該作者
不好意思,補充說明一下
#16 兩個URL 都是指同一份表格

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
16#
發表於 2013-3-31 19:44 | 只看該作者
回復 15# GBKEE

以102年1~3月為例，上市sii及上櫃otc:
網址是：
http://mops.twse.com.tw/mops/web/ajax_t56sb21?&run=&step=1&TYPEK=sii&year=102&smonth=01&emonth=03&sstep=1&firstin=true                ‘上市 sii 上櫃 otc

因為下載之後呈現亂碼，所以才用G大#4的方式
套用UR : http://mops.twse.com.tw/mops/web/t56sb21_q3?&step=0&firstin=1&off=1&TYPEK=sii&year=102&smonth=01&emonth=03  ‘上市 sii 上櫃 otc

測試完整代碼於#6 ，測試OK 的 (沒亂碼)
只是沒法理解----->網頁表格 13 or 12
遇到不同網頁，判別方式？！

PS：剛剛試 #15 的代碼，下載也呈現亂碼。

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2013-3-31 17:09 | 只看該作者
本帖最後由 GBKEE 於 2013-3-31 18:38 編輯

回復 13# HSIEN6001
刪掉 encodeURIComponent=1

回復 14# HSIEN6001
有 diabo  提供的網址好辦些
  1. Option Explicit
  2. Sub Ex()
  3. Dim ie As Object, aa As Object, k As Integer, xx As Integer, i As Integer, j As Integer
  4. ActiveSheet.Cells.Clear
  5. Set ie = CreateObject("InternetExplorer.Application")
  6.     ie.Navigate "http://mops.twse.com.tw/mops/web/ajax_t51sb13?step=1&firstin=1&off=1&TYPEK=sii&year=100&season=04"
  7.      Do While ie.Busy Or ie.ReadyState <> 4:   DoEvents:     Loop
  8.     On Error Resume Next
  9.     Set aa = ie.Document.getelementsbytagname("table")   '表格資料區
  10.      k = 1
  11.     On Error Resume Next
  12.         For xx = 0 To aa.Length - 1
  13.         '找到後修改 For xx = ??? To aa.Length - 1
  14.             For i = 0 To aa(xx).Rows.Length - 1      '寫入資料
  15.                 Cells(k, 1) = "Table" & xx
  16.                 k = k + 1                            '列數
  17.                 For j = 0 To 19
  18.                     Application.StatusBar = "下載資料中 ..." & k - 1
  19.                     Cells(k, j + 2) = aa(xx).Rows(i).Cells(j).innertext
  20.                 Next
  21.             Next
  22.         Next
  23.     ie.Quit
  24. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
14#
發表於 2013-3-31 16:56 | 只看該作者
回復 4# GBKEE


    G大,同#5 及 #10之問題

            網頁表格 = 13  '損益表
            網頁表格 = 12  '合併損益表

可否請問13與12數據應該如何判斷這數值?!
例如:http://mops.twse.com.tw/mops/web/t56sb21_q3

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
123
返回列表 上一主題