Foxtable(狐表)用户栏目专家坐堂 → [求助]关于批量导入EXCLE文件,求教?


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

主题:[求助]关于批量导入EXCLE文件,求教?

帅哥哟,离线,有人找我吗?
shipangzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
[求助]关于批量导入EXCLE文件,求教?  发帖心情 Post By:2014/3/27 13:52:00 [只看该作者]

希望将目录下所有excle文件全部导入,但是报错如图,请指教。

 回到顶部
帅哥哟,离线,有人找我吗?
shipangzi
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
  发帖心情 Post By:2014/3/27 13:53:00 [只看该作者]

如图

 回到顶部
帅哥哟,离线,有人找我吗?
shipangzi
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
  发帖心情 Post By:2014/3/27 13:55:00 [只看该作者]

为什么传不上文件。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 14:03:00 [只看该作者]

上传图片和文件参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78


请尽量使用IE,谷歌,火狐等主流浏览器上传.  

使用谷歌浏览器必须要先输入一个以上的字符

上传后需要等文件代码出现才算成功!

 回到顶部
帅哥哟,离线,有人找我吗?
shipangzi
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
  发帖心情 Post By:2014/3/27 14:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
shipangzi
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
  发帖心情 Post By:2014/3/27 14:54:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 15:01:00 [只看该作者]

Dim lbl As WinForm.DateTimePicker
lbl = e.Form.Controls("DateTimePicker1")
Dim year As Integer = lbl.Value.Year
Dim month As Integer = lbl.Value.Month
Dim day As Integer = lbl.Value.Day

For Each File As String In FileSys.GetFiles("\\192.168.65.15\每日bom\" & year & "\" & year & "." & month & "\" & year & "." & month & "." & day & "")
Dim fileName As String = FileSys.GetName(File)
Dim mg As New Importer
mg.SourcePath = File '指定数据文件
mg.SourceTableName = fileName.SubString(0,fileName.IndexOf(".")) '指定要导入的表
mg.NewTableName =fileName.SubString(0,fileName.IndexOf("BOM明细表")) '导入后的表名
mg.Format = "Excel" '指定导入格式
mg.Import()
Next

 回到顶部
帅哥哟,离线,有人找我吗?
shipangzi
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
  发帖心情 Post By:2014/3/27 15:17:00 [只看该作者]

bin版,什么意思呀?就是报错。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 15:19:00 [只看该作者]

还是报一样的错误吗?

那可能是
mg.SourceTableName = fileName.SubString(0,fileName.IndexOf(".")) '指定要导入的表
mg.NewTableName =fileName.SubString(0,fileName.IndexOf("BOM明细表")) '导入后的表名
这里有问题.

没有例子没办法测试.

 回到顶部
帅哥哟,离线,有人找我吗?
shipangzi
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:85 积分:691 威望:0 精华:0 注册:2011/8/14 13:39:00
  发帖心情 Post By:2014/3/27 15:19:00 [只看该作者]

我传了一个例子

 回到顶部
总数 28 1 2 3 下一页