主题：引用EXCEL数据赋值的按钮代码

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

2楼更简洁快速。不需要打开execl文件就可以导入数据

Sheet.Rows.Count 指实际使用的行数，不用的行不会计算的

Dim Book As New XLS.Book(路径1)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

For n As Integer = 1 To sheet.Rows.count - 1

       Dim r As Row = Tables("表A").addnew()

       r("第一列")= sheet(n,0).value    

Next

Dim Book1 As New XLS.Book(路径2)

Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)

Dim r1 As Row

For n1 As Integer = 1 To sheet.Rows.count - 1

if  n1 < Tables("表A").rows.count

    r1 = Tables("表A").rows(n1 - 1)

else

        r1 = Tables("表A").addnew()

end if

        r1("第二列")= sheet1(n1,0).value

Next

没有

别人家的软件我就不清楚了。做个例子发上来看看

Foxtable没有责任，也不会判断某个文件是否安全。完全就是文件本身的问题。可能是对方软件导出的是xlsx格式的数据，却把扩展名改为xls了

这种文件要使用这种方式导：http://www.foxtable.com/webhelp/topics/2629.htm

导出的数据不规范，没有人有办法