Foxtable(狐表)用户栏目专家坐堂 → 保存Excel 报表后改名复制


  共有2060人关注过本帖平板打印复制链接

主题:保存Excel 报表后改名复制

帅哥哟,离线,有人找我吗?
wusim
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:390 积分:3168 威望:0 精华:0 注册:2008/8/31 20:44:00
保存Excel 报表后改名复制  发帖心情 Post By:2016/5/6 20:06:00 [只看该作者]

请问能不能生成报表后不打开文件,将文件名复制到项目目录下出库单(ProjectPath &出库单 ),粘贴后然后将文件改成与出厂编号相同+生成后报表名(如:出厂编号是101,文件就改成101出库单.xls),才打开这个改名后的文件。

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim
fl As String = ProjectPath & "Reports\出库单.xls"
Book.Build()
'生成细节区

FileSys.CopyFile(ProjectPath & "Reports\出库单.xls", "ProjectPath & "出库单\???.xls"",True) 怎样改

Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()


 回到顶部