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

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

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

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

Sub CopyToOtherBook()
'
' copyToOtheBook Macro
' 宏由 cuianzhu 录制,时间: 2013-6-18
' '
Dim fname As String
Dim maxLine As Integer
Dim maxLineS As String
Dim wb As Workbook
Dim curSheet As String '除去表头,所有行选中
maxLine = ActiveSheet.UsedRange.Rows.Count
maxLineS = "2:" + CStr(maxLine)
Rows(maxLineS).Select
'复制
Selection.Copy fpath = "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.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close End Sub

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

上一篇:POJ 1270 Following Orders


下一篇:poj 1270(dfs+拓扑排序)