код VBA Excel followhyperlink

Question

У меня есть Excel, содержащий ячейку A1 в c:\user\download и клетки A2 содержит c:\user и клеточно A3 содержит c:\.

Где я использовал кодирование следующим образом:

Sub opendfolder() 
    Dim myfolder As String, nextfolder as string, nextfolder1 as string 

    myfolder = Range("a1").Value 
    ActiveWorkbook.FollowHyperlink myfolder 

    nextfolder = range("a2").value 
    ActiveWorkbook.FollowHyperlink nextfolder 

    nextfolder1 = range("a3").value 
    ActiveWorkbook.FollowHyperlink nextfolder1 
End Sub 

Но моя проблема в настоящее время является то, что VBA код должен выполнить, чтобы проверить первую ячейку A1, если он получил ошибку затем Гото ячейку A2 и так далее ...

И еще один если VBA код способен выполнить в ячейке A1 уровня только тогда нет необходимости выполнять следующие клетки A2 или A3. Теперь кодирование, которое я написал, выполняет все три.

Можете ли вы помочь мне писать код, который будет выполняться в ячейке A1 , если A1 терпит неудачу, то перейти к A2. если ячейка A2 может успешно выполнить, то она не должна выполняться для кода в ячейке A3. Код должен остановиться в ячейке A2.

Если не удается в A2 клетки, то она должна попробовать ячейки A3.

Пожалуйста, помогите мне, я не смог получить логику, как написать код в приведенном выше сценарии.

Answer 1

Это может помочь вам понять, как поймать ошибку. Я думаю, вы можете выяснить, как упорядочить заявления if.

On Error Resume Next 
    ActiveWorkbook.FollowHyperlink "c:\aaa" 
    If Err.Number > 0 Then 
     Err.Clear 
     MsgBox "there was an error" 
     'an error occured, try next link 
    End If 
On Error GoTo 0