以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导出 EXCEL(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3427)

--  作者:易服
--  发布时间:2009/7/4 9:40:00
--  [求助]导出 EXCEL(已解决)

导出零时表"交叉统计"

图片点击可在新窗口打开查看此主题相关图片如下:打开.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编辑过]

--  作者:易服
--  发布时间:2009/7/4 10:51:00
--  

请狐爸看看


--  作者:易服
--  发布时间: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编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/7/4 11:17:00
--  
呵呵,还好,刚刚下载,我还没有看。

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