返回列表 上一主題 發帖

大盤歷史資料查詢

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2024-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-1-10 22:54 | 只看該作者

大盤歷史資料查詢

網頁元素
本帖最後由 GBKEE 於 2016-2-19 08:35 編輯

請問大大:
1.如何在台灣證卷交易網站上，找到"查詢"的按鍵名稱?(紅框)
http://www.twse.com.tw/ch/tradin ... T/MI_5MINS_HIST.php


2. 另外如何抓下查詢完的資料(藍框)?
收藏 分享

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2024-8-10 
2#
發表於 2016-1-10 22:59 | 只看該作者
在原始檔中有找到按鍵位置，都是不知道如何使用?
2016-01-10_225430.png

Sub 大盤指數20160110()
    Dim xTable As Object, k As Integer, c As Integer, r As Integer
   
    Sheets("下載").Select
   
    URL = "http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php"
   
        With CreateObject("InternetExplorer.application")
        .Visible = True
        .Navigate URL
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
                 With .document
                    .all("myear").Value = "104"
                    .all("mmon").Value = "12"
                    .all("onclick").Click                    '按下按鍵的
                End With
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        Set xTable = .document.getElementsByTagName("tbody") '(1)
        
               
        With Sheets("下載")
            .UsedRange.Clear
            k = 1
            For i = 0 To 1 ' For EACH  E In xTable  '.document.getelementsbytagname("TABLE")
                        For r = 0 To xTable(i).Rows.Length - 1
                            For c = 0 To xTable(i).Rows(r).Cells.Length - 1
                                .Cells(k + r, c + IIf(i = 0, 1 + 1 * c, 1)) = xTable(i).Rows(r).Cells(c).innerText
                            Next
                        Next
                 k = k + xTable(i).Rows.Length
            Next
        End With
        .Quit
    End With

End Sub

TOP

GBKEE

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

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

回復 2# kim223824
  1. Option Explicit
  2. Sub Ex_TABLE() '查看大盤歷史資料查詢,資料所在的TABLE
  3.     Dim i As Integer, E As Object, url, xTable, A
  4.     url = "http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php"
  5.     With CreateObject("InternetExplorer.application")
  6.         .Visible = True
  7.         .Navigate url
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  9.         With .Document
  10.             .ALL("myear").Value = "104"
  11.             .ALL("mmon").Value = "12"
  12.             For Each E In .ALL.tags("input")
  13.                 If E.Type = "button" And E.Value = "查詢" Then
  14.                     E.Click
  15.                     Exit For
  16.                 End If
  17.             Next
  18.         End With
  19.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  20.         Set xTable = .Document.getElementsByTagName("TABLE")
  21.         On Error Resume Next
  22.             For Each E In xTable
  23.                     i = i + 1
  24.                     Cells(i, 1) = A   '查看資料在那一個TABLE
  25.                     A = A + 1
  26.                     i = i + 1
  27.                    Cells(i, "A") = E.innertext
  28.             Next
  29.         .Quit        '關閉網頁
  30.     End With
  31. End Sub
複製代碼
  1. Option Explicit
  2. Sub 大盤指數20160110()
  3.     Dim xTable As Object, k As Integer, c As Integer, r As Integer
  4.     Dim url As String, i As Integer, E As Object
  5.     'Sheets("下載").Select
  6.     url = "http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php"
  7.         With CreateObject("InternetExplorer.application")
  8.         .Visible = True
  9.         .Navigate url
  10.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  11.                  With .Document
  12.                     .ALL("myear").Value = "104"
  13.                     .ALL("mmon").Value = "12"
  14.                    ' .all("onclick").Click                    '按下按鍵的
  15.                     For Each E In .ALL.tags("input")
  16.                         If E.Type = "button" And E.Value = "查詢" Then
  17.                             E.Click        '按下查詢鍵
  18.                             Exit For
  19.                         End If
  20.                     Next
  21.                 End With
  22.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  23.         'Sub Ex_TABLE() 查看大盤歷史資料查詢,得知資料所在的TABLE
  24.         Set xTable = .Document.getElementsByTagName("TABLE")(10) '資料在這
  25.         With Sheets("下載")
  26.             .UsedRange.Clear
  27.             k = k + 1
  28.             For r = 0 To xTable.Rows.Length - 1
  29.                 For c = 0 To xTable.Rows(r).Cells.Length - 1
  30.                     .Cells(k, c + 1) = xTable.Rows(r).Cells(c).innertext
  31.                 Next
  32.                 k = k + 1
  33.             Next
  34.         End With
  35.         .Quit
  36.     End With
  37. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2024-8-10 
4#
發表於 2016-2-13 15:34 | 只看該作者
感謝GBKEE大大的幫忙!
XTABLE內的資料，還是無法清楚看到，請可以在說明一下嗎??

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2016-2-14 08:19 | 只看該作者
回復 4# kim223824
  1. Option Explicit
  2. Sub Ex_Table() '查看大盤歷史資料查詢,資料所在的TABLE
  3.     Dim i As Integer, E As Object, URL, xTable As Object
  4.     Dim xR As Integer, xT As Integer, R As Object, C As Object
  5.     URL = "http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php"
  6.     With CreateObject("InternetExplorer.application")
  7.         .Visible = True
  8.         .Navigate URL
  9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  10.         With .document
  11.             .ALL("myear").Value = "104"
  12.             .ALL("mmon").Value = "12"
  13.             For Each E In .ALL.tags("input")
  14.                 If E.Type = "button" And E.Value = "查詢" Then
  15.                     E.Click
  16.                     Exit For
  17.                 End If
  18.             Next
  19.         End With
  20.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  21.         Set xTable = .document.getElementsByTagName("TABLE")
  22.         ActiveSheet.UsedRange.Clear
  23.         xR = 1                              '工作表列號
  24.         For xT = 0 To xTable.Length - 1
  25.             Cells(xR, 1) = "第" & xT & "Table"
  26.             For Each R In xTable(xT).Rows   'Table的Rows物件集合
  27.                 xR = xR + 1                 '下一列號
  28.                 i = 1
  29.                 For Each C In R.Cells       'Table的Row物件的Cells物件集合
  30.                     Cells(xR, i) = C.innertext
  31.                     i = i + 1
  32.                 Next
  33.             Next
  34.             xR = xR + 1                      '下一列號
  35.         Next
  36.         .Quit        '關閉網頁
  37.     End With
  38. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題