Excel VBA 根據圖片名稱插入對應圖片

Sub insertpic() '根據圖片名稱插入對應圖片 Dim r As Long, i As Long Dim path As String r = ActiveSheet.[a65536].End(xlUp).Row path = "E:\傢俱圖片\A客廳"       '修改圖片所在文件夾路徑 For i = 1 To r     If Dir(path & "\" & ActiveSh

>>阅读原文<<