主题：如何将excel文件导入到当前已存在的datatable表中？

Dim dlg As New OpenFileDialog
dlg.Filter = "Access文件|*.mdb"  '你这里导入的是数据库文件了
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If

把上面那句改为：dlg.Filter = "Excel文件|*.xls"   吧

你所说的乱码文件是Access文件，用EXCEL打开是乱码的，但是用你的代码却能导入