以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助,如何导出表结构的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15816)

--  作者:lihe60
--  发布时间:2012/1/12 16:46:00
--  求助,如何导出表结构的代码

导出同excel完全一样的表格,这样的代码如何写?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.xls

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:导出表结构.table


--  作者:lihe60
--  发布时间:2012/1/12 16:52:00
--  

如标题,表头,日期格式等。


--  作者:狐狸爸爸
--  发布时间:2012/1/12 17:19:00
--  

用Excel报表。


--  作者:don
--  发布时间:2012/1/12 17:46:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:e1.jpg
图片点击可在新窗口打开查看

--  作者:lihe60
--  发布时间:2012/1/13 8:07:00
--  
以下是引用狐狸爸爸在2012-1-12 17:19:00的发言:

用Excel报表。

只是举个例子,因为我的表格内容不固定,不能使用枚举法的。用excel报表行不通。


--  作者:lihe60
--  发布时间:2012/1/13 8:07:00
--  
以下是引用don在2012-1-12 17:46:00的发言:

图片点击可在新窗口打开查看此主题相关图片如下:e1.jpg
图片点击可在新窗口打开查看

不能达到预期的目的。


--  作者:lihe60
--  发布时间:2012/1/13 8:20:00
--  
就是要导出如截图所示完全一样的表格。
图片点击可在新窗口打开查看此主题相关图片如下:未命名.gif
图片点击可在新窗口打开查看

--  作者:blackzhu
--  发布时间:2012/1/13 8:40:00
--  

示例二

保存订单表,包括行号列和单元格样式:

Dim flg As New SaveExcelFlags
flg
.RowNumber = True
flg
.CellStyle = True
Tables(
"订单").SaveExcel("C:\\data\\test.xls","订单",flg
)


--  作者:lihe60
--  发布时间:2012/1/13 10:21:00
--  
以下是引用blackzhu在2012-1-13 8:40:00的发言:

示例二

保存订单表,包括行号列和单元格样式:

Dim flg As New SaveExcelFlags
flg
.RowNumber = True
flg
.CellStyle = True
Tables(
"订单").SaveExcel("C:\\data\\test.xls","订单",flg
)

谢谢,表格达到目的了。

如果给这个表加个标题,如“订单汇总表”,代码如何写?


--  作者:czy
--  发布时间:2012/1/13 10:28:00
--  

m flg As New SaveExcelFlags
flg
.RowNumber = True
flg
.CellStyle = True
Tables(
"订单").SaveExcel("C:\\data\\test.xls","订单汇总表",flg
)

 

这样不行吗?