主题：[求助]我需要导入3万条数据，如何快速导入？Excel标题开头为数字

1、

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.format = "Excel"
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "原始数据$" '指定要导入的表
    ip.NewTableName = "原始数据1" '导入后的表名
    ip.Import()
End If

安装一下这个 http://www.foxtable.com/download/AccessDatabaseEngine.exe

2、参考 http://www.foxtable.com/webhelp/scr/0685.htm

你可以设置 fieldMaps

FieldMaps
这是一个集合，要合并的表和接收数据的表的字段名称存在不一致的情况下，可以用此集合指定两个表之间字段的对应关系。
假定要合并的表中某一字段的名称为“ID”，合并的时候，需要将该列的内容合并到接收表中的"编号"列，可以设置代码：
Dim mg As New Merger
mg.FieldMaps.Add("ID","编号")

红色代码写错

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.format = "Excel"
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "sheet1$" '指定要导入的表
    ip.NewTableName = "原始数据1" '导入后的表名
    ip.Import()
End If

是的，merger的代码和4楼差不多的，改一下即可。