標題: [發問] vba 從網頁上取資料時沒有了空格 [打印本頁]

---

作者: 井中    時間: 2016-6-17 02:02     標題: vba 從網頁上取資料時沒有了空格

Sub horsehkQP()
    Dim A As Object
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://bet.hkjc.com/racing/pages/odds_wpq.aspx?date=19-06-2016&venue=ST&raceno=1"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        Set A = .Document.getElementsByTagName("table")
        Application.Wait Time + #12:00:02 AM#
        .ExecWB 17, 2       '  Select All
        .ExecWB 12, 1       '  Copy selection
        With ActiveSheet
            .UsedRange.Delete
            .Range("A1").Select
            .Paste
            .Range("A1").Select
        End With
        .Quit        '關閉網頁
    End With
End Sub

我使用以上VBA 取資料時
連嬴及位置Q 圖表中的空格全都不見了,
我想請問大家在貼上時如何保留空格. 謝謝解答


另外的,
如果我想在以下網頁中取 "投注額" 中的資料 VBA 要如何寫
http://bet.hkjc.com/racing/pages/odds_tce.aspx?date=16-06-2016&venue=S2&raceno=2

因為進入網頁後還要 按下  "投注額" 的按鍵,
直接COPY 不行,
謝謝解答

---

作者: 井中    時間: 2016-6-17 19:36

請大家幫幫忙吧

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)