Excel 列出多个文件的完整文件路径并粘贴到特定列

我需要更改以下代码的帮助，以便获得所选多个文件的完整文件路径：

Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$, xpaths  

InitialFoldr$ = "C:\" 'Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .title = "Please select a folder to list Files from"
    .InitialFileName = InitialFoldr$
    .Show
If .SelectedItems.Count <> 0 Then
    xDirect$ = .SelectedItems(1) & "\"
    xFname$ = Dir(xDirect$, 7)
    Do While xFname$ <> ""
        Range("A2").Offset(xRow) = xFname$
        xRow = xRow + 1
        xFname$ = Dir
    Loop
End If

Dim xRow尽可能长
Dim xDirect$、xFname$、InitialFoldr$、xpaths
InitialFoldr$=“C:\”启动文件夹以开始搜索
使用Application.FileDialog（msoFileDialogFolderPicker）
.InitialFileName=Application.DefaultFilePath&“\”
.title=“请选择要从中列出文件的文件夹”
.InitialFileName=InitialFoldr$
显示
如果.SelectedItems.Count 0，则
xDirect$=.SelectedItems（1）和“\”
xFname$=Dir（xDirect$，7）
执行xFname$“”
范围（“A2”）。偏移量（xRow）=xFname$
xRow=xRow+1
xFname$=Dir
环
如果结束

将X行尺寸调整为最长
Dim xDirect$、xFname$、InitialFoldr$、xpaths
InitialFoldr$=“C:\”启动文件夹以开始搜索
使用Application.FileDialog（msoFileDialogFolderPicker）
.InitialFileName=Application.DefaultFilePath&“\”
.Title=“请选择要从中列出文件的文件夹”
.InitialFileName=InitialFoldr$
显示
如果.SelectedItems.Count 0，则
xDirect$=.SelectedItems（1）和“\”
xFname$=Dir（xDirect$，7）
执行xFname$“”
范围（“A2”）。偏移量（xRow）=xDirect$&xFname$
xRow=xRow+1
xFname$=Dir
环
如果结束
以

范围（“A2”）。偏移量（xRow）=xDirect$&xFname$

Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$, xpaths

InitialFoldr$ = "C:\" 'Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
    xDirect$ = .SelectedItems(1) & "\"
    xFname$ = Dir(xDirect$, 7)
    Do While xFname$ <> ""
        Range("A2").Offset(xRow) = xDirect$ & xFname$
        xRow = xRow + 1
        xFname$ = Dir

    Loop
End If

End With