使用VBA从密码保护网站导入数据的技术求助

问题背景 #

你需要从一个带密码保护的港口数据网站导入数据，已经拿到了合法的用户名和密码。尝试修改了一段网上的VBA代码来抓取HTML表格，但代码不仅跑不起来，还导致程序卡顿。你的代码片段如下：

Sub GetTable() 
    Dim ieApp As InternetExplorer 
    Dim ieDoc As Object 
    Dim ieTable As Object 
    Dim clip As DataObject 
    'create a new instance of ie 
    Set ieApp = New InternetExplore...

常见问题分析与修复方案 #

下面是几个大概率导致代码失效和卡顿的原因，以及对应的解决办法：

• IE对象拼写错误：你代码里的New InternetExplore少了最后一个字母"r"，正确写法是New InternetExplorer。这个小失误会直接导致浏览器对象创建失败，进而引发程序无响应。
• 缺少页面等待逻辑：网页加载（尤其是登录流程）需要时间，如果代码不等页面完全加载就执行后续操作，很容易卡住。可以添加这段代码来等待页面就绪：

  Do While ieApp.Busy Or ieApp.ReadyState <> 4: DoEvents: Loop
  

• 未实现登录流程：原代码可能没处理网站的登录表单，你需要找到用户名、密码输入框的ID或名称，用类似下面的代码填写表单并触发登录：

  ieDoc.getElementById("username").Value = "你的用户名"
  ieDoc.getElementById("password").Value = "你的密码"
  ieDoc.getElementById("loginBtn").Click
  

• 缺少必要引用库：如果没勾选「Microsoft Internet Controls」和「Microsoft HTML Object Library」，VBA会无法识别InternetExplorer和HTML对象，导致编译错误。可以通过VBA编辑器的「工具」→「引用」来添加这些库。
• IE兼容性问题：很多现代网站已经不再支持IE浏览器，而你用的InternetExplorer对象基于IE内核，这会导致加载失败或卡顿。这种情况下，建议改用Selenium或者API请求的方式获取数据，兼容性会好很多。

修复后的基础代码示例 #

这里是修正了拼写错误并添加了等待、登录逻辑的简化版本：

Sub GetTable()
    Dim ieApp As InternetExplorer
    Dim ieDoc As HTMLDocument
    Dim ieTable As HTMLTable
    Dim clip As DataObject
    
    ' 创建IE实例（修复拼写错误）
    Set ieApp = New InternetExplorer
    ieApp.Visible = True ' 显示浏览器方便调试
    
    ' 打开目标网站
    ieApp.Navigate "https://www.vesseltracker.com/fr/Ports/Home.html"
    
    ' 等待页面加载完成
    Do While ieApp.Busy Or ieApp.ReadyState <> 4
        DoEvents
    Loop
    
    ' 获取文档对象
    Set ieDoc = ieApp.Document
    
    ' 填写登录信息（需根据网站实际元素ID调整）
    ieDoc.getElementById("username").Value = "你的用户名"
    ieDoc.getElementById("password").Value = "你的密码"
    ieDoc.getElementById("loginBtn").Click
    
    ' 等待登录后页面加载
    Do While ieApp.Busy Or ieApp.ReadyState <> 4
        DoEvents
    Loop
    
    ' 抓取目标表格（需替换为实际表格的ID或选择器）
    Set ieTable = ieDoc.getElementById("targetTable")
    
    ' 将表格内容复制到Excel
    Set clip = New DataObject
    clip.SetText ieTable.outerHTML
    clip.PutInClipboard
    ThisWorkbook.Sheets("Sheet1").Range("A1").PasteSpecial
    
    ' 清理对象，避免内存泄漏
    ieApp.Quit
    Set ieApp = Nothing
    Set ieDoc = Nothing
    Set ieTable = Nothing
    Set clip = Nothing
End Sub

额外建议 #

如果IE方式还是行不通，强烈推荐尝试API请求：用浏览器开发者工具抓包，找到登录和获取数据的API接口，再用VBA的MSXML2.XMLHTTP对象发送请求，这种方式更高效，也不会有浏览器兼容性问题。

内容的提问来源于stack exchange，提问作者data maths