以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]导出Excel所有列时出错 (http://foxtable.net/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 -- 谢谢老师!赞!!! |