主题：提取excel文件的问题

贴出所写代码。

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim Book As new XLS.Book(fl)
        If book.sheets.Count <= 5 Then
            msgbox("sheet小于6个,不能导入")
        Else
            Dim Sheet As XLS.Sheet = Book.Sheets(5) '也可以写sheet的名字的
            Dim s As String
            s = filesys.GetName(fl)
            Dim t = s.Substring(4)
            Tables("AC01").ResumeRedraw
            Tables("AC01").StopRedraw()
            Dim nms() As String = {"月度","区域","渠道","品牌","年","大类","库龄","跌价"}
            For n As Integer = 1 To Sheet.Rows.Count -1
                Dim r As Row = Tables("AC01").AddNew()
                r(nms(0)) = t
                For m As Integer = 1 To nms.Length-1
                    r(nms(m)) = Sheet(n,m-1).Value
                Next
            Next
           
            Tables("AC01").ResumeRedraw
        End If
    Next
End If