1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 取得指定文件夹下图片名称() Dim pi罕铞泱殳c As String荑樊综鲶, n As Long pic=Dir("C:\WINDOWS\Web\Wallpaper\*.*") '选择目录 While pic > "" '仅列出jpg/bmp和gif格式的文件名 If pic Like "*.jpg" Or pic Like "*.bmp" Or pic Like "*.gif" Then n=n+1 Cells(n, 1)="C:\WINDOWS\Web\Wallpaper\" & pic '输出文件路径和文件名 End If pic=Dir() WendEnd Sub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，A列立即列出指定文件夹下的图片完整路径，如图所示。可以将路径名修改为自己硬盘上存在的一个路径名测试。
