[問題] VBA 抓圖片名(用部分字串抓取) lalalahu PTT批踢踢實業坊

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

作者: lalalahu (<(￣︶￣)@m) 2020-07-15 12:57:16

軟體: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#

作者: soyoso (我是耀宗) 2020-07-15 13:38:00

用dir(thisworkook.path & "\...夾\*" & cells(i,j) & "*.jpg" 來取得完整檔名，取代綠色那行的cells(...) & ".jpg"如檔名內前後有-(負號)的部分才是產品編號的話，字串連接上再自行加入，不然不確定這個數字是否於產品編號或最後日期都有存在07/15 13:40 回文，是jpg")，落了右括號

作者: lalalahu (<(￣︶￣)@m) 2020-07-15 13:52:00

感謝S大，我馬上試試

作者: soyoso (我是耀宗) 2020-07-15 16:09:00

07/15 13:38回文thisworkook.path落字了，是thisworkbook以變數的話，可以測試 https://i.imgur.com/fZ2Sy2h.jpg

作者: lalalahu (<(￣︶￣)@m) 2020-07-15 16:20:00

哈哈!!謝謝S大，抱歉犯了低級錯誤

繼續閱讀

[算表] 兩個表單比對查詢ga014388 [問題] Outlook 關閉紀錄開啟郵件視窗?CATANDDOGGO [算表] 請教如何以公式展開 1~5, 1-3的字串donkeychen [算表] 將資料依分類加總後運算,並可YTD向右填滿DevilDante [問題] excel 只刪除"整列"空白的列Chelsea1231 [問題] excel二維查找qwer11324 [問題] 請問outlook如何匯出.msg檔rtvb1208 [算表] replace 函數運用jeng0304 [問題] 圖目錄 -》插入標號 -》標號（前有空隔)bridgepons [算表] 計算標紅字數量miko740909