主题：生成excel报表时，出现错误

比如

    Dim path As String = ProjectPath & "Attachments/" & Tables("生产进度表").current("图片")
    If FileSys.FileExists(path) Then
        Wb.WorkSheets("Sheet1").range("L14").Select()
        Wb.WorkSheets("Sheet1").Shapes.AddPicture(path, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 0, 100, 80)
    End If

        对象.Save("d:\test.jpg")
        Wb.WorkSheets("Sheet1").range("L14").Select()
        Wb.WorkSheets("Sheet1").Shapes.AddPicture("d:\test.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 0, 100, 80)