想請問excel能每天抓外資期貨的資料嗎

英國流浪漢

我找了很多文章..

也買了書來翻..

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

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

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

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

謝謝.

被excel快搞瘋的人.

chen_cook

回復 1# 英國流浪漢


    你要的是它嗎??

英國流浪漢

對..可是我想要只要外資的訊息 然後 每天能自動更新這樣...@@

chen_cook

回復 3# 英國流浪漢


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

smouse0220

以下的程式碼可以更新
你可以多嘗試看看
我只抓取期交所網站的資料，而期交所在交易日收盤後下午三點更新資料

1. Sub 台指期OI資料一()
   
2. '================================================================================================================================
   
3. Dim MyUrl As String
   
4. '================================================================================================================================
   
5. Application.ScreenUpdating = False  '加快處理速度
   
6. 
   
7. Worksheets("Temp").Select          '暫存資料的網頁
   
8. 
   
9. Cells.Clear
   
10. 
    
11. MyUrl = "URL;http://www.taifex.com.tw/chinese/3/3_1_1.asp"
    
12. 
    
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
    
41. 
    
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. '--------------------------------------------------------------------------
    
52. 
    
53. StepA:
    
54. '--------------------------------------------------------------------------
    
55. '找出關鍵字元，判斷所需資料的欄位
    
56. '--------------------------------------------------------------------------
    
57. For I = 1 To Temp_Count
    
58. 
    
59.     Key_Point = Worksheets("Temp").Range("A" & I).Value
    
60. 
    
61.     If Key_Point = "臺股期貨 (TX) 行情表" Then
    
62.    
    
63.         Data_Row = I
    
64.         
    
65.         GoTo StepB
    
66.         
    
67.     End If
    
68.    
    
69. Next I
    
70. '--------------------------------------------------------------------------
    
71. 
    
72. StepB:
    
73. '--------------------------------------------------------------------------
    
74. '刪除不必要的資料
    
75. '--------------------------------------------------------------------------
    
76. Delete_Row = Data_Row - 3
    
77. 
    
78. Rows("1:" & Delete_Row).Select
    
79. 
    
80. Selection.Delete Shift:=xlUp
    
81. '--------------------------------------------------------------------------
    
82. End Function

複製代碼

sinmarrio

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