以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  导入Excel文件前，想先判断表头是否一致，如何写代码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108029)

--  作者：lyx4040 --  发布时间：2017/10/14 15:46:00 --  导入Excel文件前，想先判断表头是否一致，如何写代码？  要导入Excel文件中的数据，想先判断Excel文件的表头项，和Table的表头是否一模一样，一样的才进行导入。 请问对比表头部分如何写代码？

--  作者：有点蓝 --  发布时间：2017/10/14 16:14:00 --   Dim Book As New XLS.Book("c:\\test\\订单.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim t As Table = Tables("表A") For n As Integer = 0 To Sheet.Cols.Count -1      If t.Cols.Contains(Sheet(0,n).Value) = False         msgbox("不包含" & Sheet(0,n).Value)     End If Next