[问题] 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