Dim Book As New XLS.Book(ProjectPath & "Attachments\Report-s.xls") '打开模板
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按
Book.Build() '生成报表
Dim sheet As XLS.Sheet = Book.Sheets("T_Report")
For j As Integer = 9 To 14
For i As Integer = 1 To sheet.Rows.count-1
If sheet(i, j).Value = "TURE" Then
sheet(i, j).Value = "是"
ElseIf sheet(i, j).Value = "FALSE" Then
sheet(i,j).value = "否"
End If
Next
Next
Book.Save(dlg.FileName)
End If
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
如题，发现生成的报表还是没有转换过来；
加好友 
发短信
Post By：2017/11/24 15:56:00 [只看该作者]
