Cách viết Function VBA EXCEL tự động click. (1 người xem)

[Tunghocexcel]

Em chào mọi người ạ, em có một folder hình trong máy tính tầm mấy chục ngàn hình, em có một file tên hình, ngày tháng năm, và hyperlink ạ. Thì có một số hình bị miss không có trong folder nên khi click vào hyperlink trong file excel thì nó báo lỗi là "cannot open specified file"
, cho em hỏi cách mình viết một VBA Function để auto click vào một cái hyperlink ở trong Cell và đếm số Hyperlink bị lỗi ạ. Em cảm ơn rất nhiều. File mẫu đây ạ

 

[befaint]

Function isFileExists(ByVal strPathFile As String) As Boolean
    'Returns True if file exists, else returns False
    If VBA.Len(strPathFile) = 0 Then isFileExists = False: Exit Function
    Static fso As Object
    If fso Is Nothing Then Set fso = CreateObject("Scripting.FileSystemObject")
    isFileExists = fso.FileExists(strPathFile)
End Function

 

[Tunghocexcel]

Function isFileExists(ByVal strPathFile As String) As Boolean
    'Returns True if file exists, else returns False
    If VBA.Len(strPathFile) = 0 Then isFileExists = False: Exit Function
    Static fso As Object
    If fso Is Nothing Then Set fso = CreateObject("Scripting.FileSystemObject")
    isFileExists = fso.FileExists(strPathFile)
End Function

Cảm ơn bạn rất nhiều <3