Dim App1 As New MSExcel.Application
Dim App2 As New MSExcel.Application
Dim App3 As New MSExcel.Application
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.open(f1)
Dim Wb2 As MSExcel.WorkBook = App1.WorkBooks.open(f2)
Dim Wb3 As MSExcel.WorkBook = App1.WorkBooks.open(f3)
Dim Ws1 As MSExcel.WorkSheet
Dim Ws11 As MSExcel.WorkSheet
Dim Ws2 As MSExcel.WorkSheet
Dim Ws3 As MSExcel.WorkSheet
Ws1 = Wb1.WorkSheets("资产负债指标表")
Ws11 = Wb1.WorkSheets("利润及相关指标表")
Ws2 = Wb2.WorkSheets("资产负债指标表")
Ws3 = Wb3.WorkSheets("利润及相关指标表")
Dim Rg1 As MSExcel.Range = Ws1.Range("C5:D49")
Dim Rg11 As MSExcel.Range = Ws11.Range("C5:E47")
Dim Rg2 As MSExcel.Range = Ws2.Range("C5:D49")
Dim Rg3 As MSExcel.Range = Ws3.Range("C5:E47")
Rg1.copy(Rg2)
Rg11.copy(Rg3)
wb1.save
wb1.close
App1.Quit
wb2.save
wb2.close
App2.Quit
wb3.save
wb3.close
App3.Quit