VBA Использование ODBCConnection.RefreshDate Resuts in Error 1004

Question

Из-за того, что настроены рабочие книги, с которыми я работаю, в них создается много разных соединений, но только одно из соединений действительно. Допустимое соединение будет единственным соединением с датой обновления, поэтому я пытаюсь установить нулевую проверку с помощью макроса Excel, чтобы найти это. Код, который у меня есть до сих пор:

For Each c2 In ActiveWorkbook.Connections 
If Not IsNull(c2.ODBCConnection.RefreshDate) Then 
Blah Blah 
End If 

При нулевой проверке я сталкиваюсь с ошибкой времени выполнения '1004'; Определенная пользователем или объектная ошибка. Мне интересно, связано ли это с отсутствующей ссылкой? Или, возможно, что-то еще.

Любая помощь была бы принята с благодарностью! Спасибо!

Answer 1

Я думаю, что это вызвано как нет никакого чистого нулевого значения для типа Date. Вместо этого MS выдает ошибку при попытке получить к ней доступ.

Один из способов справиться с этим, чтобы получить значение в переменную, но завернуть, что извлечение в блоке обработчика ошибок:

Dim d As Date 
For Each c2 In ActiveWorkbook.Connections 
    On Error Resume Next 
    d = c2.OLEDBConnection.RefreshDate 
    If Err = 1004 Then 
     MsgBox "No date" 
    ElseIf Err <> 0 Then 
     MsgBox "Unknown error (" & Err.Number & "): " & Err.Description 
    Else 
     MsgBox CStr(d) 
    End If 
    On Error GoTo 0 
Next 

On Error Resume Next указывает, что следующий код не должен нарушать на ошибку ; On Error Goto 0 указывает, что нормальная (системная) обработка ошибок должна возобновиться.

Answer 2

Не все соединения ODBC, как насчет:

For Each c2 In ActiveWorkbook.Connections 
    If c2.Type = xlConnectionTypeODBC Then 
     If Not IsNull(c2.ODBCConnection.RefreshDate) Then 
     ''Blah Blah 
     End If 
    End If 
Next 

Однако, я не уверен, что это когда-либо будет нулевым: http://msdn.microsoft.com/en-us/library/office/ff837641(v=office.14).aspx