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

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