[已解决]有关网页数据的获取 的求助。请教各位老师。

excel123vba

晚上好 各位老师

爱疯

Book3.rar (11.34 KB, 下载次数: 5)

2016-10-19 08:56 上传

点击文件名下载附件


改了下，这样吗

excel123vba

爱疯 发表于 2016-10-19 08:57
改了下，这样吗

好的，，我看看，谢谢老师

excel123vba

读取数据 好慢。。
不知道是不是因为我的网速跟不上的缘故。，
反应慢，执行代码后 程序 显示 无反应

爱疯

excel123vba 发表于 2016-10-19 20:30
读取数据 好慢。。
不知道是不是因为我的网速跟不上的缘故。，
反应慢，执行代码后 程序 显示 无反应

上传很慢的那个附件看看

excel123vba

爱疯 发表于 2016-10-20 10:49
上传很慢的那个附件看看

老师好。。我就是下载  12楼 你传的附件呀

爱疯

excel123vba 发表于 2016-10-20 16:43
老师好。。我就是下载  12楼 你传的附件呀

Book4.rar (11.79 KB, 下载次数: 5)

2016-10-20 16:54 上传

点击文件名下载附件


Option Explicit

Sub test1()
    Dim t
    t = Timer
    Application.ScreenUpdating = False
    Call test2
    Call test3
    MsgBox Timer - t
End Sub

'下载数据
Sub test2()
    Range("A1").CurrentRegion.Clear
    With ActiveSheet.QueryTables.Add("url;http://zst.cjcp.com.cn/cjwssc_3x ... ian-ssc-0-3-30.html", [a1])
        .WebFormatting = xlWebFormattingNone    '导入所有格式
        .WebTables = 3    '第3个表格(索引从0开始)
        .Refresh False
    End With
End Sub

'截取数据
Sub test3()
    Dim A, B(1 To 30, 1 To 2), i, j
    A = Range("A1").CurrentRegion
    For i = 3 To 32
        For j = 2 To 3
            B(i - 2, j - 1) = A(i, j)
        Next j
    Next
    Range("A1").CurrentRegion.Clear
    [a1] = "期号": [b1] = "奖号"
    [a2].Resize(UBound(B), UBound(B, 2)) = B
End Sub




访问该网址，是需要几秒钟。但不至于你说的很慢吧？

excel123vba

爱疯 发表于 2016-10-20 16:56
Option Explicit

Sub test1()

老师好。。。


今晚才有空上来。。。

奖号的那一列 要改成 文本格式 写入 才行。
不然 前面的 0 会 自己不见了

爱疯

Book5.rar (12.46 KB, 下载次数: 2)

2016-11-1 08:58 上传

点击文件名下载附件

没注意0，改了可以吗