vba获取路径下所有文件名和对应的文件路径，并且显示到下面表格中。怎么做

一、所需DOS命令

dir [drive:][path] /b > [drive:][path]filename

二、应用实例

如下图，在D盘中，有一个名称为“TQIPC”的文件夹，这个文件夹里面，存放了很多的照片！

现在，我们要做的就是，如何让这些照片的名称，自动显示在Excel或记事本里面！

执行菜单 *** 作“开始”→“运行”，d出运行对话框，在里面输入 CMD 并按“确定”键，这个时候，会打开如下图的MS-DOS窗口！

之后，如下图一样，输入DOS命令即可！

上述的命令输入好之后，就按下回车键，命令就执行了，以上生成的是XLS文件；如果您想生成记事本TXT文件，那么，就输入下图的dos命令即可！

就这样，非常简单，文件名的列表文件，就形成了！如下图！

通过dos命令的 *** 作，我们就得到了如上图的两个文件了。

下面我们打开tempxls文件看看，如下图！

看到了没有，文件夹中的照片名称，自动就显示在excel表格中了！

该dos命令非常强大，用好dos命令，可省去我们很多的功夫。

三、知识扩展

下面，再给大家一个例子，即，自动根据照片(根据人物名称)，建立文件夹。

如果某个文件夹下面，您存放的是某些人物的照片，并且，每个人物的照片，都使用其名字来命名；这个时候，如何要自动根据人物的自动建立其对应的文件夹，也相当方便！

*** 作的方法是，先根据上述的方法，获取所有人物的照片的名称，生成EXCEL文件；

然后，在人物名称列前面，插入一列，并输入MD；

接下来，使用查找替换功能，将excel文件中的人物名称，去掉扩展名(只保留名字)；

最后，将excel的内容，复制粘贴到记事本中，现在，我们就得到了形如：“MD　人物名称”　这样的命令格式了。(md 文件名称，该命令格式，是使用来建立文件夹的命令，上述的 *** 作，都是为此做准备！)

将记事本文件保存成为形如：124bat格式的文件，最后，双击此文件，文件夹名称就自动建立好了！

Private Sub CommandButton1_Click()

Dim fn

Dim myfile As FileDialog

Set myfile = ApplicationFileDialog(msoFileDialogFilePicker)

With myfile

InitialFileName = "C:\"

If Show = -1 Then

For Each fn In SelectedItems

MeListBox1AddItem fn

Next fn

Else

MsgBox "出错了", "警告"

End If

End With

Set myfile = Nothing

End Sub

1没看懂

2这个就显示了绝对路径

3不可以

4没有

5可以调用，但是要有全局变量存储，再说了变量都给了listbox了，还要去select files 那里干嘛。

打开 工具-〉宏 -〉VisualBasc编辑器 编辑该宏 找到openfile 语句 把引号内的路径统统删掉，只保留文件名即可。注意，要打开的文件需和本EXCEL文件放在相同目录，不然还是找不到。

你只要运行语句，然后找到你那个文件夹，Office下次再打开是会自动记录位置的，直接定位到那个文件夹。

而且要指出的是：

GetOpenFilename 方法：显示标准的“打开”对话框，并获取用户文件名，而没有真正打开任何文件。

要真正打开文件要使用：Workbook的Open方法

xlappWorkbooksOpen (Filename)

注意：其中Filename参数需要指定文件的全路径。

fl

=

ApplicationGetOpenFilename(,

,

"打开目标文件")

此句是打开一个选择文件的对话框，fl得到的是你选择文件的具体路径；

WorkbooksOpen

Filename:=fl

这句是打开你选择的文件！

当然如果想打开指定文件，你可以不写第1句，直接把第2句的fl改成具体路径的字符串即可！

查找用Range对象的Find方法，返回Rang对象，然后再取Range对象的Row属性或Column属性返回行或列。Set C=Range("A1:E10")Find("abc")，If Not C Is Nothing then，R=CRow '返回Cl=CColumn '返回列。

在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。

扩展资料：

调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。

如果调用时用括号包住单个参数，则该参数强行按值传递。需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。由于微软Office软件的普及

人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率，例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单）等。

掌握了VBA，可以发挥以下作用：

1、规范用户的 *** 作，控制用户的 *** 作行为；

2、 *** 作界面人性化，方便用户的 *** 作；

3、多个步骤的手工 *** 作通过执行VBA代码可以迅速的实现；

4、实现一些VB无法实现的功能；

5、用VBA制做EXCEL登录系统；

6、利用VBA可以Excel内轻松开发出功能强大的自动化程序。

参考资料来源：百度百科-VBA

以上就是关于vba获取路径下所有文件名和对应的文件路径，并且显示到下面表格中。怎么做全部的内容，包括:vba获取路径下所有文件名和对应的文件路径，并且显示到下面表格中。怎么做、Excel VBA UserForm 取文件名和路径，特急！！！！、EXCEL中VBA宏程序:自动寻找路径问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！