- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]将excel中数据合并到foxtable内建表中出现错误提示 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42014)
-- 发布时间：2013/11/1 16:09:00
-- [求助]将excel中数据合并到foxtable内建表中出现错误提示
请大侠看下如下代码，愿意是将excel中数据合并到foxtable内建表中，字段顺序都一样，但出现错误提示
Dim dlg As new OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog= DialogResult.OK Then
Dim book As new XLS.Book(" \'" & dlg.FileName & "\'")
Dim sheet As XLS.Sheet
sheet= book.Sheets(0)
Tables("物料信息").StopRedraw
Dim nms() As String= {"物料编号","物料名称","规格型号","单价","计价单位","供应商","备注"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("物料信息").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("物料信息").ResumeRedraw()
End If
-- 发布时间：2013/11/1 16:10:00
--
呵呵，最好有个小例子发上来测试，再怎么着，也得告诉大家错误提示吧
[此贴子已经被作者于2013-11-1 16:10:36编辑过]
-- 发布时间：2013/11/1 16:11:00
--
请问出现什么错误
Dim book As new XLS.Book(" \'" & dlg.FileName & "\'") 这是干嘛呢? 怎么还拼接单引号?
-- 发布时间：2013/11/1 16:17:00
--
附件已上传，请大侠帮忙看下
-- 发布时间：2013/11/1 16:24:00
--
额，附件好像传不上去，，，
-- 发布时间：2013/11/1 16:28:00
--
使用IE 谷歌 火狐浏览器 不要使用其他奇怪的浏览器.
-- 发布时间：2013/11/1 16:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.rar |
原来是压缩包太大，已上传，请大侠帮忙看下，谢谢
-- 发布时间：2013/11/1 16:47:00
--
就是我3楼所说的问题,你为什么要加单引号呢.
Dim book As new XLS.Book(" \'" & dlg.FileName & "\'")
改为
Dim book As new XLS.Book(dlg.FileName)
就OK了
-- 发布时间：2013/11/1 16:47:00
--
哦，谢谢版主