用VBA宏从一个工作薄复制内容到另一个工作薄

我们项目管理有两个工作薄，一个里面有多个表，每天建一个，记录当天项目，另一个工作薄，有多个表，其中一个是所有项目汇总。

以前都是第一个工作薄一个表做完，再复制粘贴到第二个工作薄的汇总表中。

写了个VBA宏完成这个工作。

Sub CopyToOtherBook()
'
' copyToOtheBook Macro
' 宏由 cuianzhu 录制，时间: 2013-6-18
''Dim fname As StringDim maxLine As IntegerDim maxLineS As StringDim wb As WorkbookDim curSheet As String'除去表头，所有行选中maxLine = ActiveSheet.UsedRange.Rows.CountmaxLineS = "2:" + CStr(maxLine)Rows(maxLineS).Select'复制Selection.Copyfpath = "D:\\XXX\\"fname = "第二个工作薄.xls"curSheet = "汇总表"'打开第二个工作薄，激活汇总表Set wb = Workbooks.Open(fpath + fname)wb.Worksheets(curSheet).Activate'找到最后一行maxLine = ActiveSheet.UsedRange.Rows.Count'选中最后一行下一行第一个表格Cells(maxLine + 1, 1).Select'粘贴ActiveSheet.PasteActiveWorkbook.SaveActiveWorkbook.CloseEnd Sub

然后在对应的表里执行该宏，就可以把所有该表的数据复制到另一个工作薄的汇总表里了。

用VBA宏从一个工作薄复制内容到另一个工作薄相关推荐

《Oracle SQL疑难解析》——1.6 批量地从一个表中复制数据到另一个表
本节书摘来自异步社区出版社<Oracle SQL疑难解析>一书中的第1章,第1.6节,作者: [美]Grant Allen , Bob Bryla , Darl Kuhn,更多章节内容可以 ...
从一个文档复制粘贴到另一个文档时把ndnote插入的参考文献也复制过去
从一个文档复制粘贴到另一个文档时把endnote插入的参考文献也复制过去之前我因为自己已经写好一小篇文章,想把部分内容直接复制粘贴到自己的论文中去,结果发现参考文献没有跟着进去,就在网上找了各种方法 ...
VBA将工作簿中的所有工作表的内容输出到一个工作表中
主体是对该工作簿中所有的工作表进行遍历,然后将内容依次输出到一个工作表中. 下面看代码: Rem 将多个工作表中的内容汇总到一个工作表中 Sub collect()Rem 定义要循环的工作表和拿来去循 ...
vba 拷贝一个sheet页的内容到另一个sheet中
模板:templateName,目标sheet:sheetName 具体代码如下: Sub SheetCopy(sheetName As String, templateName As String) ...
Excel如何把一个单元格的内容插入另一个单元格内容之间
比如,我要把单元格H1中的订单号PO2035插入单元格H2中,期望在H2中显示"请把PO2035号码写在运单上."应该怎么做呢? 在H2中,写入以下公式: ="请把&qu ...
复制一个文件或者从一个资源获取一个文件并复制
/*** 复制一个文件或者从一个资源获取一个文件并复制* @param unknown_type $source 一个文件名或者一个资源,如$source='http://dctest.jub.cn/ ...
u盘到计算机复制不了,为什么电脑程序从一个u盘复制到另一个u盘后就不能用
为什么电脑程序从一个u盘复制到另一个u盘后就不能用以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 为什么电脑程序从一个u ...
JavaScript复制内容到剪贴板
原文链接:https://github.com/axuebin/ar... 最近一个活动页面中有一个小需求,用户点击或者长按就可以复制内容到剪贴板,记录一下实现过程和遇到的坑. 常见方法查了一下万能 ...
【JS】JavaScript复制内容到剪贴板
常见方法查了一下万能的Google,现在常见的方法主要是以下两种: 第三方库:clipboard.js 原生方法:document.execCommand() 分别来看看这两种方法是如何使用的. c ...

用VBA宏从一个工作薄复制内容到另一个工作薄

用VBA宏从一个工作薄复制内容到另一个工作薄相关推荐

最新文章

热门文章