主题：[求助]请教导入、导出的问题

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

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

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

    Dim mg As New Merger

    mg.SourcePath = dlg.FileName

    mg.Format = "Excel"

    mg.SourceTableName = "客户档案$" 

    mg.DataTableName = "客户档案"

    mg.Merge()

End If