作者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/cn.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