- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于批量导入EXCLE文件，求教？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48351)
-- 发布时间：2014/3/27 13:52:00
-- [求助]关于批量导入EXCLE文件，求教？
希望将目录下所有excle文件全部导入，但是报错如图，请指教。
-- 发布时间：2014/3/27 13:53:00
--
如图
-- 发布时间：2014/3/27 13:55:00
--
为什么传不上文件。
-- 发布时间：2014/3/27 14:03:00
--
上传图片和文件参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78 请尽量使用IE,谷歌,火狐等主流浏览器上传. 使用谷歌浏览器必须要先输入一个以上的字符 上传后需要等文件代码出现才算成功! |
-- 发布时间：2014/3/27 14:53:00
--
此主题相关图片如下：捕获.jpg
-- 发布时间：2014/3/27 14:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.table |
-- 发布时间：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
-- 发布时间：2014/3/27 15:17:00
--
bin版，什么意思呀？就是报错。
-- 发布时间：2014/3/27 15:19:00
--
还是报一样的错误吗?
那可能是
mg.SourceTableName = fileName.SubString(0,fileName.IndexOf(".")) \'指定要导入的表
mg.NewTableName =fileName.SubString(0,fileName.IndexOf("BOM明细表")) \'导入后的表名
这里有问题.
没有例子没办法测试.
-- 发布时间：2014/3/27 15:19:00
--
我传了一个例子