主题：导入电子表格怎么报错

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

dlg.Filter= "Excel 工作薄(*.xls)|*.xls|Excel 工作薄(*.xlsx)|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.OK Then

    For Each fl As String In dlg.FileNames

        Dim Book As New XLS.Book(fl)

        Dim Sheet As XLS.Sheet = Book.Sheets(0)

        For i As Integer = 3 To Sheet.Rows.count – 1 ‘选择导入电子表格起始行

            For l As Integer = 0 To Sheet.cols.count – 1 ‘选择导入电子表格起始列

                CurrentTable(i-3)(l+3) = sheet(i,l+3).Value

            Next

        Next

Next

End if