小弟在YOU TUB,看了吳老師的教學影片.
我自已跟著做,可惜的做不來,想各位大大幇忙看看給我意見.
我想做的事.在綱站下載一個單一指數到Excel表格B欄跟A欄
A欄是放下載的指數. 至於A欄的位置的每次更新的時間(時:分:秒)
我想要的效果是,綱站上的指數有更新的話,Excel即時下載更新到(Excel表格B3-B50000)在B3-B50000內重復,意思是新的資料下載舊的資料刪除,
B欄的1-2 我想做的是把下載的指數做筛選最高跟最低的數值
我的電腦系統Windows 8.1繁體版. Office2010繁體版
我的程式碼是
Sub ls(自動更新)
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
End Sub
Public Sub XMLHTTP()
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.Open "GET", "http://www.aastocks.com/tc/stocks/market/bmpfutures.aspx", _
Fslse
HttpReq.send
S = HttpReq.responseText
iStart = 3
i = 3
Do While VBA.InStr(iStart, S, "height:35px") <> 0
iStart = VBA.InStr(iStart, S, "height:35px")
iEnd = VBA.InStr(iStart, S, "")
Sdata = Mid(S, iStart + 13, iEnd - iStart - 13)
iStart = iEnd + 13
Cells(i, "B") = Sdata
For Each C In Range("B3:B50000")
i = 0 + Sdata
C.Value = i
Next
Loop
'Macro1 Macro
End Sub
