Excel 如何修改以下代码以包含文件路径

我如何修改下面的代码以提供完整的文件路径，而不仅仅是文件名

Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$

InitialFoldr$ = "C:\"
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$ <> ""
            ActiveCell.Offset(xRow) = xFname$
            xRow = xRow + 1
            xFname$ = Dir
        Loop
    End If
End With

End Sub

Sub-GetFileNames（）
长得一样
Dim xDirect$、xFname$、InitialFoldr$
InitialFoldr$=“C:\”
使用Application.FileDialog（msoFileDialogFolderPicker）
.InitialFileName=Application.DefaultFilePath&“\”
.Title=“请选择要从中列出文件的文件夹”
.InitialFileName=InitialFoldr$
显示
如果.SelectedItems.Count 0，则
xDirect$=.SelectedItems（1）和“\”
xFname$=Dir（xDirect$，7）
执行xFname$“”
ActiveCell.Offset（xRow）=xFname$
xRow=xRow+1
xFname$=Dir
环
如果结束
以
端接头

请尝试

ActiveCell.Offset(xRow) = xDirect$ & xFname$

---

当我运行完整代码并提示我输入包含文件的文件夹时，它只返回excel中的文件名，而不返回整个路径。在excel中，我希望看到完整的内容，而不仅仅是文件名，但我不知道要编辑什么才能在excel中返回整个路径。如果添加

Debug.Print xDirect$

和

xFname$

，您会在以后的引用中找到它，尽量不要使用

ActiveCell

，尽量使用限定的

范围

，例如

工作表（“MeaningfulSheetName”）.Range（“A”&RowNum）.Value=xDirect$&xFname$

Oh。。。现在有点傻了，我明白Shai的意思了。。。嗯，谢谢-_-不客气。别担心。我们每个人都会这样。：）