Dim Book As New XLS.Book(ProjectPath & "Attachments\局方人员信息.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\局方人员信息.xls"
Dim Sheet1 As XLS.Sheet = Book.Sheets(0) '指定第1个工作表
此主题相关图片如下:捕获.jpg
Dim AirW_INS = e.Form.Controls("TextBox1").Text
Dim Main_INS = e.Form.Controls("TextBox2").Text
Dim Radi_INS = e.Form.Controls("TextBox3").Text
Sheet1(0,0).Value = e.Form.Controls("TextBox1").Text
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()