主题：数据表

If vars("ll") = 0 Then

    Dim dat As Date

    Dim mm As Integer

    Dim c As Date = vars("cc")

    Dim y As Integer = c.year

    Dim m As Integer = c.month

    Dim f0 As String = "E:\财务数据汇总\模板\公司表.xls"  '0模板数据

    Dim f00 As String = "E:\快盘\excel" & y & "\" & y & "年管理费分配表.xls"

    Dim f11 As String = "E:\快盘\gs\公司" & y & Format(m,"00") & ".xls" '快盘本月公司

    Dim f12 As String = "E:\快盘\gs\公司" & y & Format(m-1,"00") & ".xls" '快盘上月公司

    Dim book11 As New XLS.Book(f11)  '本月公司

    Dim Book12 As New XLS.Book(f12)  '上月公司

    If FileIsOpened(f11)= False Then

        Dim f24 As String = "E:\快盘\xl99excel\快速报.xls"    '快盘中XL99中的降龙软件导出的报表

        Dim f25 As String = "E:\快盘\xl99excel\资产负债表.xls"

        Dim f26 As String = "E:\快盘\xl99excel\利润表.xls"

        Dim f27 As String = "E:\快盘\xl99excel\费用表.xls"

        Dim f28 As String = "E:\快盘\xl99excel\工资使用表.xls"

        '导入报表

        '导入对应行号的资产负债表,并判断日期是否是当月日期

        Dim Book25 As New XLS.Book(f25)             '降龙99格式的资产负债表

        Dim Sheet25 As XLS.Sheet = Book25.Sheets(0)

        '资产负债表

        Dim Sheet115 As XLS.Sheet = Book11.Sheets("资产负债表")

        For n1 As Integer = 3 To 43

            mm = cint(Sheet25(n1,1).Value)

            If Sheet115(mm+4,2).Formula = "" Then

                Sheet115(mm+4,2).Value = val(Sheet25(n1,2).Value)         '导入到公司表的资产负债表

                Sheet115(mm+4,3).Value = val(Sheet25(n1,3).Value)

            End If

        Next

        For n1 As Integer = 3 To 43

            mm = cint(Sheet25(n1,5).Value)

            mm = mm - 50

            If Sheet115(mm+4,6).Formula = "" Then

                Sheet115(mm+4,6).Value = val(Sheet25(n1,6).Value)

                Sheet115(mm+4,7).Value = val(Sheet25(n1,7).Value)

            End If

        Next

        '分户快报

        Dim Book24 As New XLS.Book(f24)

        Dim Sheet24 As XLS.Sheet = Book24.Sheets(0)

        Dim Sheet114 As XLS.Sheet = Book11.Sheets("分户快报")

        Sheet114(1,1).value = Format(dat,"yyyy年MM月dd日")

        For n1 As Integer = 3 To 47

            For n2 As Integer = 2 To 4

                If Sheet114(n1,n2).Formula = "" Then

                    Sheet114(n1+1,n2+1).Value = val(Sheet24(n1,n2).Value)   '导入到公司表的分户快报

                End If

            Next

        Next

        '利润及分配表

        Dim Book26 As New XLS.Book(f26)

        Dim Sheet26 As XLS.Sheet = Book26.Sheets(0)

        Dim Sheet116 As XLS.Sheet = Book11.Sheets("利润及分配表")

        For n1 As Integer = 3 To 32                                    '导入到公司表中的利润及分配表

            For n2 As Integer = 2 To 3

                If Sheet116(n1+3,n2).Formula = "" Then

                    Sheet116(n1+3,n2).Value = val(Sheet26(n1,n2).Value)

                End If

                If Sheet116(n1+3,n2+4).Value ="" Then

                    Sheet116(n1+3,n2+4).Value = val(Sheet26(n1,n2+4).Value)

                End If

            Next

        Next

        '费用表

        Dim Book27 As New XLS.Book(f27)

        Dim Sheet27 As XLS.Sheet = Book27.Sheets(0)

        Dim Sheet117 As XLS.Sheet = Book11.Sheets("费用表")

        For n1 As Integer = 3 To 36                                   '导入到公司表中的费用表

            For n2 As Integer = 2 To 5

                If Sheet117(n1+1,n2+1).Formula = "" Then

                    Sheet117(n1+1,n2+1).Value = val(Sheet27(n1,n2).Value)

                End If

            Next

        Next

        '工资月报

        Dim Book28 As New XLS.Book(f28)

        Dim Sheet28 As XLS.Sheet = Book28.Sheets(0)

        Dim Sheet118 As XLS.Sheet = Book11.Sheets("工资月报")

        For n1 As Integer = 3 To 23                                 '导入到公司表中的工资月报

            For n2 As Integer = 2 To 3

                If Sheet118(n1+1,n2+1).Formula = "" Then

                    Sheet118(n1+1,n2+1).Value = val(Sheet28(n1,n2).Value)

                End If

            Next

        Next

        book11.save(f11)

    Else

        messagebox.show("文件已经打开,请关闭!")

    End If

Else

    messagebox.show("公司报表已审核!")

End If