作者lalalahu (<(￣︶￣)@m)
看板Office
標題[問題] VBA 抓圖片名(用部分字串抓取)
時間Wed Jul 15 12:57:16 2020
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1594789039.A.C23.html
1F：→ soyoso: 用dir(thisworkook.path & "\...夾\*" & cells(i,j) & "*. 07/15 13:38
2F：→ soyoso: jpg" 來取得完整檔名，取代綠色那行的cells(...) & ".jpg" 07/15 13:40
3F：→ soyoso: 如檔名內前後有-(負號)的部分才是產品編號的話，字串連接 07/15 13:46
4F：→ soyoso: 上再自行加入，不然不確定這個數字是否於產品編號或最後日 07/15 13:46
5F：→ soyoso: 期都有存在 07/15 13:46
6F：→ soyoso: 07/15 13:40 回文，是jpg")，落了右括號 07/15 13:50
7F：→ 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
8F：→ soyoso: 07/15 13:38回文thisworkook.path落字了，是thisworkbook 07/15 16:09
10F：→ lalalahu: 哈哈!!謝謝S大，抱歉犯了低級錯誤 07/15 16:20