以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]导出文件名称异常  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136885)

--  作者:lgj716330
--  发布时间:2019/6/23 20:19:00
--  [求助]导出文件名称异常
Dim s As String = FileSys.ReadAllText("\\mgsyf\\Project\\sjip.txt")
Dim ex As New Exporter
ex.SourceTableName = "会计凭证导入" 
ex.FilePath = s & "凭证.xls" 
ex.Format = "Excel" 
ex.Export() 

导出后存在两个问题
1、名称前出现很长的空格,如下图

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20190623201656.png
图片点击可在新窗口打开查看
2、报表做了修改后,再次导出,没显示不成功,但也没有替换掉前次导出的文件(要求替换掉)

如何解决?

--  作者:lgj716330
--  发布时间:2019/6/23 20:29:00
--  
偿试着用下面这方式,没提示异常,但结果没导出来
Dim s As String = FileSys.ReadAllText("\\mgsyf\\Project\\sjip.txt")
Dim ex As New Exporter
ex.SourceTableName = "会计凭证导入" 
ex.FilePath = s
ex.Format = "Excel" 
ex.NewTableName = "凭证" 
ex.Export() 

--  作者:有点甜
--  发布时间:2019/6/24 11:12:00
--  

弹出值看一下

 

Dim s As String = FileSys.ReadAllText("\\mgsyf\\Project\\sjip.txt")
msgbox(s)

msgbox(1234 & s & 456)


--  作者:lgj716330
--  发布时间:2019/6/24 16:21:00
--  
显示异常

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

这个原因已找到,是文本文档里的IP后面有空格
但奇怪的是,把IP后面的空格去掉后,导出来还是这样子


[此贴子已经被作者于2019/6/24 16:35:52编辑过]

--  作者:lgj716330
--  发布时间:2019/6/24 16:50:00
--  
用客户端试了下,名称是正常了,但修改报表后重新导出还是替换不了原来的文件
是不是要写个代码重新导出前先删除原来的文件
[此贴子已经被作者于2019/6/24 16:51:26编辑过]

--  作者:lgj716330
--  发布时间:2019/6/24 16:59:00
--  

嗯,搞定了,但在系统菜单状态下导出的文件名称就是异常,客户端正常,不知怎么回事

Dim s As String = FileSys.ReadAllText("\\mgsyf\\Project\\sjip.txt")
Dim ex As New Exporter
ex.SourceTableName = "会计凭证导入" 
ex.FilePath = s & "凭证.xls" 
ex.Format = "Excel" 
If FileSys.FileExists(s & "凭证.xls") Then 
    FileSys.DeleteFile(s & "凭证.xls",2,2) 
End If
ex.Export() \'开始导出

--  作者:有点甜
--  发布时间:2019/6/24 17:03:00
--  

这个exporter导出不能覆盖原来文件的,可以尝试另一种方法,如

 

http://www.foxtable.com/webhelp/topics/0559.htm

 


--  作者:lgj716330
--  发布时间:2019/6/28 16:41:00
--  
Dim s As String = FileSys.ReadAllText("\\mgsyf\\Project\\sjip.txt")
Dim ex As New Exporter
ex.SourceTableName = "会计凭证导入" 
ex.FilePath = s & "凭证.xls" 
ex.Format = "Excel" 
ex.Export()

这种导出会以新的工作表形式,我想实现导出到某个已存在的工作表(模板)中,且不破坏模板的格式
换个说法就是把数据填充到服务器上的某个有固定格式的excel模板中,要如何实现

--  作者:有点甜
--  发布时间:2019/6/28 17:14:00
--  

1、生成新的sheet,参考 http://www.foxtable.com/webhelp/topics/0559.htm

 

2、如果是模板,参考 http://www.foxtable.com/webhelp/topics/1145.htm

 

3、如果直接赋值,参考 http://www.foxtable.com/webhelp/topics/1148.htm