vbs复制excel内容到另一excel表1中

最近在检查fab switchs的状态，用vbs脚本每天自动抓取，但是每台设备都会生成一个log文件，于是想把所有的log文件合并到一个excel工作簿中。

vbs代码如下：

Dim oExcel
Dim oExcel1
Dim oExcel2
Set oExcel = WScript.CreateObject("Excel.Application")

oExcel.visible=true

Set oExcel1 = oExcel.Workbooks.Open("path1",true) //path1源excel工作簿
Set oExcel2 = oExcel.Workbooks.Open("path2",false)//path2目标excel工作簿

oExcel1.Sheets(1).Activate
oExcel2.Sheets(1).Activate

oExcel1.ActiveSheet.UsedRange.Copy //坑爹的百度是这样写得：oExcel1.ActiveSheet.Used.Range.Copy,中间多了一个点，就是这个点，搞了半天

oExcel2.ActiveSheet.Range("A1").PasteSpecial

oExcel1.close
Set oExcel1 = Nothing

oExcel2.Save
oExcel2.close
Set oExcel2 = Nothing

oExcel.quit