Question

我试图将特定文件夹中的文本和图片插入到特定单元格中的隐藏Excel文件中，但是由于某些原因，我无法成功将图片添加到文件中。

我能打开一个隐藏的Excel文件，并将大量数据添加到Excel。我还可以将图片添加到运行VBA脚本的Excel。但是，将两者结合是我失败的地方。

我使用以下代码打开Excel文件并将数据放在其中：

Dim ExcelFileName As String
ExcelFileName = "C:\PictureTest.xlsx"

    Dim Workbook As New Excel.Application
    Dim DataWorkbook As New Excel.Workbook
    Set DataWorkbook = Workbook.Workbooks.Open(ExcelFileName)
        Workbook.Sheets("Sheet1").Cells(1, 1) = "Data to CELL"
    DataWorkbook.Save
    DataWorkbook.Close
    Set Workbook = Nothing
    Set DataWorkbook = Nothing

这很完美，我可以将数据放在任何需要的工作表中。但是，我还需要在某些工作表/单元格上放置图片。

我使用以下代码将图片添加到正在运行VBA脚本的活动Excel文件中：

Dim PicturePath As String
PicturePath = "C:\Picture.tif"

Dim strPath As String
Dim Picture As Object
            Set Picture = ActiveSheet.Pictures.Insert(PicturePath)
            Picture.ShapeRange.LockAspectRatio = msoCTrue
            Picture.Placement = xlMoveAndSize
            Picture.ShapeRange.Width = 0.3 * Picture.Width

有没有人可以帮助我将两者结合起来？

将图片插入隐藏的Excel文件

0 个答案: