如何用宏将文件夹图片导入到EXCEL相对应名称的单元格内

a347024981

  如图所示，我要将我电脑桌面文件夹（图片库）的图片批量导入图片那列，文件夹的图片名字和EXCEL表的货号是对应的，有没有老师会这个宏，教我下~~~我的QQ347024981，邮箱wang7582359@qq.com。

上清宫主

Sub 宏1()
For Each r In Range("a1:a5")
  If Dir(ThisWorkbook.Path & "\" & r.Value & ".jpg") <> "" Then
   Set p = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & r.Value & ".jpg")
   p.Top = r(1, 2).Top
   p.Left = r(1, 2).Left
   p.Height = r(1, 2).Height
   End If
Next
End Sub

guogongyi

你试试这个。

a347024981

上清宫主 发表于 2013-8-24 21:45
Sub 宏1()
For Each r In Range("a1:a5")
  If Dir(ThisWorkbook.Path & "\" & r.Value & ".jpg")  "" Th ...

还是不会 我把你的宏复制过来  然后执行 没有反应啊

a347024981

guogongyi 发表于 2013-8-24 22:25
你试试这个。

我下载 下来 用不了啊 求原因 QQ347024981

guogongyi

a347024981 发表于 2013-8-27 11:57
我下载 下来 用不了啊 求原因 QQ347024981

先下载解压（任意目录）

一、把图片放在“产品图片”目录下；
二、打开“播放图片”的电子表格，即此电子表格；
三、在货号栏放置图片的单元格内输入你的图片文件名；
四、点击“播入图片”按钮后，出现选择图片文件名的对话框，此时选择“货号”列单元格，如你想在A列A2到A4插入图片，则选择B2到B4，然后确定即可。

guogongyi

请看

沫沫无闻1985

guogongyi 发表于 2013-8-27 17:38
先下载解压（任意目录）

一、把图片放在“产品图片”目录下；

还是不会用 打开就这个样子 请问大侠 能不能把整个步骤在叙述一边，是只用你发的这个插件似的东西吗？

guogongyi 发表于 2013-8-27 17:38
先下载解压（任意目录）

一、把图片放在“产品图片”目录下；

学习了