【VBA研究】操作InternetExplorer控件取数据

作者:iamlaosong

因业务需要需要从SF网站上查询快件轨迹。虽然可以一次查询多个快件,但每个快件数据要逐个复制下来,还是很麻烦的。查询是需要图片验证的,我没有什么办法绕过这个验证(也许有人有办法),只能手工完成。那么如何实现手工和自动的配合呢?

InternetExplorer控件可以解决这个问题,因为这个控件打开一个连接时,会自动启动默认浏览器并打开这个网页,只需要在浏览器上做完验证,然后利用这个控件的属性,将网页上的数据取出来,然后进行内容分拣,保存到Excel工作表中即可。

需要等这个验证通过后,才能得到所需的内容,所以在此之前,VBA程序需要等待:

另外,还需要对网页内容进行判断,因为验证前后网页内容是不同的,查找图片验证通过后出现的特征字符,如果没有,提示用户继续验证,或者退出。

  • 0
    点赞
  • 10
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: VBA(Visual Basic for Applications)是一种宏语言,可以通过编写代码来实现自动化任务。使用VBA网页数据的方法可以通过以下步骤来完成: 1. 创建一个Excel文件,并在工作表中打开"开发者工具"选项卡。 2. 在"开发者工具"选项卡中,点击"Visual Basic"按钮,打开VBA编辑器。 3. 在VBA编辑器中,选择"插入",然后选择"模块",创建一个新的模块。 4. 在新的模块中,编写VBA代码来实现抓网页数据的功能。以下是一个简单的示例代码: Sub GetDataFromWebsite() Dim ie As InternetExplorer Dim doc As HTMLDocument Dim table As Object Dim i As Integer '创建一个Internet Explorer对象 Set ie = CreateObject("InternetExplorer.Application") '打开一个网页 ie.Visible = True ie.navigate "http://www.example.com" '等待网页加载完成 Do While ie.readyState <> READYSTATE_COMPLETE DoEvents Loop '将网页内容存储在一个HTMLDocument对象中 Set doc = ie.document '找到网页中的表格 Set table = doc.getElementsByTagName("table")(0) '遍历表格的行和列,并将数据输出到Excel工作表中 i = 1 For Each row In table.Rows For Each cell In row.Cells Worksheets("Sheet1").Cells(i, 1).Value = cell.innerText i = i + 1 Next cell Next row '关闭Internet Explorer对象 ie.Quit End Sub 以上代码中,我们首先创建一个InternetExplorer对象,然后使用该对象来打开指定的网页。在网页加载完成后,我们通过HTMLDocument对象来获网页内容,并使用getElementsByTagName方法找到需要抓的表格。最后,我们可以使用循环遍历表格的行和列,并将数据输出到Excel工作表中。 总结来说,使用VBA网页数据的方法包括使用InternetExplorer对象来打开网页,使用HTMLDocument对象来获网页内容,然后解析网页获所需数据,并将数据输出到Excel或其他文件中。这样就可以实现自动化抓网页数据的功能。 ### 回答2: VBA(Visual Basic for Applications)是一种用于编写宏和自动化任务的编程语言,可以通过它来实现抓网页数据的功能。 在VBA中,我们可以使用Internet Explorer对象来模拟浏览器,访问网页并获数据。以下是一种常见的抓网页数据的方法: 1. 创建一个新的VBA模块,并在其中添加以下代码: ``` Sub GrabDataFromWebsite() Dim IE As Object Dim HTMLDoc As Object Dim HTMLTable As Object Dim HTMLRow As Object Dim HTMLCell As Object ' 创建新的Internet Explorer对象 Set IE = CreateObject("InternetExplorer.Application") ' 打开网页 IE.navigate "https://www.example.com" ' 等待IE加载完成 Do While IE.Busy Or IE.readyState <> 4 DoEvents Loop ' 获网页的HTML文档 Set HTMLDoc = IE.document ' 根据网页结构,定位到目标表格 Set HTMLTable = HTMLDoc.getElementById("tableID") ' 遍历表格的行和列,抓数据 For Each HTMLRow In HTMLTable.Rows For Each HTMLCell In HTMLRow.Cells ' 在这里可以对数据进行处理或存储操作 MsgBox HTMLCell.innerText Next HTMLCell Next HTMLRow ' 关闭Internet Explorer对象 IE.Quit ' 清除对象变量的引用 Set IE = Nothing Set HTMLDoc = Nothing End Sub ``` 上述代码中,我们首先创建了一个Internet Explorer对象(IE),然后使用IE.navigate方法打开了指定的网页。在加载网页完成后,我们可以使用IE.document获网页的HTML文档,并根据网页结构定位到目标数据所在的表格(或其他元素)。随后,使用For Each循环遍历表格的行和列,获数据并进行处理或存储操作。最后,我们关闭IE对象并清除对象变量的引用。 需要注意的是,抓网页数据时需要了解网页的HTML结构,以便准确定位需要抓数据。此外,还可以根据需要使用其他方法和属性来处理网页中的数据,例如获特定元素的属性值、点击按钮或链接等。 以上是一种基本的抓网页数据的方法,在实际使用中还可以根据具体需求进行适当的修改和扩展。 ### 回答3: VBA网页数据的方法主要包括以下几个步骤: 1. 创建一个新的VBA宏,并在宏中引用"Microsoft Internet Controls"和"Microsoft HTML Object Library"这两个引用库。这些库将提供用于处理网页和网页元素的对象和方法。 2. 使用Internet Explorer对象来打开要抓数据的网页。可以使用`Set ie = New InternetExplorer`来创建一个新的Internet Explorer对象,并使用`ie.Navigate`方法来打开指定的网页。 3. 等待网页加载完成。可以使用`Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE`来等待网页加载完成。 4. 使用Document对象访问网页的HTML代码。可以使用`Set doc = ie.Document`来获网页的Document对象,并使用`doc.getElementByID`、`doc.getElementsByTagName`等方法来定位网页中的元素。 5. 使用获到的Document对象和元素对象来定位和提需要的数据。可以使用元素对象的`innerText`、`getAttribute`等属性和方法来获元素的文本内容或属性值。 6. 将获到的数据保存到Excel等工作簿或其他数据源中。可以使用`Range`对象将数据写入到指定的单元格中,或使用ADO对象将数据插入到数据库中。 7. 关闭Internet Explorer对象,并释放相关资源。可以使用`ie.Quit`来关闭Internet Explorer对象。 需要注意的是,抓网页数据时,应遵守网页的使用规定和法律法规,避免非法获或滥用数据。同时,由于网页结构和数据可能会变化,需要根据具体网页的情况进行适当的调整和修改代码。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值