Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]报表转移到另一个工作薄中


  共有2550人关注过本帖树形打印复制链接

主题：[求助]报表转移到另一个工作薄中
帅哥哟，离线，有人找我吗？
foxtablefanse
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：554 积分：5260 威望：0 精华：0 注册：2018/11/6 10:54:00 		[求助]报表转移到另一个工作薄中  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
foxtablefanse
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：554 积分：5260 威望：0 精华：0 注册：2018/11/6 10:54:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03418 秒, 4 次数据查询