Excel工作簿指定表内容写入另一个工作簿中的指定表（附VBA代码）_草爷

http://blog.sina.com.cn/u/1246081073

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

Excel工作簿指定表内容写入另一个工作簿中的指定表（附VBA代码）

(2020-06-24 12:40:53)

标签：

365 excel

vba

分类： Excel相关

我是一个公司业务考核人员，有月考核、年考核，还有个人全年清单汇总，月考核表是每月一个工作簿，而个人全年清单汇总则是一年一个工作簿，但工作簿中按月分为12个工作表，分别对应相应的月份。因为核对过程中，经常有差错，所以，月报表经常需要修改，而每次月考核修改后，又都得及时写入个人全年清单汇总表。这些工作以前都是手工做的，挺烦的，所以，就有了写一个用VBA去代替手工完成这个工作，具体讲就是把一个工作簿中指定表的内容通过VBA去写入并不打开的另一个工作簿的指定表中。

代码如下：

Sub 月考核表内容写入到个人业务清单汇总表()

'功能：把一个工作簿中指定表内容写入另一个工作簿中的指定表中去

'作用：把每月的保费明细台帐数据复制到全年业务汇总表的相应月份工作表中

Dim fname As String

Dim maxLine As Integer

Dim wb As Workbook

Dim curSheet As String

'除去表头，所有行选中

maxLine = Range("j2").End(xlDown).Row '取最大行号方法

Range("A2:" & maxLine).Select '取原始数据区范围

Selection.Copy '复制

fpath = "d:\\月保费报表\\个人汇总表\\" '写入工作簿路径

fname = "个人全年业务清单汇总表.xlsm" '写入工作簿名字

curSheet = "1" '写入指定工作表名

'打开第二个工作薄，激活汇总表

Set wb = Workbooks.Open(fpath + fname)

wb.Worksheets(curSheet).Activate '激活第2个工作簿的对应工作表

Range("A3").Select '写入工作表数据区开始位置

ActiveSheet.Paste '粘贴

ActiveWorkbook.Save '写入工作簿保存

ActiveWorkbook.Close '写入工作簿关闭

End Sub

注：以上代码在win10、office2019环境下调试通过。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：Python实行图片压缩（附代码）

后一篇：VBA-通过选择文件对话框对获取文件或文件夹路径

新浪BLOG意见反馈留言板　欢迎批评指正