[算表] Excel VBA的xmlhttp入門好難哦QQ
軟體:excel2007
版本:2007
最近想學習利用excel vba
抓取台灣證券交易所的資料來分析股價
問了板上的神人 soyoso大哥
得知
可以使用msxml2.xmlhttp的語法可以辦到
然後我就到圖書館借了八本excel vba的書藉來研究= ="
其中有兩本有提到xmlhttp
一本是 excel vba與資料庫整合大活用 博碩文化出版
一本是 超圖解excel vba應用講座 旗標出版
但是
都是在書的最後面,而且只有講一點點就沒有了...QQ
(而且講的東西看了頭很暈Orz)
嗚~怎麼那麼難啦!!QQ
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.74.146.15
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1422849191.A.5EE.html
→
02/02 12:21, , 1F
02/02 12:21, 1F
soyoso大哥
想請問一下
現在我有一行vba程式碼如下
.Navigate
"http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201501/201501_F3_1_8_2324.php&type=list"
這串網址當中的201501/201501_F3_1_8_2324
有沒有辦法把2015設成儲存格a1
01設成儲存格a2
2324設成儲存格a3
這樣當我改變儲存格的
a1為2014
a2為12
a3為2412
就可以自動連結到2014年12月 中華電的每日成交資訊
試了&的方法沒有辦法QQ
------------------------------------------------------------------------------
原始碼如下
Option Explicit
Sub Ex_個股月成交資訊()
Dim i As Integer, S As Integer, k As Integer, A As Object, ii, j
With CreateObject("InternetExplorer.Application")
' .Visible = True
.Navigate
"http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/STOCK_DAY_print.php?genpage=genpage/Report201501/201501_F3_1_8_2324.php&type=list"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Ep .document.getElementsByTagName("table")(1).outerHTML
.Quit '關閉網頁
End With
End Sub
Sub Ep(S As String)
Dim D As New DataObject
'DataObject 物件 在進行轉換動作時,做為格式化文字資料的暫存區域。其也可以
暫存和儲存在 DataObject 的文字片段相關的格式。
'宣告 Dim D As New DataObject '須在工具-> 設定引用項目加入 新增引用
Microsoft Forms 2.0 Object Library ,或於專案 加入一表單即可
With D
.SetText S
.PutInClipboard
With ActiveSheet
.UsedRange.Clear
.Range("a1").Select
.PasteSpecial Format:="Unicode 文字"
End With
End With
End Sub
PS.資料是從某論壇找到的,GBKEE大大謝謝您~~
※ 編輯: TWCFP (42.74.188.182), 02/03/2015 11:58:29
→
02/03 12:11, , 2F
02/03 12:11, 2F
→
02/03 12:45, , 3F
02/03 12:45, 3F
→
02/03 12:50, , 4F
02/03 12:50, 4F
→
02/04 09:20, , 5F
02/04 09:20, 5F
soyoso大哥
我又有問題啦QQ
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.document.body.innerHTML =
.document.getElementsByTagName("table")(1).outerHTML
請問一下這幾個程式碼
我按F1說明尋找都沒有什麼資料說
像這種東東,應該要如何有系統的學習比較好丫@@
還是就是硬背丫= =
除了DO While Loop 和 DoEvents這幾個在說明裡面還找的到資料
(雖然還是看不太懂,有懂一點點了)
這些東西是不是不屬於vba呢??
說明裡面找不到....
※ 編輯: TWCFP (223.142.97.84), 02/05/2015 10:22:05
→
02/05 10:30, , 6F
02/05 10:30, 6F
→
02/05 10:30, , 7F
02/05 10:30, 7F
→
02/05 10:30, , 8F
02/05 10:30, 8F
→
02/06 13:49, , 9F
02/06 13:49, 9F
→
02/07 12:46, , 10F
02/07 12:46, 10F