VBA的Excel代碼followhyperlink

-2

我有Excel中，含細胞A1爲c:\user\download和細胞A2包含c:\user和細胞A3包含c:\。VBA的Excel代碼followhyperlink

當我使用的編碼如下：

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。

請幫助我，我無法得到如何在上述場景中編寫代碼的邏輯。

來源

2017-02-17 Pavan

認真嗎？儘快？ –

你應該檢查這個http://meta.stackexchange.com/questions/80538/how-to-ask-questions-on-stack-overflow –

這可能會幫助您弄清楚如何捕捉錯誤。我想你可以想出如何自己安排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

來源

2017-02-17 08:14:39

VBA的Excel代碼followhyperlink

回答

相關問題