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