把Excel数据复制到另一Excel表中

COPY FILE d:\mbt\m1.xls TO d:\mb\m2.xls    &&在mbt文件夹中复制m1.xls（表头文件）到mb文件夹中，文件名为m2.xls
eOle=Createobject("Excel.application")
eOle.Workbooks.Open("d:mb\m3.xls")
eOle.ActiveSheet.Range("A2:F10").Copy        &&在mb文件夹中打开m3.xls（数据源文件),选中单元格A2:F10(mk1=A2,mk2=F10),复制数据
eOle.ActiveWorkbook.Close

eOle.Workbooks.Open("d:mb\m2.xls")
eOle.ActiveSheet.Range("A4").PasteSpecial        &&在m2.xls中A4起粘贴
eOle.Range("A4:F12").Borders.LineStyle=1  &&添加表格线
eOle.Cells(1,1).Value="bbb"        &&定位A1,添加表头名"bbb"
*eOle.ActiveWorkbook.SaveAs("d:mb\m4.xls")        &&另存为
eOle.ActiveWorkbook.Close    &&关闭工作簿
eOle.quit        &&退出Excel