Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共9 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:SaveExcel问题?

1楼
mr725 发表于:2010/3/3 13:45:00
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编辑过]
2楼
mr725 发表于:2010/3/3 14:28:00
有人测试吗:?选择哪个表Excel就是那个表? 奇怪。为何不是指定的 出库 表???
 
图片点击可在新窗口打开查看此主题相关图片如下:saveexcel.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2010-3-3 14:31:13编辑过]
3楼
易服 发表于:2010/3/3 14:46:00
供参考:
http://www.foxtable.com/dispbbs.asp?BoardID=2&replyID=46490&ID=5986&skin=1
4楼
czy 发表于:2010/3/3 14:47:00
现在的版本有bug,下次更新就正常了。
5楼
czy 发表于:2010/3/3 14:50:00
其实现在的版本SaveExcel还存在很多问题的,现在应该都已经解决了。
6楼
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,等更新了~~

7楼
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编辑过]
8楼
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()
9楼
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()

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

共9 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.