保存Excel 报表后改名复制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问能不能生成报表后不打开文件，将文件名复制到项目目录下出库单（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()

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build() '生成细节区

dim fl2 as string = "ProjectPath & "出库单\" & Tables("出库单").Current("出厂编号") & "出库单.xls"

FileSys.CopyFile(fl, fl2,True) 怎样改

Dim Proc As New Process '打开工作簿

Proc.File = fl2

Proc.Start()

增加一个判断语句，当存在相同文件名文件时，提示“已存在相同文件，是否覆盖”按“是”覆盖　按“否”取消，只打开已存在的文件。

Dim Book As New XLS.Book(ProjectPath & "Attachments\告知书.xls")

Dim fl As String = ProjectPath & "Reports\告知书.xls"

Book.Build() '生成细节区

Dim fl2 As String = ProjectPath & "告知书\" & Tables("基本信息表").Current("出厂编号") & "告知书.xls"

If FileSys.FileExists(f12) Then

Dim Result As DialogResult

Result = MessageBox.Show("存在相同文件!","是否覆盖", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

FileSys.CopyFile(fl, fl2,True)

Dim Proc As New Process '打开工作簿

Proc.File = fl2

Proc.Start()

Else

Dim Proc As New Process '打开工作簿

Proc.File = fl2

Proc.Start()

End If

Else

FileSys.CopyFile(fl, fl2,True)

Dim Proc As New Process '打开工作簿

Proc.File = fl2

Proc.Start()

End If

哪里错了，是不是这句：If FileSys.FileExists(f12) Then

[此贴子已经被作者于2016/5/7 13:47:15编辑过]

已解决　改成If FileSys.FileExists(ProjectPath & "告知书\" & Tables("基本信息表").Current("出厂编号") & "告知书.xls") Then

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