- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]导出表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157364)
-- 发布时间：2020/10/13 15:15:00
-- [求助]导出表的问题
请教各位大神!!!!
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("顺丰_华伟对账表").SaveExcel(dlg.FileName, "顺丰_华伟对账表") \'保存文件
End If
我用上面的 只能导出一张一张的表
谢谢!!!!!
-- 发布时间：2020/10/13 15:48:00
--
此主题相关图片如下：文件_2020-10-13_154258.jpg
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("顺丰_华伟对账表").SaveExcel(dlg.FileName, "顺丰_华伟对账表1 2 3 4 .....") \'保存文件,每次应该sheet取不同的名子
End If
[此贴子已经被作者于2020/10/13 15:48:29编辑过]
-- 发布时间：2020/10/13 15:57:00
--
也可以自行写代码填充数据：http://www.foxtable.com/webhelp/topics/1148.htm
-- 发布时间：2020/10/13 23:51:00
--
谢谢!!!
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("顺丰账务总表").SaveExcel(dlg.FileName, "顺丰账务总表")
Tables("顺丰账务总表").SaveExcel(dlg.FileName, "顺丰_华伟对账表") \'保存文件,每次应该sheet取不同的名子
End If
这样就能把总表和华伟导到一张表上了.非常感谢!!!
-- 发布时间：2020/10/13 23:52:00
--
谢谢 大神!!!
这个我还没有完全理解会!!!!