zqz0012005

未测试，使用前请做好备份

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.DisplayAlerts = false

Set objWorkbook1 = objExcel.Workbooks.Open("C:\a.xls")
Set objWorksheet1 = objWorkbook1.Worksheets(1)

Set objWorkbook2 = objExcel.Workbooks.Open("C:\b.xls")
Set objWorksheet2 = objWorkbook2.Worksheets(1)

objWorksheet2.Cells(3,380).Value = objWorksheet1.Cells(3,380).Value
objWorksheet2.Cells(5,480).Value = objWorksheet1.Cells(5,480).Value
objWorkbook2.Save

objExcel.quit
复制代码