主题：[求助]EXCEL数据导入问题（已解决）8楼更新了一个关于路径的问题

项目中有一张工序表，已经有好多记录，在做时由于原始数据不完整，所以有个字段没有录入，我现在把这张表导出来了，让生产部门去填，填完后，有什么好办法能方便的导入数据，其实是导入这一个字段，我现在想到的办法就是在项目中建立一张表，把刚才导出的数据完整的导入进来，然后用代码把这个指定的字段从临时表写到工序表，但感觉这样好麻烦，有更简单的方法吗？

编码合并,如果有个唯一的编号,可以根据编号更新

BIN老师，我的问题不是增加记录，而是原有记录中有一个字段没录入，我把这张表导出至EXCEL，然后让同事把上面的这个没有录入的字段输完整，这张表共有3000多条记录，现在同事把这张表填完给我了，我要把这个字段存入项目的这张表中，如果是EXCEL表之前的操作，我可以用VLOOKUP。

  回复3楼，你能认认真真看一下2楼的帮助文档么？

仔细看过了，我的情况是只导入指定的字段，其它字段不能导入，原因是：

假定这张表中用A B C D E  5个字段，其实A字段是唯一值，可以当成订单号，B字段是我现在让同事补全的字段，C，D，E三个字段一直在更新数据，因为项目已经实施了。

  2楼的代码，就是导入数据啊，设置的时候，只导入A、B就行啊

我以为项目中表的字段必须与EXCEL一一对应全部导入，明天做个试验，这个方法到解决了我目前为了尽快实施项目而导致一堆数据未录入后期补的情况。

试了下，成功了，有个问题请教一下，代码第一行路径名怎么写表示当前项目文件名所在目录，这样以后用时方便点，谢谢！

Dim  Book As New XLS.Book("F:\快盘\FOXtable\替换指定字段内容\TEST.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("表A").StopRedraw()
Dim nms() As String = {"第一列","第二列","第三列"}
For  n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("表A").Find("第一列 = '" & bh & "'")
    If dr Is Nothing Then  '如果不存在同编号的表A
        dr =  DataTables("表A").AddNew()
    End If
    For m As  Integer = 0 To nms.Length - 1
        dr(nms(m)) = Sheet(n,m).Value
    Next
Next
Tables("表A").ResumeRedraw()

可以这样

 

Dim  Book As New XLS.Book(projectPath & "TEST.xlsx")

 

或者选择导入

 

Dim dlg As new OpenFileDialog
dlg.InitialDirectory = ProjectPath
dlg.Filter = "Excel文件|*.xls;*xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim  Book As New XLS.Book(dlg.FileName)  

 

 

 

 

End If

选择输入是方便多了，多谢甜老师。