返回列表 上一主題 發帖

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

smouse0220

帖子
9 
主題
0 
精華
0 
積分
14 
點名
0  
作業系統
windows7 
軟體版本
9 
閱讀權限
10 
性別
男 
註冊時間
2012-7-31 
最後登錄
2012-12-3 
1# 跳轉到 »
發表於 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
複製代碼

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題