主题：如何将excel表格的数据自动导入数据表

我有一个excel表格（名称为“领料表”），里面有数据列“物料代号”和“领料数量”；再有一个数据表“批号表”，里面有数据列“产品代号”和“出库数量”。我在“菜单设计”那里建立了一个按钮，我希望按一下这个按钮，就可以将excel 表格“领料表”与数据表“批号表”进行比较，凡是“物料代号”=“产品代号”的，就将“领料数量”填入“出库数量”（代替掉旧的“出库数量”）。如果数据表“批号表”里面不存在某个“物料代号”，就要增加一行，将“物料代号”和“领料数量”输入到数据表的“产品代号”和“出库数量”。请教这个代码如何写。谢谢。

参考：http://www.foxtable.com/webhelp/scr/2334.htm

代码改成这样

 

If User.Group = "营销" Or User.name = "开发者"
   If CurrentTable.name.contains("直身开料单")
       Dim Book As New XLS.Book("c:\开料任务单.xls")
       Dim Sheet As XLS.Sheet = Book.Sheets(1)
       Tables("直身开料单").StopRedraw()
       Dim nms() As String = {"piao号","订单号","制造产品号","材料","物料号","开料参数","大小弯","数量","开料mm","开料inch","开料数量"}
       For n As Integer = 1 To Sheet.Rows.Count -1
           Dim r As Row = Tables("直身开料单").AddNew()
           r("生产piao号") = sheet(n, 0).text
           r("订单号") = sheet(n, 1).text
           r("制造产品号") = sheet(n, 2).text
       Next
       Tables("直身开料单").ResumeRedraw()
    End If
End If

按照你的方法修改了代码，但还是执行不了，没有任何反映，没有任何警告。

那试试改成这样测试

Dim Book As New XLS.Book("c:\开料任务单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("直身开料单").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
    msgbox(sheet(n, 0).text)
    Dim r As Row = Tables("直身开料单").AddNew()
    r("生产piao号") = sheet(n, 0).text
    r("订单号") = sheet(n, 1).text
    r("制造产品号") = sheet(n, 2).text
Next
Tables("直身开料单").ResumeRedraw()

上述代码可以了。

这个意思？参考

 

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

 

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

 

去掉第一个空格的问题解决了。谢谢。

无法远程打开excel文件的。只能在本地电脑打开foxtable项目，然后再引用本地的excel文件。