返回列表 上一主題 發帖

期貨交易所鉅額股票期貨資料頡取

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2014-12-7 07:13 | 顯示全部帖子
回復 1# chwqk
  1. Option Explicit
  2. Sub Ex_台期_各商品成交資訊()
  3.     Dim E As Object, i As Integer, ii As Integer, K As Integer
  4.     Dim xadte As Date
  5.     xadte = DateAdd("yyyy", -1, Date)  '日期(起)：
  6.     With CreateObject("InternetExplorer.Application")
  7.         .Visible = True
  8.         .Navigate "http://www.taifex.com.tw/chinese/3/3_3_3.asp"
  9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  10.         
  11.         '<OPTION value="TX" selected>台股期貨(TX)</OPTION>
  12.         '<OPTION value="MTX" >小型台指(MTX)</OPTION>
  13.         '<OPTION value="TXO" >台指選擇權(TXO)</OPTION>
  14.         '<OPTION value="STF" >股票期貨</OPTION>
  15.         .document.ALL("commodity_idt").Value = "STF"  '契約: 股票期貨
  16.         
  17.         With .document.getElementsByTAGName("INPUT")
  18.             .Item("datestart").Value = Format(xadte, "YYYY/MM/DD")
  19.             .Item("dateend").Value = Format(Date, "YYYY/MM/DD")
  20.             .Item("button3").Click
  21.         End With
  22.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  23.         Set E = .document.getElementsByTAGName("TABLE")(3)
  24.         ActiveSheet.UsedRange.Clear
  25.         For i = 0 To E.Rows.Length - 1
  26.             K = K + 1
  27.             For ii = 0 To E.Rows(i).Cells.Length - 1
  28.                 Cells(K, ii + 1) = E.Rows(i).Cells(ii).INNERTEXT
  29.             Next
  30.         Next
  31.         .Quit        '關閉網頁
  32.     End With
  33. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2015-5-26 08:17 | 顯示全部帖子
回復 3# leoncc
這網頁是要下載檔案
  1. Option Explicit
  2. Sub Ex_台期_各商品成交資訊()
  3.     Dim xDate(1 To 2) As Date, xPath As String, wB As String
  4.     'IE 下載檔案的資料夾
  5.     xPath = "C:\Documents and Settings\hsu\My Documents\"
  6.     '清空 下載檔案的資料夾 的csv檔
  7.     If Dir(xPath & "*.csv") <> "" Then Kill xPath & "*.csv"
  8.    
  9.     xDate(1) = DateAdd("yyyy", -1, Date)        '日期(起)：
  10.     xDate(2) = Date                             '日期(迄)：
  11.     If Weekday(Date, vbMonday) >= 6 Then        '當日非營業日
  12.         Do While Weekday(Date, vbMonday) >= 6
  13.             xDate(2) = xDate(2) - 1
  14.         Loop
  15.     ElseIf Time < #3:00:00 PM# Then
  16.         xDate(2) = xDate(2) - 1                 '當日大盤資料尚未整理完畢
  17.     End If
  18.    
  19.     With CreateObject("InternetExplorer.Application")
  20.         .Visible = True
  21.         .Navigate "http://www.taifex.com.tw/chinese/3/7_12_6.asp"
  22.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  23.         
  24.         '<OPTION value="TX" selected>台股期貨(TX)</OPTION>
  25.         '<OPTION value="MTX" >小型台指(MTX)</OPTION>
  26.         '<OPTION value="TXO" >台指選擇權(TXO)</OPTION>
  27.         '<OPTION value="STF" >股票期貨</OPTION>
  28.         '.document.ALL("commodity_idt").Value = "STF"  '契約: 股票期貨
  29.         
  30.         With .document.getElementsByTAGName("INPUT")
  31.             .Item("datestart").Value = Format(xDate(1), "YYYY/MM/DD")
  32.             .Item("dateend").Value = Format(xDate(2), "YYYY/MM/DD")
  33.             .Item("button4").Click
  34.         End With
  35.           Application.Wait Now + #12:00:02 AM#
  36.           Application.SendKeys "%s", True
  37.           Application.Wait Now + #12:00:01 AM#  '如VBA執行速度快,可延長秒數
  38.           Application.SendKeys "%s", True
  39.         .Quit        '關閉網頁
  40.     End With
  41.      wB = Dir(xPath & "*.csv")
  42.      If wB <> "" Then Workbooks.Open (xPath & wB) '開啟下載的檔案
  43. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

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#
發表於 2015-5-29 09:33 | 顯示全部帖子
回復 5# leoncc

