以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上传电子档后值缺失  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135541)
--  作者：有点甜
--  发布时间：2019/5/29 11:14:00
--  

换一种方式导入

 

http://www.foxtable.com/webhelp/scr/2334.htm

 
--  作者：有点甜
--  发布时间：2019/5/29 16:01:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0328.htm

 
--  作者：有点甜
--  发布时间：2019/5/29 17:02:00
--  
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK  Then
    OutPut.Show("你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
    For  Each fl  As  String  In dlg.FileNames
        Output.Show(fl)
        Dim  Book As New XLS.Book(fl)
        Dim  Sheet As XLS.Sheet = Book.Sheets(0)
        Tables("三坐标检测_检测报告").StopRedraw()
        \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
        Dim nms() As  String = {"项目","实测值","理论值","偏差","正公差","负公差","评定","备注"}
        \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
        For n As Integer = 1 To Sheet.Rows.Count -1
            Dim r As  Row = Tables("三坐标检测_检测报告").AddNew()
            For  m As  Integer = 0 To nms.Length - 1
                r(nms(m)) = Sheet(n,m).Value
            Next
        Next
        Tables("三坐标检测_检测报告").ResumeRedraw()
       
    Next
End If
--  作者：有点色
--  发布时间：2019/6/6 15:16:00
--  

那把你的excel文档，另存为txt，然后再导入测试。

 

或者，在你的excel文档那里，把对应的列的格式，设置成字符，在导入。

 

 
--  作者：有点甜
--  发布时间：2019/6/6 15:38:00
--  
具体excel文件发上来测试。
--  作者：有点甜
--  发布时间：2019/6/6 18:04:00
--  
你贴出的excel文件，我测试【高速合并】可以正常导入数据啊。请上传不能正确导入数据的excel文件。