[算表] Excel VBA的xmlhttp入門好難哦QQ

[TWCFP (祝大家賺大錢^^)]

軟體: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
→ soyoso: 這方面可google，會比較清楚詳細
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
→ soyoso: 這要看01是否字串合併後為1，可用format([a2],"00")的方式
→ TWCFP: 謝謝啦! 我研究一下看看
→ soyoso: https://db.tt/mtBmrSge 不用引用ms forms 2.0
→ TWCFP: 謝謝啦!! 受用不盡!!! 希望我可以看的懂裡面寫的程式碼>_<
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
→ soyoso: 可方面要完整學習的話可google
→ soyoso: Microsoft HTML Object Library及
→ soyoso: Microsoft Internet Controls
→ TWCFP: 謝謝你啦!!^^
→ soyoso: ^^