以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想实现在窗口上查询出来的表的所有导出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86125)
--  作者：kmzb56
--  发布时间：2016/6/11 11:24:00
--  我想实现在窗口上查询出来的表的所有导出
我想实现在窗口上查询出来的表的所有导出，怎么以下代码只能在选择了时才能导出，不能导出查询的全表？
\'Dim fgcyf As Row=Tables("电话薄_table1").Current
   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()
--  作者：大红袍
--  发布时间：2016/6/11 13:59:00
--  

 你的范围没有设置成 <All>

 

http://www.foxtable.com/help/topics/0201.htm