Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(ProjectPath & "Attachments\111.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save( dlg.FileName) '保存工作簿
Dim Book1 As New XLS.Book(ProjectPath & "Attachments\333.xls") '打开模板
Dim Sheet1 As XLS.Sheet = Book1.Sheets(1)
Book1.Build() '生成细节区
Book1.Save( dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If 老师这个只能生成333的模板就是怎么样才能生成sheet1是111模板sheet2是333模板的
加好友 
发短信
Post By：2021/12/27 12:01:00 [只看该作者]
