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了。
另外一点是需要把两个文件都打开，这个还没找到怎么处理。
临时用到VBA，做一个需求：把不在同一个文件中的数据复制到一个文件中。 新建过程，如下：Sub 复制行() Dim mybook As Workbook Set mybook = Workbooks("2011明细表.xls") Dim target As Workbook Set target = Workbooks("详单.xls")
ThisWorkbook.Activate
Set r1 = ThisWorkbook.Sheets(1).[a1]
Set r2 = ThisWorkbook.Sheets(1).[c1]
Set w =
功能：遍历用户指定的
文件
夹，把
文件
夹中所有的
excel
文件
的第
一个
表格的
数据
复制
到本
excel
文件
中。注意，每个
excel
文件
中有效
数据
行的判断标准是A列的最后
一个
有
数据
的单元格的行号，比如A列到第10行结束，B列到第11行结束，那么程序将不会
复制
第11行。
说明：鄙人也不是大闲人，也就没有去迎合各种需求，只是根据自己的需要去写的，拿出来分享一下。
闲话少说，直接上代码，
复制
到宏命...
我们项目管理有两个工作薄，
一个
里面有多个表，每天建
一个
，记录当天项目，另
一个
工作薄，有多个表，其中
一个
是所有项目汇总。
以前都是第
一个
工作薄
一个
表做完，再
复制
粘贴到第二个工作薄的汇总表中。
写了个
VBA
宏完成这个工作。
Sub CopyToOtherBook()
' copyToOtheBook Macro
' 宏由 cuianzhu 录制，时间: 2013-6-18
代码在
文件
book_all.xls。最近
一个
同学想要写一段
VBA
代码实现以下功能（我简化了要求）：
一个
表中有很多个
excel
文件
，每个
文件
有类似的表格，代码实现把每个
文件
的表格
复制
到另
一个
excel
文件
中。折腾开始......
之前没搞过
VBA
，我用的是wps抢鲜版，不支持
VBA
，装了个office2003，终于可以跑
VBA
代码了，后来发现wps个人版也是可以跑
vba
的。下面上代码，业余写的，比较简单，路过勿喷......
EXCEL
是由很多的对象组成，每个对象都有他的属性和方法，所谓的对象可以理解为所有存在的东西，在同
一个
程序里的对象之间是存在关系的，比如说上下级关系或同级关系，上下级关系之间用英文句点“.”连接。
application.workbooks(1).worksheets(1).range(“A1”)
意思就是当前应用程序(
excel
)下面的已经打开的第
一个
工作薄下面的第
一个
工作表里面的A1单元格，但一般情况下我们不需要这么麻烦，如果我们只对当前的表格操作，前面的都可以省略，只需要写range(“A1
'Sheet1中先在第3列加入
一个
空列，格式参照右侧，参照左侧用xlFormatFromLeftOrAbove
Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow
'将Sheet2中的第3列
复制
到Sheet1中第3列
Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(...