IE8下載檔案資料夾, 須是前一次下載檔案資料夾
如圖


IE8  如不這選項不勾選



可直接開啟檔案(IE8 以上的IE 也可以試看看
  1. With .document.getElementsByTAGName("INPUT")
  2.             .Item("datestart").Value = Format(xDate(1), "YYYY/MM/DD")
  3.             .Item("dateend").Value = Format(xDate(2), "YYYY/MM/DD")
  4.             .Item("button4").Click
  5.         End With
  6.           Application.Wait Now + #12:00:02 AM#
  7.           Application.SendKeys "%s", True       '儲存
  8.           Application.Wait Now + #12:00:02 AM#  '如VBA執行速度快,可延長秒數
  9.           Application.SendKeys "%s", True       '另存新檔
  10.           Application.Wait Now + #12:00:02 AM#
  11.           Application.SendKeys "%O", True       ' ***開啟檔案***
  12.         .Quit        '關閉網頁
複製代碼
這段程式碼可刪除
  1.   xPath = "C:\Documents and Settings\hsu\My Documents\"
  2.    If Dir(xPath & "*.csv") <> "" Then Kill xPath & "*.csv"
  3. '*************
  4. wB = Dir(xPath & "*.csv")
  5.    If wB <> "" Then Workbooks.Open (xPath & wB) '開啟下載的檔案
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2015-6-1 14:09 | 顯示全部帖子
本帖最後由 GBKEE 於 2015-6-1 14:10 編輯

回復 7# leoncc
再試試看
  1. Option Explicit
  2. Sub Ex_台期_各商品成交資訊()
  3.     Dim xDate(1 To 2) As Date, xPath As String, wB As String
  4.     xDate(1) = DateAdd("yyyy", -1, Date)        '日期(起)：
  5.     xDate(2) = Date                             '日期(迄)：
  6.     If Time < #3:00:00 PM# Then                  '營時間業結束之前待大盤資料整理完畢
  7.         Do While Weekday(xDate(2), vbMonday) >= 6 Or Weekday(xDate(2), vbMonday) = 1
  8.             '排除 週六,週日,週一
  9.             xDate(2) = xDate(2) - 1   '向前減一日
  10.         Loop
  11.     ElseIf Time < #3:00:00 PM# Then     ''當日大盤資料整理完畢
  12.         Do While Weekday(xDate(2), vbMonday) >= 6 '排除 週六,週日
  13.             xDate(2) = xDate(2) - 1   '向前減一日
  14.         Loop
  15.     End If
  16.     With CreateObject("InternetExplorer.Application")
  17.         .Visible = True
  18.         .Navigate "http://www.taifex.com.tw/chinese/3/7_12_6.asp"
  19.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  20.         
  21.         '<OPTION value="TX" selected>台股期貨(TX)</OPTION>
  22.         '<OPTION value="MTX" >小型台指(MTX)</OPTION>
  23.         '<OPTION value="TXO" >台指選擇權(TXO)</OPTION>
  24.         '<OPTION value="STF" >股票期貨</OPTION>
  25.         '.document.ALL("commodity_idt").Value = "STF"  '契約: 股票期貨
  26.         
  27.         With .Document.getElementsByTAGName("INPUT")
  28.             .Item("datestart").Value = Format(xDate(1), "YYYY/MM/DD")
  29.             .Item("dateend").Value = Format(xDate(2), "YYYY/MM/DD")
  30.             .Item("button4").Click
  31.         End With
  32.           Application.Wait Now + #12:00:02 AM#
  33.           Application.SendKeys "%s", True       '儲存
  34.           Application.Wait Now + #12:00:02 AM#  '如VBA執行速度快,可延長秒數
  35.           Application.SendKeys "%s", True       '另存新檔
  36.           Application.Wait Now + #12:00:02 AM#
  37.           Application.SendKeys "%O", True       ' ***開啟檔案***
  38.         .Quit        '關閉網頁
  39.     End With
  40.   
  41. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題