以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  如何在高速合并的时候只导入指定的列数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137829)

--  作者：有点蓝 --  发布时间：2019/7/16 20:45:00 --   代码文字贴出来，不要截图，别人没法改

--  作者：有点蓝 --  发布时间：2019/7/16 21:25:00 --   newcount += 1 Dim nms() As String = {"第一列","第二列",.....} ‘需要导入的列 For i As Integer = 0 To sheet.Cols.Count -1     Dim cname As String = sheet(0, i).text     If sheet(n, i).Text > "" AndAlso t.Cols.Contains(cname) AndAlso Array.IndexOf(nms,cname) > -1 Then         If t.Cols(cname).IsBoolean Then             If sheet(n, i).Text = 1 OrElse sheet(n, i).Text = "true" Then