VBA一个语句能实现复制，语句如下：
WorkBooks("Book1.XLS").Sheets("Sheet1").Range("B1:C4").Copy WorkBooks("Book2.XLS").Sheets("Sheet1").Range("A1:B4")
