標題: [發問] excel VBA自動帶入圖片 [打印本頁]

---

作者: a01030202    時間: 2015-11-30 14:05     標題: excel VBA自動帶入圖片

各位好
目前小弟碰到一個問題
就是我的資料夾內都會有連續的批號
ex:A00001,A00002,A00003,...
裡面的圖片也是都是連續的
ex:001-1,001-2,002-1,002-2,.....
目前有爬文可以讓一個資料夾帶入圖片
可是沒有辦法搜尋下一個資料夾
變成我要帶入下一個的時候要去改VBA
這樣感覺很慢
以及說因為有些資料夾內的檔案會跳號,但是檔名一樣
不知道能不能設定在帶入圖片後可以參照第一列
若有第一列(已手動打上去的名字)才帶入對應圖片

附上我爬文後的程式碼
謝謝各位

Sub PHOTO()
ActiveSheet.Columns("C") = ""
Set Sh = ActiveSheet
With Sh
    .Pictures.Delete
End With
fs = Dir("G:\picture\A00001\*.jpg")
Do Until fs = ""
   R = R + 1
   Cells(1, R + 1) = fs
   Cells(2, R + 1).Select
   ActiveSheet.Pictures.Insert("G:\picture\A00001\" & Cells(1, R + 1)).Select
   With Selection
       .Top = ActiveSheet.Cells(2, R + 1).Top + 1
       .Left = ActiveSheet.Cells(2, R + 1).Left + 1
       .Width = ActiveSheet.Cells(2, R + 1).Width - 1
       .Height = ActiveSheet.Cells(2, R + 1).Height - 1
   End With
   fs = Dir
Loop
End Sub

---

作者: Joforn    時間: 2015-12-8 12:52

你所說明的資料夾結構不太明確，比如：
在"G:\picture\"資料夾中有A00001,A00002,A00003...資料夾，A00001下的文件被命名為001-1.JPG,001-2.JPG.....A00002下的文件被命名為002-1.JPG,002-2.JPG.....這樣子麼？
或是直接只在"G:\picture\"資料夾裡搜尋A列中的文件名，如果文件存在則將圖片導入Sheet?那麼A列中的文件名是以"G:\picture\A00001\001-1.JPG"方式，還是"001-1.JPG"方式，或是"001-1"方式？

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)