- 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=15816)
-- 发布时间：2012/1/12 16:46:00
-- 求助，如何导出表结构的代码
导出同excel完全一样的表格，这样的代码如何写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.xls |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出表结构.table |
-- 发布时间：2012/1/12 16:52:00
--
如标题，表头，日期格式等。
-- 发布时间：2012/1/12 17:19:00
--
用Excel报表。
-- 发布时间：2012/1/12 17:46:00
--
此主题相关图片如下：e1.jpg
-- 发布时间：2012/1/13 8:07:00
--
以下是引用狐狸爸爸在2012-1-12 17:19:00的发言：
用Excel报表。
只是举个例子，因为我的表格内容不固定，不能使用枚举法的。用excel报表行不通。
-- 发布时间：2012/1/13 8:07:00
--
以下是引用don在2012-1-12 17:46:00的发言：
此主题相关图片如下：e1.jpg
此主题相关图片如下：e1.jpg不能达到预期的目的。
-- 发布时间：2012/1/13 8:20:00
--
就是要导出如截图所示完全一样的表格。
此主题相关图片如下：未命名.gif
-- 发布时间：2012/1/13 8:40:00
--
示例二
保存订单表，包括行号列和单元格样式：
Dim
flg As New SaveExcelFlagsflg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单",flg)
-- 发布时间：2012/1/13 10:21:00
--
以下是引用blackzhu在2012-1-13 8:40:00的发言：
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单",flg)
示例二
保存订单表，包括行号列和单元格样式：
Dim
flg As New SaveExcelFlagsflg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单",flg)
谢谢，表格达到目的了。
如果给这个表加个标题，如“订单汇总表”，代码如何写？
-- 发布时间：2012/1/13 10:28:00
--
m flg As New
SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\\data\\test.xls","订单汇总表",flg)
这样不行吗？