主题：XLS模版引用问题

从狐表导出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) '保存工作簿

如果把Book.Build()写在上面

        Dim Book As New XLS.Book ( ProjectPath & "Attachments\ADV起版单.xls" )
        Dim sheet As XLS.Sheet '= Book.Sheets(0)
        Book.Build()
        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
               
        Dim fl As String = ProjectPath & "开单\" & nam & ".xls"
        Book.Save(fl) '保存工作簿

这样就不出现错误

但 模号 和客CODE就失效,赋值失败.

要如何解決??

如图的问题,一个错误对话框

BIN老師,图在8楼....

等我弄清思路,再想想一下

想到脑爆,...不行了

模版结构复杂与插图出错误沒有直接关系吧.

如果整个结构是用代码编出,插图是沒有问题的
但这样不夠高效
用模版引用会快
但就在插图这个环节出问题.