Foxtable(狐表)用户栏目专家坐堂 → 批量导入同一个文件夹下的EXCEL文件!


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

主题:批量导入同一个文件夹下的EXCEL文件!

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


加好友 发短信
等级:三尾狐 帖子:721 积分:6391 威望:0 精华:0 注册:2011/6/26 11:45:00
批量导入同一个文件夹下的EXCEL文件!  发帖心情 Post By:2017/2/17 17:02:00 [显示全部帖子]

在同一个文件下批量导入EXCEL文档,由于这个文件夹里还有其它格式的文档,用批量导入时会报错!如何消除这个报错?
DataTables("各地库存").DeleteFor("")
For Each File As String In FileSys.GetFiles("D:\MG\report")
Dim fileName As String =File.SubString(File.LastIndexOf("\")+1,File.length-File.LastIndexOf("\")-1)
Dim mg As New Merger
    mg.SourcePath = File
    mg.Format = "excel" '指定格式
    mg.SourceTableName  = "仓库物料表_主表"
    mg.DataTableName = "各地库存" '指定接收数据的表
    mg.Merge() '开始合并
Next

 回到顶部