'生成一个报表Tempy.xls后，想将此表加到月度总表2月.xls工作薄中
‘月度总表2月.xls可能存在，也可能不存在，不存在则创建一个再加入。
Dim f1 As String =ProjectPath & "PgReports\2022\Tempy.xls"
Dim f2 As String=ProjectPath & "PgReports\2022\2月.xls" '月度总表路径
If FileSys.FileExists(f2) Then '月度总表是否存在
Dim Book2 As New XLS.Book(f2)
'定议要复制的表
Dim Book1 As New XLS.Book(f1)
Dim Sheet1 = Book1.Sheets(0) '定议要复制的表
Book2.Sheets.Add(Sheet1) '加入月度总表
Book2.Save(f2)
Else '月度总表不在则先则创建一个
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.SaveAs(f2)
App.Quit
Dim Book2 As New XLS.Book(f2)
'定义要复制的表
Dim Book1 As New XLS.Book(f1)
Dim Sheet1 = Book1.Sheets(0) '定议要复制的表
Book2.Sheets.Add(Sheet1) '加入月度总表
Book2.Save(f2)
End If
此主题相关图片如下：报表文件转移.png
[此贴子已经被作者于2022/2/20 16:18:27编辑过]
加好友 
发短信
Post By：2022/2/20 16:17:00 [只看该作者]
