主题：EXCEL自动更新表

这句代码应如何代，才可运算？Sheet3(3+i3,29).Value = Sheet3(3+i3,28).Value + Sheet3(3+i3,29).Value

Dim Book As New XLS.Book ( "d:\集团汇总.xls" )

'导出费用表

Dim Sheet3 As XLS.Sheet = Book.Sheets("费用表")

Dim tt3 As Table = Tables("单位")

Dim drs3 As List(Of DataRow)

For i3 As Integer = 0 To tt3.Rows.Count - 1

    DataTables("商品流通费用明细表").DataRows.Clear

    Dim xj3 As String = tt3.Rows(i3)("单位")

    xj3 = xj3.Substring(0,2)

    drs3 = DataTables("商品流通费用汇总表").Select("[单位] = '" & xj3 & "'")

    For Each drr3 As DataRow In drs3

        Dim dr3 As DataRow = DataTables("商品流通费用明细表").addnew

        dr3("行次")=drr3("行次")

        dr3("累计数")=drr3("累计数")

        dr3("单位")=drr3("单位")

    Next

    Dim dt3 As Table = Tables("商品流通费用明细表")

    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.Cells(4+i3,30).Value = Sheet3.Cells(4+i3,29).Value + Sheet3.Cells(4+i3,30).Value

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

            End If

        End If

    Next

Next

Book.Save( "d:\集团汇总.xls" )

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.open( "d:\集团汇总.xls" )

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("费用表")

ws.UsedRange.Formula = ws.UsedRange.Formula

wb.save

wb.close

App.Quit

messagebox.show("导出成功")

    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