Question

如何利用VBA来抓取给定链接的网页源代码

Answer 1

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

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

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

方法1:利用AJAX

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