主题：求助，导入Excel有些问题。

 那就这样子写

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim name As String = book.Sheets(0).Name
   
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.Format = "Excel"
    ip.SourceTableName = name & "$" '指定要导入的表
    ip.NewTableName = name '导入后的表名
    ip.Import()
    e.Form.Controls("Table1").Table.DataSource = DataTables(name)
End If