Excel-VBA: 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:internet

1. lấy các file excel

Sub GetFileName()

    Dim vFile

    vFile = Application.GetOpenFilename("Excel Files, *.xls;*.xlsm;*.xlsx", , , , True)'thêm các loại file khác tại đây

    For i = 1 To UBound(vFile)

        Cells(i, 1) = vFile(i) 'vị trí bắt đầu là ô A1

    Next

End Sub

Kết quả:

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