Dim s, aaPrivate Sub Command1_Click()
Set aa = CreateObject("SimPlugOCR.OCR") 这句出错,自动化错误-2147024770 (8007007e)
aa.Dict = "D:\字库.txt"
aa.FontColor = "FFFFFF"
s = aa.OCR(70, 170, 100, 200)
MsgBox Len(s) & s
End Sub
Set aa = CreateObject("SimPlugOCR.OCR") 这句出错,自动化错误-2147024770 (8007007e)
aa.Dict = "D:\字库.txt"
aa.FontColor = "FFFFFF"
s = aa.OCR(70, 170, 100, 200)
MsgBox Len(s) & s
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货