vba - 自动将图片文件上传到免费的在线 OCR 资源

Question

我正在尝试将 .jpg 文件上传到免费的在线 OCR 网站。我正在为这个项目使用 Excel VBA:

Sub getOcrText()

 Dim ocrAddress As String: ocrAddress = "http://www.free-online-ocr.com"
 Dim picFile As String: picFile = "C:\Users\310217955\Documents\pdfdown\test.jpg"
 Dim elementCollection As Variant
 Dim IE As New InternetExplorerMedium
 With IE

    .Visible = True
    .Navigate (ocrAddress)
     Do While IE.Busy: DoEvents: Loop
     Set elementCollection = IE.document.getElementsByName("fileUpload")

 End With
 IE.Quit
 Set IE = Nothing
End Sub

但是，当我运行代码以查看是否将对象设置为 elementCollection我收到运行时错误、自动化错误、未指定错误，代码成功导航到所需的网页。



我该如何克服这个错误？

Answer 1

您需要更改几行。

首先这个:

Dim IE As Object: Set IE = CreateObject("InternetExplorer.Application")

.

第二个问题...
IE.Busy不是一个充分的测试。将该行改为以下内容:

Do While (IE.Busy Or IE.READYSTATE <> 4): DoEvents: Loop