怎样使用VBA取得指定文件夹下图片名称?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 取得指定文件夹下图片名称()

 

    Dim pic 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()

 

    Wend

 

End Sub

5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，A列立即列出指定文件夹下的图片完整路径，如图所示。可以将路径名修改为自己硬盘上存在的一个路径名测试。