主题：[求助]动态模板代码问题

基于一个窗口表，统计的项目不同生成的表格式不同，想设计一个按钮导出到excel.代码老提示

item   为 read only   错误代码 sheet(0,sz)= lm
 求教如何写这个代码

Dim sj As Date = Date.Today()

Dim F1 As String = ProjectPath & "统计预览"& SJ &".xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\统计预览.xls") '打开模板
Dim sheet As XLS.Sheet = Book.Sheets(0)
       Dim sz1 As Integer = Tables("统计表1").Cols.Count
       For Each ls As Col In Tables("统计表1").Cols
       Dim sz As Integer = ls.Index
      Dim lm As String
      lm =ls.name
       sheet(0,sz)= lm
       sheet(1,sz)="["& lm &"]"
       Next
      sheet(1,0)="<统计表1>"
      sheet(0,sz1+3)= "<End>"
      SHEET(1,SZ1+2)= "<ALL>"
      SHEET(3,0) = "<End>"
                           
Book.Build() '生成细节区
Book.Save(F1) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = F1
Proc.Start()

谢谢，这个问题解决了，新的问题又来了

Dim F1 As String = ProjectPath & "统计预览.xls"
Dim Book As New XLS.Book(ProjectPath & "Attachments\统计预览.xls") '打开模板

Dim sheet As XLS.Sheet = Book.Sheets(0)
Dim sz1 As Integer = Tables("统计表1").Cols.Count
For Each ls As Col In Tables("统计表1").Cols
    Dim sz As Integer = ls.Index
    Dim lm As String
    lm =ls.name
    sheet(0,sz).value= lm
    sheet(1,sz).value ="["& lm &"]"
Next
sheet(1,0).value = "<统计表1>"
sheet(0,sz1+3).value = "<End>"
SHEET(1,SZ1+2).value = "<ALL>"
SHEET(3,0).value = "<End>"

Book.Build() '生成细节区
Book.Save(F1) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = F1
Proc.Start()

找到原因了，excel版本问题！