主题：关于导入EXCRL表

师傅你好：

我在窗口按钮代码中输入下代码，操作后无法显示，请师傅指点，谢谢

Dim Book As New XLS.Book("E:\统计")       E盘文件夹
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("盘具统计").StopRedraw()                                 文件夹中盘具统计表

Dim nms() As String = {"日期","部门","品名","性质","数量"}

For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = Tables("盘具统计").AddNew()
    For m As Integer = 0 To nms.Length - 1
         r(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("盘具统计").ResumeRedraw()