Question

求高手告诉VB中两个excel间复制问题

请问vb 操作两个excel比如 ：aa.xls 和bb.xls，要把aa中第一个工作表中第5到100行复制到bb中第二个工作表，程序是什么呢？

Answer 1

代码

Sub test()
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = Workbooks.Open("E:\aa.xls", ReadOnly = False)  '打开指定路径下的aa.xls
Set wb2 = Workbooks.Open("E:\bb.xls", ReadOnly = False)  '打开指定路径下的BB.xls
wb1.Worksheets(1).Rows("5:100").Copy wb2.Worksheets(2).Rows("5:100")    '复制
wb1.Close
wb2.Save
wb2.Close
End Sub

追问

谢谢！我试了，运行成功啦!
能否追问下，aa 和bb的激活切换窗口怎么表达呢，就是两个之间来回切换对立面内容编辑

追答

Workbooks("aa.xls").Activate

追问

哎，加个筛选条件后，就不能复制到bb.xls了，请再帮忙看看，感谢！感谢！
Workbooks("aa.xls").Activate
With wb1.Worksheets(1)
.Range(.Cells(5, 1), .Cells(100, 115)).AutoFilter Field:=8, Criteria1:="1"
End With

追答

扣
一五九六三九七零

Answer 2

range.copy
range.pasete