提取粘贴到Excel中的图像名称

时间:2015-08-08 02:17:35

标签: excel excel-vba vba

我正在尝试将Excel文件中的书籍列表导入现有的Access目录数据库,我的研究结果是空的。该文件有4700多行,每行每页一个条目。大约850行还有A列中书籍封面的图像。我的问题是行文本成功导入Access数据库,遗憾的是图像没有。

我想要做的是从图片中提取Excel图像编号并将其写入同一行的单元格,例如图片在A3中,图像编号将写入单元格B3。然后我可以将图像名称编号导入Access。这个数据库提供了链接到外部图像的功能,我只需要将Excel图像复制到一个公共位置。

我已经能够在Excel中找到图像并将它们导出到一个单独的文件夹中。在Excel中将它们称为image1.jpeg到imagexxx.jpeg,我保留了这些名称。

我尝试使用以下方法从工作表中提取图像名称: ActiveSheet.Shapes.Range(Array(“Picture 213”))。选择 但是,这个名字和我的图像之间似乎没有任何关系。 Image213与我测试的不一样。

我正在寻找一种方法将我从Excel中提取的图像与各自的行相关联。

Excel和Access版本是2013年。

1 个答案:

答案 0 :(得分:0)

这就是你要找的东西:

Option Explicit

Sub getImageInfo()

    Dim img As Shape

    For Each img In ActiveSheet.Shapes

        MsgBox "Image Name: " & img.Name & ", Image top row: " & img.TopLeftCell.Row

    Next

End Sub