主题：设置

 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  '保存文件
End If

 

保存窗口中的表格很实用！

这段代码可以加上表格标题和实线、页眉、页脚吗？

 

输入代码时无精灵，求高手指点