这样试试
Dim Book As New XLS.Book(fp)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName=tr("客户简称") & tr("对账年份") & tr("对账月份") & "对账表.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim fl As String = dlg.FileName
book.AddDataTable("客户对账","V16Data",sqlstr)
book.AddDataTable("客户对账明细","V16Data",sql1)
book.AddRelation("客户对账","对账编号","客户对账明细","对账编号") '建立关联
'MessageBox.show("start build")
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
'MessageBox.Show("end")
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
End If
加好友 
发短信
Post By：2024/6/20 16:19:00 [显示全部帖子]
