Foxtable(狐表)用户栏目专家坐堂 → [求助]导出 EXCEL(已解决)


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

主题:[求助]导出 EXCEL(已解决)

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


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
[求助]导出 EXCEL(已解决)  发帖心情 Post By:2009/7/4 9:40:00 [只看该作者]

导出零时表"交叉统计"

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

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

Dim ex as New Exporter
ex.SourceTableName = "交叉统计" '指定导出表
ex.FilePath = "e:\报表\分析.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出

[此贴子已经被作者于2009-7-4 11:13:03编辑过]

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


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
  发帖心情 Post By:2009/7/4 10:51:00 [只看该作者]

请狐爸看看


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


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
  发帖心情 Post By:2009/7/4 11:09:00 [只看该作者]

参照http://www.foxtable.com/dispbbs.asp?boardid=2&Id=3380&page=3
Tables("交叉统计").SaveExcel(ProjectPath & "Attachments\分析.xls","交叉统计",False)
Dim Result As DialogResult
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "Attachments\分析.xls"
Proc.Start()
[此贴子已经被作者于2009-7-4 11:11:07编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/7/4 11:17:00 [只看该作者]

呵呵,还好,刚刚下载,我还没有看。

图片点击可在新窗口打开查看

 回到顶部