专家坐堂-批量导入同一个文件夹下的EXCEL文件！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量导入同一个文件夹下的EXCEL文件！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96318)

--  作者：xietan417
--  发布时间：2017/2/17 17:02:00
--  批量导入同一个文件夹下的EXCEL文件！
在同一个文件下批量导入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

--  作者：有点色
--  发布时间：2017/2/17 17:12:00
--
DataTables("各地库存").DeleteFor("")
For Each File As String In FileSys.GetFiles("D:\\MG\\report")
    Dim finfo As new fileinfo(file)
    If finfo.Extension = ".xls" OrElse finfo.Extension = ".xlsx" Then
        Dim mg As New Merger
        mg.SourcePath = File
        mg.Format = "excel" \'指定格式
        mg.SourceTableName = "仓库物料表_主表"
        mg.DataTableName = "各地库存" \'指定接收数据的表
        mg.Merge() \'开始合并
    End If
Next