在同一个文件下批量导入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