帮忙看看导入Excel的时候出问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙看看导入Excel的时候出问题

共有3697人关注过本帖树形打印复制链接主题：帮忙看看导入Excel的时候出问题

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

帮忙看看导入Excel的时候出问题 发帖心情

Post By：2014/4/24 20:46:00 [只看该作者]

为什么导入Excel的时候导入不进去啊感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:桌面.zip

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/24 20:55:00 [只看该作者]

看了一下，你不能导入.csv格式的数据，你需要把数据转换成.xls格式的才能导入。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/24 21:00:00 [只看该作者]

改了一下，如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导入excel.table

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/4/24 21:09:00 [只看该作者]

不能直接导入吗？嘿嘿！

那一段是设置他们对应的列啊

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

dlg.Filter= "Excel文件|*.xls|Excel文件|*.csv" '设置筛选器

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

e.Sender.Text = "导入中"

Dim Book As New XLS.Book(dlg.FileName)

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

CurrentTable.StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第八列","第九列"}

Application.DoEvents

Dim cmd As new sqlcommand

cmd.commandtext = "Select distinct 第一列,第二列 from {表A}"

Dim dt As DataTable = cmd.ExecuteReader

For n As Integer = 1 To Sheet.Rows.Count -1

Dim bh As String = "第一列 ='" & sheet(n,0).Text & "' and 第二列 = '" & sheet(n,1).Text & "'"

If dt.Find(bh) Is Nothing Then

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

For m As Integer = 0 To nms.Length - 1

r(nms(m)) = sheet(n,m).Value

End If

e.Sender.Text = "导入"

CurrentTable.DataTable.Save

CurrentTable.ResumeRedraw()

End If

[此贴子已经被作者于2014-4-24 21:12:48编辑过]

yangwenghd

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/4/24 21:28:00 [只看该作者]

能帮我看看吗？实在是有点头疼为什么不需要的也导入进去了啊比如第一行，还有就是某些列，那一段是写他们对应的行和列啊

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/24 21:32:00 [只看该作者]

帮你分析一下。

'下面写表a的列名，要对应excel的A、B、C列

Dim nms() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第八列","第九列"}

--------------------------------------

'唯一值判断，意思是第一列、第二列标注这一行数据的唯一（为的是不导入重复数据）

cmd.commandtext = "Select distinct 第一列,第二列 from {表A}"

-------------------------------------

'也是为了判断唯一，不重复导入

Dim bh As String = "第一列 ='" & sheet(n,0).Text & "' and 第二列 = '" & sheet(n,1).Text & "'"

yangwenghd

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/4/24 21:40:00 [只看该作者]

如果Excel B列不导入能跳过了，或者只是导入一般的列，并且他们的位置不同，可以设置为A列指定导入某列和B C 列不导入，从第几行导入吗？

感谢感谢感谢

yangwenghd

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/4/24 22:08:00 [只看该作者]

甜兄弟能帮我改一下吗？

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/24 22:15:00 [只看该作者]

可以，下面这一段代码，不导入C、D、F列数据，从第4行开始导入

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

dlg.Filter= "Excel文件|*.xls|Excel文件|*.csv" '设置筛选器

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

e.Sender.Text = "导入中"

Dim Book As New XLS.Book(dlg.FileName)

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

CurrentTable.StopRedraw()

'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致

Dim nms() As String = {"第一列","第二列","","","第五列","","第八列","第九列"}

Application.DoEvents

Dim cmd As new sqlcommand

cmd.commandtext = "Select distinct 第一列,第二列 from {表A}"

Dim dt As DataTable = cmd.ExecuteReader

For n As Integer = 3 To Sheet.Rows.Count -1

Dim bh As String = "第一列 ='" & sheet(n,0).Text & "' and 第二列 = '" & sheet(n,1).Text & "'"

If dt.Find(bh) Is Nothing Then

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

For m As Integer = 0 To nms.Length - 1

If nms(m) > "" Then

r(nms(m)) = sheet(n,m).Value

End If

e.Sender.Text = "导入"

CurrentTable.DataTable.Save

CurrentTable.ResumeRedraw()

End If

yangwenghd

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/4/24 22:39:00 [只看该作者]

导入第二次的时候就出问题了

未将对象引用设置到对象的实例。

为什么有些能导入有些不能导入呢！

还有一个问题感谢：

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.3.8.1

错误所在事件：

详细错误信息：

字段太小而不能接受所要添加的数据的数量。试着插入或粘贴较少的数据。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:desktop.zip

[此贴子已经被作者于2014-4-25 10:10:02编辑过]

下一主题 >> << 上一主题

主题：帮忙看看导入Excel的时候出问题