Foxtable(狐表)用户栏目专家坐堂 → 求助,如何导出表结构的代码


  共有20646人关注过本帖树形打印复制链接

主题:求助,如何导出表结构的代码

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
求助,如何导出表结构的代码  发帖心情 Post By:2012/1/12 16:46:00 [只看该作者]

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

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/1/12 16:52:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/1/12 17:19:00 [只看该作者]

用Excel报表。


 回到顶部
帅哥哟,离线,有人找我吗?
don
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1812 积分:12999 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2012/1/12 17:46:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/1/13 8:07:00 [只看该作者]

以下是引用狐狸爸爸在2012-1-12 17:19:00的发言:

用Excel报表。

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


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/1/13 8:07:00 [只看该作者]

以下是引用don在2012-1-12 17:46:00的发言:

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

不能达到预期的目的。


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/1/13 8:20:00 [只看该作者]

就是要导出如截图所示完全一样的表格。
图片点击可在新窗口打开查看此主题相关图片如下:未命名.gif
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33957 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/1/13 10:28:00 [只看该作者]

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

 

这样不行吗?


 回到顶部
总数 46 1 2 3 4 5 下一页