Board logo

標題: 想請問excel能每天抓外資期貨的資料嗎 [打印本頁]
作者: 英國流浪漢    時間: 2012-7-19 09:23     標題: 想請問excel能每天抓外資期貨的資料嗎

我找了很多文章..

也買了書來翻..

可是我只是想說計算外資大概的成本均價在哪

所以必須要每天去期教網抓外資的資料 (空單留倉口數多單口數...)

我之前有抓到可是是把整篇都抓下來的而且不能自動更新..

請問哪邊可以找到教學嗎？

謝謝.

被excel快搞瘋的人.
作者: chen_cook    時間: 2012-7-19 17:38

回復 1# 英國流浪漢


    你要的是它嗎??
作者: 英國流浪漢    時間: 2012-7-19 20:45

對..可是我想要只要外資的訊息 然後 每天能自動更新這樣...@@
作者: chen_cook    時間: 2012-7-20 05:22

回復 3# 英國流浪漢


    http://forum.twbts.com/viewthrea ... %3Bfilter%3D2592000
參考這一題的答案!!
若為圖面的那網頁有更新資料的時差及回訊的問題......但還是可以更新的........
作者: smouse0220    時間: 2012-7-31 23:46

以下的程式碼可以更新
你可以多嘗試看看
我只抓取期交所網站的資料，而期交所在交易日收盤後下午三點更新資料
  1. Sub 台指期OI資料一()
  2. '================================================================================================================================
  3. Dim MyUrl As String
  4. '================================================================================================================================
  5. Application.ScreenUpdating = False  '加快處理速度

  7. Worksheets("Temp").Select          '暫存資料的網頁

  9. Cells.Clear

  11. MyUrl = "URL;http://www.taifex.com.tw/chinese/3/3_1_1.asp"

  13.     With ActiveSheet.QueryTables.Add(Connection:=MyUrl, Destination:=Range("A1"))
  14.         .FieldNames = True
  15.         .RowNumbers = False
  16.         .FillAdjacentFormulas = False
  17.         .PreserveFormatting = True
  18.         .RefreshOnFileOpen = False
  19.         .BackgroundQuery = True
  20.         .RefreshStyle = xlInsertDeleteCells
  21.         .SavePassword = False
  22.         .SaveData = True
  23.         .AdjustColumnWidth = True
  24.         .RefreshPeriod = 0
  25.         .WebSelectionType = xlEntirePage
  26.         .WebFormatting = xlWebFormattingNone
  27.         .WebPreFormattedTextToColumns = True
  28.         .WebConsecutiveDelimitersAsOne = True
  29.         .WebSingleBlockTextImport = False
  30.         .WebDisableDateRecognition = False
  31.         .WebDisableRedirections = False
  32.         .Refresh BackgroundQuery:=False
  33.     End With
  34. '--------------------------------------------------------------------------
  35.    
  36. Bye:
  37. '--------------------------------------------------------------------------
  38. Delete_Rows
  39. '--------------------------------------------------------------------------
  40. End Sub

  42. Private Function Delete_Rows()
  43. '==========================================================================
  44. Dim Temp_Count As Integer
  45. Dim Key_Point As String
  46. Dim Data_Row As Integer
  47. Dim Delete_Row As Integer
  48. Dim I As Integer
  49. '==========================================================================
  50. Temp_Count = Worksheets("Temp").Range("A65536").End(xlUp).Row
  51. '--------------------------------------------------------------------------

  53. StepA:
  54. '--------------------------------------------------------------------------
  55. '找出關鍵字元，判斷所需資料的欄位
  56. '--------------------------------------------------------------------------
  57. For I = 1 To Temp_Count

  59.     Key_Point = Worksheets("Temp").Range("A" & I).Value

  61.     If Key_Point = "臺股期貨 (TX) 行情表" Then
  62.    
  63.         Data_Row = I
  64.         
  65.         GoTo StepB
  66.         
  67.     End If
  68.    
  69. Next I
  70. '--------------------------------------------------------------------------

  72. StepB:
  73. '--------------------------------------------------------------------------
  74. '刪除不必要的資料
  75. '--------------------------------------------------------------------------
  76. Delete_Row = Data_Row - 3

  78. Rows("1:" & Delete_Row).Select

  80. Selection.Delete Shift:=xlUp
  81. '--------------------------------------------------------------------------
  82. End Function
複製代碼
作者: sinmarrio    時間: 2012-8-6 14:54

用查詢Web資料的方式就可以了(Excel內建功能)，再設定開啟時更新，應該可以解決你的問題了吧



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)