主题：怎么用用筛选器打开表

老师，我这里想用筛选器导入excel表格，然后返回表格名称
找到的这个代码可以返回名称，但是不知道怎么导入表格，另外，可不可以一次按shift导入多个表格，数组返回多个名字

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim book As new XLS.Book(dlg.FileName)

    Dim name As String = book.sheets(0).name
End If

 恩。。老师，我发现我要打开的excel里面的表都叫sheet1，只有excel文件名不一样，能不能批量打开然后把表名改成文件名

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=113464&skin=0