SUB lấy địa chỉ của file Excel , Hình ảnh, PDF

Ứng dụng: Có thể dùng để tạo nhanh hypelink, thống kê tài liệu, hoặc nâng cao hơn là dùng trong các VBA có thao tác mở file, thao tác trên file mà file hay đổi tên. Dùng trong các tác vụ sử dụng VBA Chèn hình trong ô có kích thước cho trước bằng địa chỉ của hình ảnh

Nguồn:Trên mạng 

Lưu ý:Vị trí bắt đầu ghi nhận vị trí sẽ luôn là ô A1 của active sheet

Sub GetFileName()

    Dim vFile

    vFile = Application.GetOpenFilename("Excel Files, *.xls;*.xlsm;*.xlsx", , , , True)

    For i = 1 To UBound(vFile)

        Cells(i, 1) = vFile(i)

    Next

End Sub

Kết quả:

Mở rộng:

Nếu muốn lấy địa chỉ file hình ảnh thì phải làm như thế nào?

Ta chỉ cần thay đổi thành phần của GetOpenfilename.

Sub GetFileJPG()

    Dim vFile

    vFile = Application.GetOpenFilename("*.jpg, *.jpg", , , , True)

    For i = 1 To UBound(vFile)

        Cells(i, 1) = vFile(i)

    Next

End Sub

Kết quả:

 Tương tự với file PDF, chắc chắn hữu dụng đối với  người làm TD:

Sub GetFilePdf()

    Dim vFile

    vFile = Application.GetOpenFilename("*.pdf, *.pdf", , , , True)

    For i = 1 To UBound(vFile)

        Cells(i, 1) = vFile(i)

    Next

End Sub