- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]报表转移到另一个工作薄中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175108)
-- 发布时间：2022/2/20 16:17:00
-- [求助]报表转移到另一个工作薄中
\'生成一个报表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编辑过]
-- 发布时间：2022/2/20 17:10:00
--
自己改用vbA方法解决了
\'将临时表加入月度总表---------------------------------------------
Dim f1 As String =ProjectPath & "PgReports\\2022\\Tempy.xls"
Dim f2 As String=ProjectPath & "PgReports\\2022\\2月.xls" \'月度总表路径
Dim App As New MSExcel.Application
Dim W1 As MSExcel.WorkBook = App.WorkBooks.Open(f1)
Dim W2 As MSExcel.WorkBook = App.WorkBooks.Open(f2)
Dim Ws1 As MSExcel.WorkSheet = W1.WorkSheets("Sheet1") \'指定要复制的工作表
Ws1.Name = "2022-2-20
With W2.WorkSheets
Ws1.Copy(After:=.Item(.Count))\'复制到最后面
\'Ws.Copy(Before:=.Item(1))\'复制到最前面
\'Ws.Copy \'复制到一个新工作簿
End With
W2.Save
App.Quit