主题：XLS模版引用问题

我在当中加入了 插图代码
结果出现这样的错误

 
此主题相关图片如下：bug1.jpg

但仍能成功將图片插入XLS

代码如下:

        Dim Book As New XLS.Book ( ProjectPath & "Attachments\ADV起版单.xls" )
        Dim sheet As XLS.Sheet '= Book.Sheets(0)
       
        Sheet = Book.Sheets(0)
       
        For Each dr3 As DataRow In DataTables("进度").Select("模号 = '" & nam & "'")
            sheet(5,4).value = dr3("模号")
            sheet(1,24).value = dr3("客CODE")
            Sheet(9, 3).Value = New XLS.Picture(GetImage( dr3("图片IP") & "\" & dr3("图库模号") & ".jpg" ))
           
        Next
        Book.Build()
       
        Dim fl As String = ProjectPath & "开单\" & nam & ".xls"
        Book.Save(fl) '保存工作簿

要如何解決??

参考下面数组的输出方式，效率快很多

Dim xlApp As New MSExcel.Application

'xlApp.Visible = True

xlapp.ScreenUpdating = False

Dim wbNew As MSExcel.Workbook 

Dim wsNew As MSExcel.WorkSheet

Dim rng As MSExcel.range

’try

    For Each strPLID As String In lstPLID

        ws.copy (after:= wbNew.worksheets(wbnew.worksheets.count)) 'Copy 模板

        wsNew = xlApp.activeworkbook.activesheet '获取当前Copy模板 ,这两行好像可以合并一行

        Dim n As Integer ' 定义你要输出的行数

        If n = 0 Then Continue For

        Dim arr(0 To n - 1,0 To 5) '定义个数组

        For IntA = 0 To n - 1

            Dim dr As DataRow = lstdr(IntA)

            arr(IntA,0) = 

            arr(IntA,1) = 

            arr(IntA,2) = 

            arr(IntA,3) = 

            arr(IntA,4) = 

            arr(IntA,5) = 

        Next

        wsNew.range("A15").resize(n,ubound(arr,2) + 1).value = arr '比你一行行块10-100倍，行数越多效率越高

    Next

    xlapp.DisplayAlerts = False

    Dim str As String = '保存的文件名

    wbNew.worksheets(1).delete

    wbNew.saveas(strFileGen & str)

    wb.close

    xlapp.DisplayAlerts = True

    xlapp.ScreenUpdating = True

    xlapp.visible = True