→ soyoso: 用dir(thisworkook.path & "\...夾\*" & cells(i,j) & "*. 07/15 13:38
→ soyoso: jpg" 來取得完整檔名,取代綠色那行的cells(...) & ".jpg" 07/15 13:40
→ soyoso: 如檔名內前後有-(負號)的部分才是產品編號的話,字串連接 07/15 13:46
→ soyoso: 上再自行加入,不然不確定這個數字是否於產品編號或最後日 07/15 13:46
→ soyoso: 期都有存在 07/15 13:46
→ soyoso: 07/15 13:40 回文,是jpg"),落了右括號 07/15 13:50
→ lalalahu: 感謝S大,我馬上試試 07/15 13:52
請教S大,剛剛試了很多次
用Dir(thisworkook.Path & "\照片資料夾\*" & Cells(i,j) & "*.jpg") 取代下面
白底
ThisWorkbook.Path & "\照片資料夾\" & Cells(i, j) &".JPG").Select
這樣抓不出圖片,請問是哪裡出了問題
另外
若定義一個 String
Dim myname As string
myname = Dir(thisworkook.Path & "\照片資料區\*" & Cells(i , j ) & "*.jpg")
Msgbox(myname)
會秀出空白,這樣是否可以用來測試DIR取得的值?
先謝謝大大
※ 編輯: lalalahu (36.231.198.63 臺灣), 07/15/2020 16:05:16
→ soyoso: 07/15 13:38回文thisworkook.path落字了,是thisworkbook 07/15 16:09
→ lalalahu: 哈哈!!謝謝S大,抱歉犯了低級錯誤 07/15 16:20