返回列表 上一主題 發帖

[發問] vba 從網頁上取資料時沒有了空格

井中

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2016-6-17 
最後登錄
2016-6-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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 不行,
謝謝解答
收藏 分享

井中

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2016-6-17 
最後登錄
2016-6-20 
2#
發表於 2016-6-17 19:36 | 只看該作者
請大家幫幫忙吧

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題