以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]报表转移到另一个工作薄中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175108) |
-- 作者:foxtablefanse -- 发布时间: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
[此贴子已经被作者于2022/2/20 16:18:27编辑过]
|
-- 作者:foxtablefanse -- 发布时间: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 |