以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于窗体表格汇总后的输出Excel  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178735)

--  作者:shqpldczj
--  发布时间:2022/7/18 14:35:00
--  关于窗体表格汇总后的输出Excel
有没有窗体表格汇总(可以分级汇总的)生成Excel的实例
--  作者:shqpldczj
--  发布时间:2022/7/18 14:48:00
--  saveexcel
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  \'保存文件
End If