Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入数据


  共有3155人关注过本帖树形打印复制链接

主题：导入数据
帅哥哟，离线，有人找我吗？
aaa1234
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		导入数据  发帖心情 Post By：2021/10/26 16:01:00 [只看该作者]

老师您好我想导入数据，然后我excel有一列是品名(英文/中文），他是设置过单元格，要浏览格式结果才能看到，但是导入的不是我看到效果
我的代码如下Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet=Book.Sheets(0)
Tables("客服产品资料表").StopRedraw()
'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String={"品名(英文/中文)","配色(英文/中文)","材质/细节","整套sku","单件sku","易仓sku","箱唛说明书中名称","包装结构(天地盖,长边侧开,短边侧开)","处理方案","客服负责人","Steven/Lucia发快递评定","八爪鱼发快递评定","备注","负责人"}
'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/26 16:16:00 [只看该作者]

没看懂是什么问题？截图说明一下

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		回复：（有点蓝）没看懂是什么问题？截图说明一下  发帖心情 Post By：2021/10/26 16:52:00 [只看该作者]

老师你看看这个表的品名(英文/中文）列，导入试一下

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/10/26 16:53:00 [只看该作者]

111
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:11111小练.xls
 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/10/26 16:55:00 [只看该作者]

111
图片点击可在新窗口打开查看此主题相关图片如下：1635238418(1).jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/26 17:02:00 [只看该作者]

这种数据没有办法导入，不是单元格的真实数据。

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/10/26 17:03:00 [只看该作者]

那要怎么样才能搞成真实的数据呢，老师

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/26 17:19:00 [只看该作者]

我也不懂，execl也不是很熟，第一次见这种用法

 回到顶部
帅哥哟，离线，有人找我吗？
aaa1234
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：825 积分：1650 威望：0 精华：0 注册：2021/7/30 8:48:00 		  发帖心情 Post By：2021/10/27 10:56:00 [只看该作者]

图片点击可在新窗口打开查看老师用这代码导入这个表，好像有点问题，最后
以下内容是专门发给有点蓝浏览
一行多了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新1.xlsx

[此贴子已经被作者于2021/10/27 10:59:16编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107321 积分：545866 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/27 11:36:00 [只看该作者]

表格本身就有空行

代码里判断一下，第一列是否有值再导
……
For n As Integer =1 To Sheet.Rows.Count-1
if Sheet(n,0).text > "" then
 Dim r As Row = Tables("客服产品资料表").AddNew()
 For m As Integer =0 To nms.Length -1
        r(nms(m)) =Sheet(n,m).Value
 Next
end if
Next
 回到顶部
总数 29 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询