Import方式导入excel表，怎么限制非文本内容的空白列导入呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Import方式导入excel表，怎么限制非文本内容的空白列导入呢？

使用过程中遇到当前excel表中只有10列，结果导入的时候会提示不能超过225？甚至获取到的第一行列名都大于225的实际列只有10列，怎么增加判断呢？

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "Excel97文件|*.xls|Excel2007文件|*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim ip As New Importer

ip.SourcePath = dlg.FileName '指定数据文件\

Dim Str1 As String = FileSys.GetName(dlg.FileName) '从文件路劲中获取文件名称

Dim book As new XLS.Book(dlg.FileName)

Dim c6 As WinForm.ComboBox = e.Form.Controls("ComboBox6")

Dim a1 As Integer = c6.Value

' MessageBox.Show(book.Sheets(0).name)

ip.SourceTableName = book.Sheets(a1).name '指定要导入的表

ip.NewTableName =book.Sheets(a1).name 's '导入后的表名

If Str1 > "" AndAlso Str1.Contains("xlsx") Then

' MessageBox.Show("xlsx文件")

ip.Format="Excel2007"

Else If Str1 > "" AndAlso Str1.Contains("xls") Then

' MessageBox.Show("xls文件")

ip.Format="Excel"

End If

' MessageBox.Show("1")

ip.Import()

End If

Importer没有办法判断，这个是execl文件本身的问题，看起来这些列没有内容，实际上都用到了，应该是生成这个文件的程序导出功能有问题

可以根据第一行标题手工生成表格：http://www.foxtable.com/webhelp/topics/2122.htm、http://www.foxtable.com/webhelp/topics/0679.htm

然后使用这种方式合并：http://www.foxtable.com/webhelp/topics/2334.htm

如此这样老师有没有什么办法解决呢？

在选择需要导入的数据表名之后的代码

If e.sender.value = "" Then

Return

End If

Dim r As Row

Dim dc As Col

Dim dt As Table = Tables(Vars("btname11"))

Dim t As Table = e.Form.Controls("Table1").Table

Dim i As Integer

Dim nms As String

Dim nms1 As String

Dim cnt As Integer = DataTables(Vars("btname11")).DataCols.Count

Dim Book As New XLS.Book(e.Form.Controls("TextBox1").value)

Dim Sheet As XLS.Sheet = Book.Sheets(e.sender.value)

t.StopRedraw

t.DataTable.DataRows.clear

Dim zd1 As New Dictionary(Of Integer, String)

For i = 0 To Sheet.Cols.count - 1

r = t.AddNew()

r("来源字段") = Sheet(0,i).Value

r("来源列数")=i

zd1.Add(r("来源列数"),r("来源字段"))

For Each dc In dt.cols

nms = nms & "|" & dc.name

t.cols("接收字段").ComboList = nms

For i1 As Integer = 0 To cnt - 1

nms1 = nms1 & "|" & i1

t.cols("接收列数").ComboList =nms1 & "|"

t.cols("是否唯一").ComboList ="是" & "|" & "不是"

t.ResumeRedraw

[此贴子已经被作者于2021/11/19 15:16:35编辑过]

For i = 0 To Sheet.Cols.count - 1

if Sheet(0,i).text > ""

r = t.AddNew()

r("来源字段") = Sheet(0,i).Value

r("来源列数")=i

zd1.Add(r("来源列数"),r("来源字段"))

end if

主题：Import方式导入excel表，怎么限制非文本内容的空白列导入呢？