一个文件夹下 两个不同Excel 用VBA复制的程序

来源：百度知道 编辑：UC知道 时间：2024/06/22 13:33:06
一个文件夹下 两个不同Excel 用VBA复制的程序！
比如数据文件夹下有 数据一.xls 数据二.xls 我想把数据一的sheet0的A1:A10 复制到 数据二的sheet0的 B1:B10
还有个就是把数据一的sheet0的A1:A10 相加的结果 输出到数据二的sheet0的C1行
非常感谢！！！！！！！！！！！！

你先把两个表打开，并定位到sheet0表，然后用下面代码。
sub aa
Windows("数据一.xls").Activate
Range("A1:A10").Select
Selection.Copy
Windows("Book1.xls").Activate
Range("B1").Select
ActiveSheet.Paste
range("c1")="sum(b1:b10)"
end sub
试试吧