VBA实现网页的登录下载数据（输入用户名、密码、并点击“进入”）

richdaddy

各位老师，探讨个问题，我想解决这个问题的方法好久了，找到了思路。先用 CreateObject("InternetExplorer.application") ，再用QueryTables 提取数据，
不过在提取数据的时候老出问题，各位大侠能否拔刀相助。谢谢！




一下是我的代码，请斧正。


Sub weblog()
Dim myQuery
    With ActiveSheet
        .Cells.Delete
        .[a1] = "Conneting, Please Wait..."

        Call GotoHome("tocklist2012@yahoo.com.cn", "123456***")

        Set myQuery = ActiveSheet.QueryTables _
        .Add(Connection:="URL;http://vip.stock.finance.sina.com.cn/portfolio/main.php ", _
        Destination:=.Cells(1, 1))
        With myQuery
        .Name = "list"
        End With
    End With
    With myQuery
        .Refresh
    End With
End Sub

Sub GotoHome(sUser As String, sPwd As String)
'先引用Microsoft Internet Controls
    Dim IEList 'As New ShellWindows
    Dim IE, TimeIE
    Dim bt As String
     On Error Resume Next
    Set IE = CreateObject("InternetExplorer.application")
    IE.Navigate URL:="  http://vip.stock.finance.sina.com.cn/portfolio/main.php"
    IE.Quit
    Set IE = Nothing
    Set IEList = Nothing
End Sub

richdaddy

顶一下，希望高手出招

sam.tan

顶一下，希望高手出招

zopey

如果行，岂不是暴力解密。

蓝天630902

Sub 新浪财经()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://vip.stock.finance.sina.com.cn/portfolio/login.php"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All("userid").Value = "用户名"
        .Document.All("pwd").Value = "密　码"
        .Document.All("sumbit").Click
        While .ReadyState <> 4 Or .Busy
            DoEvents
        Wend
        t1 = Timer
        Do Until Timer > t1 + 8'等待8秒
            DoEvents
        Loop
        Set r = .Document.All.tags("table")(1).Rows
        n = Range("a65536").End(xlUp).Row
        For i = 0 To r.Length
            For j = 0 To r(i).Cells.Length
                Cells(i + 1, j + 1) = r(i).Cells(j).innerText
            Next j
        Next i
    End With
End Sub

zdqdemi

蓝天630902 发表于 2012-6-6 17:50
Sub 新浪财经()
    On Error Resume Next
    With CreateObject("internetexplorer.application")

哇，受教了，终于把我的数据下载下来了！
非常感谢

我爱你！

慢了一点，差一点感觉没有反应，还是提出来了，太高了。
好好学习。

wwwconsumer

蓝天老师真是用IE提取网页数据的经典。

zyb562

zdqdemi 发表于 2012-7-13 08:58
哇，受教了，终于把我的数据下载下来了！
非常感谢

请教下，拷贝过来代码后，一直是运行，难道是电脑速度太慢吗都十多分钟了，还没有动静，请教下什么情况，

ammyc

好好学习，天天向上。