台灣最大程式設計社群網站
線上人數
883
 
會員總數:242476
討論主題:187513
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> 請教各位,大大,小弟有個程式碼不懂得如何更改,有大大原意教我嗎.thank*十萬
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
請教各位,大大,小弟有個程式碼不懂得如何更改,有大大原意教我嗎.thank*十萬
價值 : 10 QP  點閱數:116 回應數:0

樓主

大力史
門外漢
0 1
25 0
發送站內信


各位大大好.
小弟在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



搜尋相關Tags的文章: [ 綱站上的期貨指數 ] ,
本篇文章發表於2018-05-02 23:06
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.