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