- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 导出问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=140196)
-- 发布时间：2019/8/31 14:10:00
-- [求助] 导出问题
你好，Foxtable菜单上有这么一个Excel导出按钮， 我在窗口中的表单不能直接按这个按钮，可以用控件来调用这个功能吗？导出的内容根据窗口中的内容
此主题相关图片如下：捕获.jpg
-- 发布时间：2019/8/31 14:14:00
--
参考：http://www.foxtable.com/webhelp/topics/0559.htm
-- 发布时间：2019/8/31 14:35:00
--
你好，我要导出批定列，该如何改 ？
Dim dlg As New SaveFileDialoG
dlg.Filter= "Excel文件|*.xlsx"
Dim flg As New SaveExcelFlags
flg.VisibleOnly = True
If dlg.ShowDialog = DialogResult.Ok Then
Tables("orderlist").SaveExcel(dlg.FileName,"PMC")
End If
-- 发布时间：2019/8/31 14:56:00
--
隐藏不需要导出的列
-- 发布时间：2019/8/31 15:48:00
--
老师我隐藏表中的列，可是导出来还是有的。
-- 发布时间：2019/8/31 16:00:00
--
Tables("orderlist").SaveExcel(dlg.FileName,"PMC"，flg)
-- 发布时间：2019/8/31 20:46:00
--
你好，我加了后， 还是出现的。不知道怎么回事了。
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
Dim flg As New SaveExcelFlags
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
flg.VisibleOnly = True
Tables("orderlist").SaveExcel(dlg.FileName,"PMC",flg) \'保存文件
End If
-- 发布时间：2019/9/1 22:05:00
--
上传实例说明