- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# PKKO - Option Explicit
- Sub Ex()
- Dim hq As Variant, i As Integer, ii As Integer
- Set hq = CreateObject("MSXML2.XMLHTTP.3.0")
- hq.Open "get", "http://rate.bot.com.tw/xrt/flcsv/0/day", False
- hq.send
- '**Split 函數 傳回一個陳列索引從零開始的一維陣列，它包含指定數目的子字串。
- '**語法 Split(expression[, delimiter[, limit[, compare]]])
- hq = Split(hq.responsetext, vbCrLf)
- '**vbCrLf -> Chr(13) + Chr(10) = 結合換行字元與復位字元。
- ActiveSheet.Cells.Clear '**作用中工作頁的所有儲存格,清除文字及其格式
- '***讀取資料
- For i = 0 To UBound(hq)
- For ii = 0 To UBound(Split(hq(i), ","))
- ActiveSheet.Range("a1").Offset(i, ii) = Split(hq(i), ",")(ii)
- Next
- Next
- '**讀取資料完畢
- MsgBox Join(hq, vbCrLf)
- End Sub
|
|
發表於 2017-3-1 09:59
| 
