Nhờ giúp lấy đường dẫn file (1 người xem)

[hanguyen1702]

Chào mọi người, cho em hỏi có cách nào để khi mình chọn vào nút để chọn file thì đường dẫn của file sẽ hiện ra ko?

 

[giangleloi]

Chào mọi người, cho em hỏi có cách nào để khi mình chọn vào nút để chọn file thì đường dẫn của file sẽ hiện ra ko?

File bạn cần lấy là file gì? Nếu là excel không thì như vầycòn định dạng khác thì bạn tự đổi hoặc thêm định dạng đó vô nhé)

Sub Button1_Click()
    Dim vFile
    vFile = Application.GetOpenFilename("Excel Files, *.xls;*.xlsm;*.xlsx", , , , True)
    For i = 1 To UBound(vFile)
        Cells(i + 8, 2) = vFile(i)
    Next
End Sub

P/s: Code trên chưa bẫy lỗi nhé.

 

[dhn46]

Bạn dùng Code dạng này

Sub Test()
    [A1] = ThisWorkbook.FullName
End Sub

 

[be_09]

Chào mọi người, cho em hỏi có cách nào để khi mình chọn vào nút để chọn file thì đường dẫn của file sẽ hiện ra ko?

Hỏi một câu sao mơ hồ quá và không nêu rỏ mục đích lấy đường dẫn để làm gì?

- Lấy riêng cho từng File, cho từng loại File hay tất cả các loại định dạng File.
- Hay lấy hàng loạt File

 

[nttcntn]

Chào mọi người, cho em hỏi có cách nào để khi mình chọn vào nút để chọn file thì đường dẫn của file sẽ hiện ra ko?

Không rõ dàng lắm.
Nếu lấy đường dẫn file hiện tại lên bảng tính có thể dùng hàm Excel cũng đc ko phải code VBA
Nếu lấy vào header or footer thì Excel có sẵn rồi cho hiện &[Path]&[File] là ok