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编辑过]
有人测试吗:?选择哪个表Excel就是那个表? 奇怪。为何不是指定的 出库 表???
此主题相关图片如下:saveexcel.gif
[此贴子已经被作者于2010-3-3 14:31:13编辑过]
其实现在的版本SaveExcel还存在很多问题的,现在应该都已经解决了。
以下是引用易服在2010-3-3 14:46:00的发言:
供参考:
http://www.foxtable.com/dispbbs.asp?BoardID=2&replyID=46490&ID=5986&skin=1
这个也不行,同样的问题: 你选择任何表,就会保存为该表为excel文件,而不是指定的表!~
C版说有bug,等更新了~~
是有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()
我是用在窗口表中的,窗口中有三张表,所以有时有可能光标不在要保存的表中