Excel VBA:连接具有当前时间段不可用的单元格

问题描述

这是我的代码

Dim wb As Workbook

  For Each wb In Workbooks

      If wb.Name = "Default.xlsm" Then

         For Each objConnection In ThisWorkbook.Connections

            bBackground = objConnection.OLEDBConnection.BackgroundQuery

            objConnection.OLEDBConnection.BackgroundQuery = False


            objConnection.Refresh


            objConnection.OLEDBConnection.BackgroundQuery = bBackground
         Next

      End If
   Next

我正在从weather.com查询查询。但是,weather.com有时只会将信息放入其“天气”栏。每当他们没有“天气”的信息时,我都会收到错误消息。如果没有任何要刷新的数据,是否可以将单元格认设置为“ N / A”? 错误代码"Run-time error '1004': Application-defined or object-defined error".

谢谢。

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)