以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导出Excel所有列时出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179675)
--  作者：2425004926
--  发布时间：2022/9/2 19:05:00
--  [求助]导出Excel所有列时出错
导出所有列时出错，不加, False可以导出显示列，加, False就出错

Dim flg As New SaveExcelFlags \'定义保存样式,只保存可见列
flg.RowNumber = True \'加行号
flg.CellStyle = True \'绘图样式

Dim dlg As New SaveFileDialog \'定义一个保存对话框SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("表A").SaveExcel(dlg.FileName, "测试", flg, False)
End If
--  作者：有点蓝
--  发布时间：2022/9/3 8:53:00
--  
Dim flg As New SaveExcelFlags \'定义保存样式,只保存可见列
flg.RowNumber = True \'加行号
flg.CellStyle = True \'绘图样式
flg.VisibleOnly = False

Dim dlg As New SaveFileDialog \'定义一个保存对话框SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables("表A").SaveExcel(dlg.FileName, "测试", flg)
End If
--  作者：2425004926
--  发布时间：2022/9/3 11:29:00
--  
谢谢老师！赞！！！