[求助]导入excel或者txt - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

导入excel或者txt。

怎么能做到无论选择excel或者txt都能自动判断，导入呢。就不用就2个按钮，分别导入excel和导入txt了。一个按钮就搞定。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim ip As New Merger

ip.SourcePath = dlg.FileName '指定数据文件

ip.SourceTableName = "订单执行统计表$" '指定要导入的表

ip.DataTableName ="订单" '导入后的表名

ip.Format = "Excel" '指定导入格式

ip.merge()

End If

主题：[求助]导入excel或者txt