Question

我正在尝试将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年。

Answer 1

这就是你要找的东西：

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

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

1 个答案: