以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  EXCEL的导出和保存路径问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16932)
--  作者：实话实说
--  发布时间：2012/2/27 22:31:00
--  EXCEL的导出和保存路径问题

"用料数据.xls"在网络共享,通过tp.txt读取

以下导出代码

Dim ex As New Exporter
Dim Fl As String = ProjectPath & "tp.txt"
Fl = FileSys.ReadAllText(Fl,Encoding.Default)
Dim Book As New XLS.Book (Fl & "用料数据.xls")
ex.SourceTableName = "用料" \'指定导出表
\'ex.FilePath = F1 & "用料数据.xls"
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出

以下是保存代码

Dim Fl As String = ProjectPath & "tp.txt"
Fl = FileSys.ReadAllText(Fl,Encoding.Default)
Dim Book As New XLS.Book (Fl & "用料数据.xls")
CurrentTable.SaveExcel(F1 & "用料数据.xls","用料")

都提示路径错误,请老师帮忙修改
--  作者：blackzhu
--  发布时间：2012/2/28 7:53:00
--  
不明白了,fl明明指定是TP.Text,底下怎么又变成fl和Xls在一起连接了呢?
--  作者：狐狸爸爸
--  发布时间：2012/2/28 7:59:00
--  

楼主在稀里糊涂地写代码，应该这样：

 

CurrentTable.SaveExcel(ProjectPath  & "用料数据.xls","用料")
--  作者：实话实说
--  发布时间：2012/2/28 8:33:00
--  
以下是引用狐狸爸爸在2012-2-28 7:59:00的发言：

楼主在稀里糊涂地写代码，应该这样：

 

CurrentTable.SaveExcel(ProjectPath  & "用料数据.xls","用料")

"料数据.xls"与项目文件不在一起.项目文件在本机,"料数据.xls"在服务器,路径由tp.txt文件指定(\\\\服务器\\产品数据库$\\)

 
--  作者：狐狸爸爸
--  发布时间：2012/2/28 8:34:00
--  

那你就“

 

MessageBox.show(F1 & "用料数据.xls"）

 

看看你合成的路径和文件名是什么。
--  作者：实话实说
--  发布时间：2012/2/28 8:44:00
--  

 

 


图片点击可在新窗口打开查看此主题相关图片如下：snap1.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2012/2/28 8:46:00
--  

不是F1，是Fl

--  作者：实话实说
--  发布时间：2012/2/28 9:03:00
--  

惭愧,真没注意,这两个肉眼还真看不出

1楼的代码有问题吗?
--  作者：狐狸爸爸
--  发布时间：2012/2/28 9:58:00
--  
用messagebox.show显示一下你合成的路径是否真的存在，格式是不是正确。
--  作者：实话实说
--  发布时间：2012/2/28 10:54:00
--  
已经搞定,代码没错,是F1和Fl的问题,谢狐爸