返回列表 上一主題 發帖

[發問] excel VBA自動帶入圖片

a01030202

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
xp 
軟體版本
office 2010 
閱讀權限
10 
註冊時間
2015-11-26 
最後登錄
2017-7-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　暱稱: 南宮飄雪

中學生Rank: 2

帖子
109 
主題
2 
精華
0 
積分
114 
點名
0  
作業系統
Win7 Win10 
軟體版本
Office 2019 WPS 
閱讀權限
20 
性別
男 
來自
深圳 
註冊時間
2013-2-2 
最後登錄
2024-4-9 
2#
發表於 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"方式？
世界那麼大，可我想去哪？

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題