Excel VBA 获取指定路径下的图片名称(带后缀)/(不带后缀)/跳出选择路径对话框手动选择路径

最新推荐文章于 2024-01-18 20:54:38 发布

lxljw1314

最新推荐文章于 2024-01-18 20:54:38 发布

阅读量5k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： Excel VBA

本文链接：https://blog.youkuaiyun.com/liuxiang860927/article/details/10359209

Excel VBA 专栏收录该内容

17 篇文章

订阅专栏

本文介绍如何使用VBA编程来批量获取指定文件夹内所有JPEG格式图片的名称，并将其记录到Excel表格中，提供了两种方法：一种是直接获取包括后缀在内的完整文件名；另一种是仅获取不含后缀的文件名。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub getpicname() '获取指定路径下的图片名称(※带后缀)
Dim path As String
    path = "E:\家具图片\A客厅"
     n = 2
     Filename = Dir(path & "\*.jpg")
    Do While Filename <> ""
    ActiveSheet.Cells(n, 1) = Filename
     Filename = Dir
      n = n + 21
    Loop
End Sub

///////////////////////////////////////////////////////////////////////////////////////////////////////////

Sub getpicname() '获取指定路径下的图片名称(※不带后缀)
Dim path As String
     Set fso = CreateObject("scripting.filesystemobject")
     path = "E:\家具图片\A客厅"
      n = 2
      Filename = Dir(path & "\*.jpg")
     Do While Filename <> ""
     ActiveSheet.Cells(n, 1) = fso.getbasename(Filename)
      Filename = Dir
       n = n + 21
     Loop
End Sub

====================================================

'跳出选择路径对话框手动选择路径

Sub getpicname() '获取指定路径下的图片名称(※不带后缀)
Dim fso As Object, shApp As Object, Path1 As Object
   Set fso = CreateObject("scripting.filesystemobject")
   Set shApp = CreateObject("Shell.application")
   Set Path1 = shApp.BrowseForFolder(0, "请选择目标文件夹", 0, 17) '参数17可根据实际修改为常用默认路径，例如："C:\Lx\all"
     path = Path1.items.Item.path
     n = 2
     Filename = Dir(path & "\*.jpg")
      Do While Filename <> ""
        ActiveSheet.Cells(n, 1) = fso.getbasename(Filename)
        Filename = Dir
          n = n + 21
      Loop
End Sub