VBS脚本操作EXCEL数据

Question

VBS脚本，怎样把EXCEL的sheet1中A行B列到C行D列的所有数据，导入到sheet2中，sheet2从A1起始。

Answer 1

    Range("B1:D3").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste

Answer 2

这个怎么象是VBA的脚本啊？
能不能给出全部的代码！！！在此谢过！！！

Answer 3

strXlsFile = "C:\Book1.xls"
strSource = "Sheet1"
StrDestination = "Sheet2"
strSourceRange = "B1:D3"
strDestinationRange = "A1"
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(strXlsFile)
objExcel.Sheets(strSource).select
objExcel.ActiveSheet.range(strSourceRange).select
objExcel.selection.copy
objExcel.Sheets(strDestination).select
objExcel.ActiveSheet.range(strDestinationRange).select
objExcel.ActiveSheet.paste
objWorkbook.save
objExcel.Quit