以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SaveExcel问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6084)
--  作者：mr725
--  发布时间：2010/3/3 13:45:00
--  SaveExcel问题？
dim tb1 as string = "C:\\aa.xls"
Tables("出库").SaveExcel(tb1,"" & currenttable.name & "",false)
Dim Proc As New Process
Proc.File = tb1
Proc.Start()

上面代码有错吗？ 为何不能指定 出库 表？？？
请大家在命令窗口中帮试一试。 谢谢。
[此贴子已经被作者于2010-3-3 14:27:25编辑过]
--  作者：mr725
--  发布时间：2010/3/3 14:28:00
--  
有人测试吗：？选择哪个表Excel就是那个表？ 奇怪。为何不是指定的 出库 表？？？
 
图片点击可在新窗口打开查看此主题相关图片如下：saveexcel.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2010-3-3 14:31:13编辑过]
--  作者：易服
--  发布时间：2010/3/3 14:46:00
--  
供参考：
http://www.foxtable.com/dispbbs.asp?BoardID=2&replyID=46490&ID=5986&skin=1
--  作者：czy
--  发布时间：2010/3/3 14:47:00
--  
现在的版本有bug，下次更新就正常了。
--  作者：czy
--  发布时间：2010/3/3 14:50:00
--  
其实现在的版本SaveExcel还存在很多问题的，现在应该都已经解决了。
--  作者：mr725
--  发布时间：2010/3/3 15:37:00
--  
以下是引用易服在2010-3-3 14:46:00的发言：
供参考：
http://www.foxtable.com/dispbbs.asp?BoardID=2&replyID=46490&ID=5986&skin=1

这个也不行，同样的问题： 你选择任何表，就会保存为该表为excel文件，而不是指定的表！～ 
C版说有bug，等更新了～～

--  作者：yangming
--  发布时间：2010/3/3 15:50:00
--  

是有BUG，我现在的办法，就是让光标切入到你要保存的表中，比如出库表
我的代码是这样的
If Tables("XC_明细台帐_Table1").Focus Then \'将输入焦点移到当前表
Tables("XC_明细台帐_Table1").SaveExcel(dlg.FileName,Format(Date.Today ,"yyyyMM" )&"明细表")
Dim Book As New XLS.Book(dlg.FileName ) \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
If Sheet(0,0).Value = "ID" Then
Sheet.Cols.RemoveAt(0) \'在删除第一列
End If
Book.Save(dlg.FileName ) \'保存工作簿

[此贴子已经被作者于2010-3-3 15:54:26编辑过]
--  作者：mr725
--  发布时间：2010/3/3 16:43:00
--  
如果不是当前表，Focus 是没用的。。。 
只能在前面加上：MainTable = Tables("出库")   了～   ， 当前表不是出库表时，要将出库表保存到Excel，下面ok了：

MainTable = Tables("出库")  
dim tb1 as string = "C:\\aa.xls"
Tables("出库").SaveExcel(tb1,"" & currenttable.name & "",false)
Dim Proc As New Process
Proc.File = tb1
Proc.Start()
--  作者：yangming
--  发布时间：2010/3/3 18:21:00
--  
以下是引用mr725在2010-3-3 16:43:00的发言：
如果不是当前表，Focus 是没用的。。。 
只能在前面加上：MainTable = Tables("出库")   了～   ， 当前表不是出库表时，要将出库表保存到Excel，下面ok了：

MainTable = Tables("出库")  
dim tb1 as string = "C:\\aa.xls"
Tables("出库").SaveExcel(tb1,"" & currenttable.name & "",false)
Dim Proc As New Process
Proc.File = tb1
Proc.Start()

我是用在窗口表中的，窗口中有三张表，所以有时有可能光标不在要保存的表中