主题：EXCEL自动更新表

    For r3 As Integer = 0 To dt3.Rows.Count - 1 '填入数据

        If Sheet3(3+i3, r3+2).Formula = "" Then

            Sheet3(3+i3,r3+2).Value = dt3.rows(r3)("累计数")

            Sheet3(3+i3,1).Value= dt3.Rows(r3)("单位")

            If r3 = 27 Then

                Sheet3(3+i3,r3+2).Value = dt3.rows(r3-1)("累计数") + dt3.rows(r3)("累计数")

                Sheet3(3+i3,28).Value = 0

            End If

        End If

    Next

改成这样就行了！

        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