以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,窗口查询表导出EXCEL  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31102)

--  作者:晕了快扶我
--  发布时间:2013/4/10 11:31:00
--  求助,窗口查询表导出EXCEL


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
EXCEL模版如上

导出的代码如下

Dim Book As New XLS.Book(ProjectPath & "Attachments\\库存统计.xls")
Dim fl As String = ProjectPath & "Reports\\库存统计.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

只能导出当前行一条数据,我需要的是整张表的数据,哪里出问题了呢?

窗口中的表是用FILL的方法生成的查询表

 


--  作者:Bin
--  发布时间:2013/4/10 11:35:00
--  
少了一个<ALL> 吧?
--  作者:晕了快扶我
--  发布时间:2013/4/10 11:39:00
--  
以下是引用Bin在2013-4-10 11:35:00的发言:
少了一个<ALL> 吧?

的确是..谢谢,被帮助文件误导了


--  作者:hlheng
--  发布时间:2013/4/12 11:17:00
--  

在哪里加?图片点击可在新窗口打开查看


--  作者:Bin
--  发布时间:2013/4/12 11:19:00
--  
以下是引用hlheng在2013-4-12 11:17:00的发言:

在哪里加?图片点击可在新窗口打开查看

又偷懒不看帮助了吧.http://www.foxtable.com/help/topics/0201.htm
--  作者:hlheng
--  发布时间:2013/4/15 10:03:00
--  
以下是引用Bin在2013-4-12 11:19:00的发言:

又偷懒不看帮助了吧.http://www.foxtable.com/help/topics/0201.htm


图片点击可在新窗口打开查看此主题相关图片如下:未标题-2.jpg
图片点击可在新窗口打开查看
代码如下:

Dim Book As New XLS.Book(ProjectPath & "Attachments\\本月劳动合同到期人员名单.xls")
Dim fl As String = ProjectPath & "Reports\\本月劳动合同到期人员名单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

只是打印一行。


--  作者:晕了快扶我
--  发布时间:2013/4/15 10:41:00
--  
以下是引用hlheng在2013-4-15 10:03:00的发言:


图片点击可在新窗口打开查看此主题相关图片如下:未标题-2.jpg
图片点击可在新窗口打开查看
代码如下:

Dim Book As New XLS.Book(ProjectPath & "Attachments\\本月劳动合同到期人员名单.xls")
Dim fl As String = ProjectPath & "Reports\\本月劳动合同到期人员名单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

只是打印一行。

上传个例子上来咯


--  作者:hlheng
--  发布时间:2013/4/15 10:55:00
--  
以下是引用hlheng在2013-4-15 10:03:00的发言:


图片点击可在新窗口打开查看此主题相关图片如下:未标题-2.jpg
图片点击可在新窗口打开查看
代码如下:

Dim Book As New XLS.Book(ProjectPath & "Attachments\\本月劳动合同到期人员名单.xls")
Dim fl As String = ProjectPath & "Reports\\本月劳动合同到期人员名单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

只是打印一行。

 

 

搞定!谢谢Bin