首先，使用Excel实现获取文件夹中文件路径的功能需要用到VBA代玛，因此，我们先打解Excel的VBA编辑器，然后在编辑器里写入以下代玛来实现获取文件夹中文件路径的目的：

Sub FileNameAndPath() '定义一个字符串变量MyDir，用于指定文件夹 Dim MyDir As String '在下面的行框中输入所需获取文件路径的文件夹绝对路径即可 MyDir = "C:\User\Desktop\myfolder"   '定义一个变量

Fname，用于保存当前文件夹下的文件名 Dim Fname As Variant '定义一个变量Row作为Excel中用于记录文件名及其路径的行号 Dim Row As Integer '初始化变量Row赋值为5 Row = 5 '使用Fname变量来获取该文

件夹下的所有文件的完整路径，并保存在数组fname中 Fname = Dir(MyDir & "\*.*") '循环文件夹FileName中的所有文件，并将文件名和完整路径依次写入Excel表格中     Do While Fname <> ""    Cells(Row, 

1).Value = Fname    Cells(Row, 2).Value = MyDir & "\" & Fname    Fname = Dir    Row = Row + 1 Loop End Sub 

在上述代玛中，MyDir变量用于指定文件夹，Fname变量用于保存当前文件夹下的文件名，Row变量用于指定Excel中记录文件名及其路径的行号，Dir函数用来获取文件夹中的文件，Cells函数用来写入文件名和完整

路径到Excel表格中，Do-While循环用于循环读取文件夹中的所有文件。 

因此，当上述代玛执行完毕后，我们就可以在Excel表格中看到文件夹下对应文件名及其完整路径。

转载请注明来源本文地址：https://m.tuituisoft/office/37843.html