[問題] VBA 抓圖片名(用部分字串抓取)

看板Office作者 (<(￣︶￣)@m)時間3年前 (2020/07/15 12:57), 3年前編輯推噓0(0推 0噓 10→)
留言10則, 2人參與, 3年前最新討論串1/1
軟體:OFFICE 2010 EXCEL 請教各位前輩，關於參照儲存格A的產品編號 去資料夾內抓取圖片 (儲存格僅包含圖片的部分字串) 若儲存格(cells(i, j)內文字為產品編號8888，但照片資料夾內欲抓取的 圖片名稱為:清潔劑-8888-20200715 請問以下VBA的綠色的函數那段該怎麼修正，謝謝 以下為部分程式碼: Cells(X, Y).Select ActiveSheet.Pictures.Insert( _ ThisWorkbook.Path & "\照片資料夾\" & Cells(i, j) & ".JPG").Select ' Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 100 Selection.ShapeRange.Width = 100# Selection.ShapeRange.Rotation = 0# -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.231.198.63 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1594789039.A.C23.html
→
07/15 13:38, 3年前 , 1F
用dir(thisworkook.path & "\...夾\*" & cells(i,j) & "*.
07/15 13:38, 1F
→
07/15 13:40, 3年前 , 2F
jpg" 來取得完整檔名，取代綠色那行的cells(...) & ".jpg"
07/15 13:40, 2F
→
07/15 13:46, 3年前 , 3F
如檔名內前後有-(負號)的部分才是產品編號的話，字串連接
07/15 13:46, 3F
→
07/15 13:46, 3年前 , 4F
上再自行加入，不然不確定這個數字是否於產品編號或最後日
07/15 13:46, 4F
→
07/15 13:46, 3年前 , 5F
期都有存在
07/15 13:46, 5F
→
07/15 13:50, 3年前 , 6F
07/15 13:40 回文，是jpg")，落了右括號
07/15 13:50, 6F
→
07/15 13:52, 3年前 , 7F
感謝S大，我馬上試試
07/15 13:52, 7F
請教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
→
07/15 16:09, 3年前 , 8F
07/15 13:38回文thisworkook.path落字了，是thisworkbook
07/15 16:09, 8F
→
07/15 16:13, 3年前 , 9F
以變數的話，可以測試 https://i.imgur.com/fZ2Sy2h.jpg
07/15 16:13, 9F
→
07/15 16:20, 3年前 , 10F
哈哈!!謝謝S大，抱歉犯了低級錯誤
07/15 16:20, 10F
‣ 更多 lalalahu 的文章
文章代碼(AID): #1V3eolmZ (Office)