Lấy tên đầy đủ cả đường dẫn và tên file của các file được chọn

[nncb2008]

Chào các anh, chị trên diễn đàn.
Trình độ VBA còn hạn chế, nên đã tìm kiếm và đọc trên diễn đàn nhưng vẫn không làm được, vì vậy muốn cậy nhờ các anh chị trợ giúp.
Em muốn lấy tên đầy đủ gồm cả đường dẫn và tên file của các file đã chọn trong hộp thoại GetOpenFilename vào cột A. File ví dụ đính kèm.
Xin cảm ơn các anh chị.

 

[dhn46]

Bạn có thể tham khảo Code sau:

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

Hoặc

Sub GetFileName()
With Application.FileDialog(msoFileDialogOpen)
    .Show
    .Filters.Clear
    .Filters.Add "Excel file", "*.xls; *.xlsx; *.xlsm"
    .AllowMultiSelect = True
    For i = 1 To .SelectedItems.Count
        Cells(i, 1) = .SelectedItems(i)
    Next
End With
End Sub

 

[thutran0801]

Bạn có thể tham khảo Code sau:

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

Hoặc

Sub GetFileName()
With Application.FileDialog(msoFileDialogOpen)
    .Show
    .Filters.Clear
    .Filters.Add "Excel file", "*.xls; *.xlsx; *.xlsm"
    .AllowMultiSelect = True
    For i = 1 To .SelectedItems.Count
        Cells(i, 1) = .SelectedItems(i)
    Next
End With
End Sub

Có code nào để chỉ hiện tên file ko vậy bạn ơi?

 

[Lequocvan]

Chào các anh, chị trên diễn đàn.
Trình độ VBA còn hạn chế, nên đã tìm kiếm và đọc trên diễn đàn nhưng vẫn không làm được, vì vậy muốn cậy nhờ các anh chị trợ giúp.
Em muốn lấy tên đầy đủ gồm cả đường dẫn và tên file của các file đã chọn trong hộp thoại GetOpenFilename vào cột A. File ví dụ đính kèm.
Xin cảm ơn các anh chị.

Em ngồi chỉnh sửa, tút lại code của các Thầy Cô đã đăng bài trên GPE và thêm vào file, ko rõ đúng ý chưa!
Lưu ý: Public FSO As Scripting.FileSystemObject có thể báo lỗi User-defined ...
Nhớ kích hoạt trong VBE: Tools - References - Microsoft Scripting Runtime

 

[dhn46]

Có code nào để chỉ hiện tên file ko vậy bạn ơi?

Bạn dùng dạng như thế này

Sub GetFileName()
With Application.FileDialog(msoFileDialogOpen)
    .Show
    .Filters.Clear
    .Filters.Add "Excel file", "*.xls; *.xlsx; *.xlsm"
    .AllowMultiSelect = True
    For i = 1 To .SelectedItems.Count
        Cells(i, 1) = Right(.SelectedItems(i), Len(.SelectedItems(i)) - VBA.InStrRev(.SelectedItems(i), "\"))
    Next
End With
End Sub