主题：请高手指教 Excel导入 怎么有部分没导进去

请高手指教  Excel导入 怎么有部分没导进去
此主题相关图片如下：美信图片20180104132314.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:物料属性 0104.xlsx

专家 帮我看看

excel数据那里，物料编码列，设置单元格格式为 【文本】，然后把输入不正确的数据改成正确的字符。最后导入。

 

或者换一种方式导入 http://www.foxtable.com/webhelp/scr/2334.htm

 

如果要单笔更改就不现实了，我这里有好几万条数据，合并数据 也会很慢！！为什么导不进去 能讲解原因吗

 

你可以另存为txt，然后再高速合并这个txt，这样也行。

 

用代码处理，就这样写

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim App As New MSExcel.Application
    app.DisplayAlerts = False
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
    Wb.SaveAs(Filename:="d:\test.txt", FileFormat:=MSExcel.XlFileFormat.xlUnicodeText)
    wb.close
    app.quit
    Dim strs As String = FileSys.ReadAllText("d:\test.txt", encoding.default)
    strs = strs.Replace(chr(9), ",")
    FileSys.WriteAllText("d:\test.txt", strs, False, Encoding.default)
    Dim mg As New Merger
    mg.SourcePath = "d:\" '指定数据文件所在目录
    mg.Format = "Delimited" '指定格式
    mg.SourceTableName = "test" '指定要合并的文件,无需扩展名
    mg.DataTableName = "表A" '指定接收数据的表
    mg.Fields = "配套主管,采购员,物料编码,物料描述" '指定导入字段
    mg.Merge()
End If

If DataTables("表A").HasChanges Then
    DataTables("表A").save
End If