以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  excel合并数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160044)

--  作者：有点蓝 --  发布时间：2021/1/18 20:15:00 --   选择文件：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