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

我找了很多文章..

也買了書來翻..

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

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

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

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

謝謝.

被excel快搞瘋的人.

sinmarrio

中學生 Rank: 2

帖子: 2
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-7-9
最後登錄: 2019-10-31

6^#

發表於 2012-8-6 14:54 | 只看該作者

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

TOP

smouse0220

小學生 Rank: 1

帖子: 9
主題: 0
精華: 0
積分: 14
點名: 0
作業系統: windows7
軟體版本: 9
閱讀權限: 10
性別: 男
註冊時間: 2012-7-31
最後登錄: 2012-12-3

5^#

發表於 2012-7-31 23:46 | 只看該作者

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

Sub 台指期OI資料一()
'================================================================================================================================
Dim MyUrl As String
'================================================================================================================================
Application.ScreenUpdating = False '加快處理速度
Worksheets("Temp").Select '暫存資料的網頁
Cells.Clear
MyUrl = "URL;http://www.taifex.com.tw/chinese/3/3_1_1.asp"
With ActiveSheet.QueryTables.Add(Connection:=MyUrl, Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
'--------------------------------------------------------------------------
Bye:
'--------------------------------------------------------------------------
Delete_Rows
'--------------------------------------------------------------------------
End Sub
Private Function Delete_Rows()
'==========================================================================
Dim Temp_Count As Integer
Dim Key_Point As String
Dim Data_Row As Integer
Dim Delete_Row As Integer
Dim I As Integer
'==========================================================================
Temp_Count = Worksheets("Temp").Range("A65536").End(xlUp).Row
'--------------------------------------------------------------------------
StepA:
'--------------------------------------------------------------------------
'找出關鍵字元，判斷所需資料的欄位
'--------------------------------------------------------------------------
For I = 1 To Temp_Count
Key_Point = Worksheets("Temp").Range("A" & I).Value
If Key_Point = "臺股期貨 (TX) 行情表" Then
Data_Row = I
GoTo StepB
End If
Next I
'--------------------------------------------------------------------------
StepB:
'--------------------------------------------------------------------------
'刪除不必要的資料
'--------------------------------------------------------------------------
Delete_Row = Data_Row - 3
Rows("1:" & Delete_Row).Select
Selection.Delete Shift:=xlUp
'--------------------------------------------------------------------------
End Function