excel2016。如何 vba 抓取网页指定数据，并且自动更新至excel，网页登陆有用户名和密

Question

excel2016。如何 vba 抓取网页指定数据，并且自动更新至excel，网页登陆有用户名和密网页有用户名和密码，大神呢？如果解决问题了再加100分

Answer 1

1、这个问题相对比较专业。建议再去知乎看看

2、另外咨询下淘宝看看卖VBA程序的人都给出什么方案

3、以下代码转载自网络：

Dim http
  Set http = CreateObject("Microsoft.XMLHTTP")
  http.Open "POST", "连接地址", False
  http.send ""
  If http.Status = 200 Then
    selection.text=http.responseText
  End If

二是开启IE进程

Sub test()
  Set ie = CreateObject("InternetExplorer.Application") '设置变量
  With ie '设置块
    .Navigate ("需要打开的网页的网址") '打开网页
    .Visible = True '是否显示ie窗口
    While .readystate <> 4 '延迟等待页面加载完毕
      DoEvents
    Wend
    For i = 22 To 49 Step 3 '取数循环
      S = S & " " & .Document.all.tags("td")(i).innerTEXT  '取数据到变量，熟悉HTML的DOM可以修改这个实现各种内容
    Next i
  End With '块结束
  S = LTrim(S) '删除左边空格
  Application.SendKeys "^{F4}" '发送按键关闭当前浏览器标签
  MsgBox S '显示结果
  Set ie = Nothing '释放内存
End Sub

Answer 2

加个 300元 可以考虑做做追问

能做到什么程度需要多长时间

追答

这个要看具体要求，什么程度 是你要求 做到什么程度

Answer 3

有验证码吗？网站发出来看看。我对这个比较感兴趣追问

没有验证码

追答

那可以考虑

Answer 4

什么网址？ 分享文件来才能帮你呀追问

公司自己的网址，懒人一个，不想登陆

追答

网址告诉我，我帮你做吧，截图告知抓取什么数据，放在哪里？

追问

内网，可以远程帮我做吗