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