regex - Excel VBA : Automation error- Remote procedure call failed

Question

我正在从网站提取某些数据。我必须对表中至少一百万行执行此任务。我正在使用 Excel VBA 连接 MySQL。

• 使用 MySQL 与 Excel VBA 连接，我从表中获取作者的名字和姓氏。
• 对于作者的名字和姓氏，我将 Linkedin 附加到搜索查询中，并在 Google 中进行搜索。
• 从搜索结果中，我打开 HTML 格式的第一个搜索结果页面并提取一些信息。
• 我将一些提取的信息放回 MySQL 表中。

按照上述步骤一切正常。但是，如果我尝试对超过 10 行执行此操作，则会出现以下错误。

Automation error the remote procedure call failed and did not execute

我意识到这与 IE 的打开/关闭有关。在我的程序中，我有以下代码。

为了创建一个新的 IE 应用程序，我定义如下。

Set ie = New InternetExplorer
Set RegEx = New RegExp
Dim iedoc As Object
ie.Navigate "http://www.google.com/search?hl=en&q=" & FirstName & "+" & LastName &  
"+linkedin&meta="
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
MyStr = ie.Document.body.innerText
Set RegMatch = RegEx.Execute(MyStr)

提取一位作者的数据后，我在最后得到了下面的代码。

ie.Quit
Set RegEx = Nothing
Set ie = Nothing
Dim strBatchName As String
strBatchName = "F:\command.bat"
Shell strBatchName

command.bat 具有以下代码。

taskkill.exe /F /IM iexplore.exe /T

如果我的表中的行数少于 10 行，它就可以正常工作。但是，对于更多行数，我确实收到上述错误。

Answer 1

我更倾向于使用同一个 ie 实例来获取所有作者数据，如下例所示循环遍历它们。另外，您的批处理文件对数据做了什么？我从未发现需要批处理文件来帮助执行 vba。您使用它们来编写文本文件吗？您也可以使用 VBA 来完成此任务。

Dim ie As Object, lastRowAuthors as long, i as long, strBatchName As String

lastRowAuthors = sheets("Authors").Cells(Rows.Count, 1).End(xlUp).row
Set ie = New InternetExplorer


for i = 1 to lastRowAuthors

    ie.Navigate "http://www.google.com/search?hl=en&q=" & sheets("Authors").range("A" & i).value  & "+" & sheets("Authors").range("B" & i).value &  
    "+linkedin&meta="
    Do Until ie.ReadyState = READYSTATE_COMPLETE
    Loop


    Set RegEx = New RegExp

    MyStr = ie.Document.body.innerText
    Set RegMatch = RegEx.Execute(MyStr)

'*****************************************************************
'   Use your REGEX commands to extract data
'*****************************************************************
    strBatchName = "F:\command.bat"
    Shell strBatchName
next i

ie.Quit
Set RegEx = Nothing
Set ie = Nothing

end sub