- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2010
- 閱讀權限
- 10
- 註冊時間
- 2015-11-26
- 最後登錄
- 2017-7-12
|
各位好
目前小弟碰到一個問題
就是我的資料夾內都會有連續的批號
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 |
|
發表於 2015-11-30 14:05
| 
