用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

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


发布了202 篇原创文章 · 获赞 75 · 访问量 74万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 技术黑板 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览