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


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

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

帅哥哟,离线,有人找我吗?
Bin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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,谷歌,火狐等主流浏览器上传.  

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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明细表")) '导入后的表名
这里有问题.

没有例子没办法测试.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 15:25:00 [显示全部帖子]

你这个例子没用,没有文件.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 15:45:00 [显示全部帖子]

mg.NewTableName =fileName.SubString(0,fileName.IndexOf("BOM明细表")) 

你文件名根本就没有 "BOM明细表" 当然会报错了

而且IndexOf 只能单个字符.

如果你只是想取文件名作为表名,mg.NewTableName =fileName.SubString(0,fileName.IndexOf(".")) 

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 15:50:00 [显示全部帖子]

那就不能用导入,而是用合并,并且写死表名


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/3/27 16:57:00 [显示全部帖子]

你的例子,根本没有对应的表啊.导入到哪里去?

 回到顶部