Giúp đỡ VBA code về lấy đường dẫn của nhiều files (1 người xem)

[eherols]

Chào các bạn, như tiêu đề mình đang muốn trích đường dẫn của những file mình đã chọn, mình có tham khảo đoạn code sau nhưng chỉ trích được 01 đường dẫn của 01 file duy nhất, vậy để lấy được đường dẫn của tất cả các file đã chọn và hiển thị theo từng dòng thì đoạn code phải sửa như thế nào ạ, mong được các bạn giúp đỡ và chỉ giáo ạ.

 

[BuiQuangThuan]

code phải sửa như thế nào ạ, mong được các bạn giúp đỡ và chỉ giáo ạ.

Nên đưa chữ giúp ở tiêu đề vào trong phần nội dung
Thử code này coi

Option Explicit
Sub ABC()
    Dim sFile, oFile, sh As Worksheet, K&
    Set sh = Sheet1
    sh.Range("A:A").ClearContents
    sFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xlsx", _
            Title:="Select File", MultiSelect:=True)
    If VarType(sFile) = vbBoolean Then MsgBox ("Chua chon File du lieu"): Exit Sub
    For Each oFile In sFile
        K = K + 1
        sh.Cells(K, 1).Value = oFile
    Next
End Sub

 

[eherols]

Nên đưa chữ giúp ở tiêu đề vào trong phần nội dung
Thử code này coi

Dạ em sẽ lưu ý, code của bác đúng ý em rồi ạ, em xin cám ơn nhiều ạ