- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 导出Excel (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81492)
-- 发布时间：2016/2/29 11:06:00
-- 导出Excel
如文件，如图，我想把这个记录窗口导出成excel文件，狐表中是横向的，导出成excel就变成竖向的，不知道能不能实现，求老师指点？
此主题相关图片如下：qq截图20160229105920.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出excel.table |
-- 发布时间：2016/2/29 11:14:00
--
求老师指点下代码怎么写，或知识点在那里? 跪谢！
-- 发布时间：2016/2/29 11:21:00
--
你是要导出一行，还是要导出全部数据？
excel里面，列数最大是256列，那你的行数肯定不能超过255行啊。
-- 发布时间：2016/2/29 11:23:00
--
谢谢老师！我就想导出窗口中的这个记录窗口中的数据，最多也不会超过50条！
-- 发布时间：2016/2/29 11:24:00
--
因为记录窗口把原主表的列转变了方向，主要还是想把主表中的数据变成竖版的！
-- 发布时间：2016/2/29 11:27:00
--
因为记录窗口把原主表的列转变了方向，主要还是想把主表中的数据变成竖版的！
肯定不行，看3楼。
如果保存一行，参考
Dim rgd As object = Forms("窗口1").Controls("RecordGrid1").basecontrol
rgd.saveexcel("d:\\aa.xls", "表A", C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells Or C1.Win.C1FlexGrid.FileFlags.AsDisplayed Or C1.Win.C1FlexGrid.FileFlags.SaveMergedRanges)
-- 发布时间：2016/2/29 11:29:00
--
谢谢老师！我就想导出窗口中的这个记录窗口中的数据，最多也不会超过50条！
那你可以用模板来做，如
http://www.foxtable.com/help/topics/1414.htm
-- 发布时间：2016/2/29 11:33:00
--
谢谢老师指点，我表达的不对，能导出一行就可以了！万分感谢！
-- 发布时间：2016/3/2 13:59:00
--
大红袍老师您好，您之前的代码：
Dim rgd As object = Forms("窗口1").Controls("RecordGrid1").basecontrol
rgd.saveexcel("d:\\aa.xls", "表A", C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells Or C1.Win.C1FlexGrid.FileFlags.AsDisplayed Or C1.Win.C1FlexGrid.FileFlags.SaveMergedRanges)
关于这个路径的问题？"d:\\aa.xls"
我在表中设置一列标题为“导出地址”,如其中的内容为：D：\\aa\\aa\\aa\\导出.xls
当我导出时则自动往这个地址里面导出文件呢？求教？
-- 发布时间：2016/3/2 14:16:00
--
Dim rgd As object = Forms("窗口1").Controls("RecordGrid1").basecontrol
rgd.saveexcel(Tables("表a").Current("导出地址"), "表A", C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells Or C1.Win.C1FlexGrid.FileFlags.AsDisplayed Or C1.Win.C1FlexGrid.FileFlags.SaveMergedRanges)