主题：[求助]导入excel数据求助

Dim TableName As String = "当天配送会员窗口_Table1"

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter = "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"

If dlg.ShowDialog = DialogResult.OK Then '如果用户单击了确定按钮

    Dim Book As New XLS.Book(dlg.FileName)

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

    Tables(TableName).StopRedraw()

    For n As Integer = 1 To Sheet.Rows.Count - 1

        Dim bh As String = Sheet(n, 0).Text

        Dim dr As Row = Tables(TableName).AddNew()

        For m As Integer = 0 To Tables(TableName).Cols.Count - 1

            dr(Tables(TableName).Cols(m)) = Sheet(n, m).Value

        Next

    Next

End If

Tables(TableName).ResumeRedraw()