Code lấy đường dẫn của cell có chứa Hyperlinks (1 người xem)

[nampq1969]

Chào các bác, các bác giúp mình code lấy đường dẫn của cell có chứa Hyperlinks.
V/d: Cell "AG1" chứa Hyperlinks để mở một file khác.
Mình muốn viết code để lấy đường dẫn đến file này mà loay hoay hoài không được.
Các bác giúp mình với.
Vui lòng gửi hướng dẫn vào mail: nampq1969@gmail.com
Cảm ơn.

 

[ndu96081631]

Chào các bác, các bác giúp mình code lấy đường dẫn của cell có chứa Hyperlinks.
V/d: Cell "AG1" chứa Hyperlinks để mở một file khác.
Mình muốn viết code để lấy đường dẫn đến file này mà loay hoay hoài không được.
Các bác giúp mình với.
Vui lòng gửi hướng dẫn vào mail: nampq1969@gmail.com
Cảm ơn.

Thí nghiệm cái xem nào:

Sub Main()
  Dim lnk As Hyperlink, wks As Worksheet
  Dim Arr(), n As Long
  On Error Resume Next
  For Each wks In ThisWorkbook.Worksheets
    For Each lnk In wks.Hyperlinks
      n = n + 1
      ReDim Preserve Arr(1 To n)
      Arr(n) = lnk.Address
    Next
  Next
  If n Then MsgBox Join(Arr, vbLf)
End Sub