怎样使用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列立即列出指定文件夹下的图片完整路径，如图所示。可以将路径名修改为自己硬盘上存在的一个路径名测试。