选择文件:http://www.foxtable.com/webhelp/topics/0328.htm
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)
……
End If
可以参考一下:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105144