VBA 从一个Excel文件复制一行数据到另一个Excel文件

临时用到VBA,做一个需求:把不在同一个文件中的数据复制到一个文件中。

新建过程,如下:

Sub 复制行()
    Dim mybook As Workbook
    Set mybook = Workbooks("2011明细表.xls")
    
    Dim target As Workbook
    Set target = Workbooks("详单.xls")
    
    mybook.Sheets("sheet1").Rows(6).Copy target.Sheets("sheet2").Cells(1, 1)
    
    Set mybook = Nothing
    Set target = Nothing
End Sub

 

Cells(1,1)也可以用Range("A1")来表示,更直观。


一开始,运行时总会报错“下标越界”,最后发现是不支持sheet为中文,改成英文就OK了。

另外一点是需要把两个文件都打开,这个还没找到怎么处理。

小飞鱼通达二开 CSDN认证博客专家 软件开发平台 通达OA二次开发 工作流系统集成
知识范围主要涉及SCJP 、MCP、CCNA、通达OA二次开发、OA系统及微信系统的系统集成与整合。对通达OA二次开发进行深入研究与探索,主要研究信息化软件系统的整合与开发工作。
©️2020 CSDN 皮肤主题: 精致技术 设计师:CSDN官方博客 返回首页