看板 Office 關於我們 聯絡資訊
軟體: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
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
soyoso: 以變數的話,可以測試 https://i.imgur.com/fZ2Sy2h.jpg 07/15 16:13
lalalahu: 哈哈!!謝謝S大,抱歉犯了低級錯誤 07/15 16:20