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)
system.Threading.Thread.Sleep(1000)
Book.Build() '生成细节区
Book.Save( dlg.FileName) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = dlg.FileName
Proc.Start()
End If
老师我不知道为什么每次导出都会下载图片的时候卡住了