主题：[求助]关于批量导入EXCLE文件，求教？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.zip

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:每日bom.zip

再传个文件，把例子里的路径改下，看看

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

那根目录里面的文件名字都不相同，但我想全部导入到一个数据表内，该怎么办？

 

 

我想把文件夹里的所有excle文件都导到一个数据表里，哪位老师帮我弄一下。按例子里的窗口形式单击导入。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:每日bom.zip

测试通过：

For Each fl As String In filesys.GetFiles("C:\Users\yangguohui\test\每日bom\2014\2014.3\2014.3.1")
    Dim ip As New  Importer
    ip.SourcePath = fl '指定数据文件
    ip.SourceTableName = "Exported$"  '指定要导入的表
    ip.NewTableName = Filesys.GetName(fl).SubString(0,Filesys.GetName(fl).Length - 4) '导入后的表名
    ip.Format =  "Excel" '指定导入格式
    ip.Import()
Next

 

 

Excel文件的表名要统计，不要有的是Expoted，有的是sheet1，统一才好处理。

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

搞定了，谢谢，两位版主，是我开始没理解导入与合并的用法。

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 Merger
mg.SourcePath = File '指定数据文件
mg.Format = "Excel" '指定导入格式
mg.SourceTableName = "Exported$" '指定要导入的表
mg.DataTableName = "BOM明细表" '导入后的表名
mg.Merge()
Next