excel - 通过 Excel VBA 粘贴 HTML 表格的问题,错误处理似乎不起作用
问题描述
我有一个客户报告说他在运行宏以更新货币汇率时在此行出现错误:
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
PasteSpecial 方法失败。
主要问题是我什至无法复制错误。通过互联网连接,宏对我有效,如果我关闭连接,宏会粘贴一条消息,而不是给我同样的错误。我什至从未接触过我创建的错误处理消息。当我尝试在与客户端通话时进行故障排除时,宏可以工作。
这是错误所在代码的摘录:
shtBNR.Activate
shtBNR.Range("B3").Select
shtBNR.Range("B:B").NumberFormat = "@"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate "https://www.bnr.ro/StatisticsReportHTML.aspx?icid=800&table=668&column=&startDate=1-1-" & Year(Now) - 1 & " &stopDate=" & Format(Date, "dd-mm-yyyy")
Do Until .ReadyState = 4: DoEvents: Loop
End With
RetryCount = 0
RetryCopy:
RetryCount = RetryCount + 1
If RetryCount = 5 Then
MsgBox "Connection error! FX cannot be updated!"
IE.Quit
IE.Quit
Exit Sub
End If
IE.ExecWB 17, 0
IE.ExecWB 12, 2
On Error GoTo RetryCopy
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
On Error GoTo 0
IE.Quit
IE.Quit
在这一点上,我很感激任何线索或建议。
解决方案
推荐阅读
- gradle - SLF4J:使用 Gradle 插件的多个 SLF4J 绑定
- laravel - Laravel + Vue JS 路由显示找不到页面
- gradle - 如何将参数从gradle传递给ant?
- postgresql - Postgresql 跨数据库引用未实现
- javascript - ng-fullcalendar eventClick timeStamp没有给出正确的timeStamp错误
- css - css Angular 6 中是否仍需要供应商前缀?
- javascript - 如何使用 JavaScript 设置以下颜色选择器的颜色?(通过控制台定位输入元素?)
- php - Jquery Autocomplete 填充基于由字符串分隔的树
- ffmpeg - 如何使用 ffmpeg 将 dpx 格式的数据转换为 yuv 格式?
- javascript - 如何获取客户端本地 IP 和本地主机名