Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName '指定数据文件
ip.SourceTableName = "订单$" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Format = "excel"
ip.Import()
End If
[此贴子已经被作者于2014-6-3 12:20:26编辑过]