Блог

Главная - Вопросы по программированию - Преуспейте в этой рабочей книге.followhyperlink Не работает

Преуспейте в этой рабочей книге.followhyperlink Не работает

#excel #vba

Вопрос:

У меня проблема с моим кодом ниже. Код находится в файле xlam (addin) и запускается с помощью кнопки на ленте. Предполагается, что это должно быть прямолинейно, и открывать гиперссылки на документы в общей папке из списка. Проблема в том, что он перестает работать случайным образом и генерирует сообщение об ошибке «Не удается открыть этот файл». Все гиперссылки функционируют, и ошибки не согласованы, один и тот же файл может открываться несколько раз, а другой-нет! Спасибо.

 
For i = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(i) = True Then
        ThisWorkbook.FollowHyperlink Me.ListBox1.List(i, 9)
        Exit Sub
    End If
Next i

If Me.ListBox1.ListIndex = -1 Then
    R = MsgBox("Please select a document from the list above to open!", vbExclamation)
    Exit Sub
End If

End Sub
Метки: