[求助]如何将一个文件夹中的所有EXCEL合并或导入到一个表中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

也可以利用打开文件对话框一次选择多个文件来批量合并，例如：

Dim dlg As New OpenFileDialog
dlg.Filter = "Access文件|*.mdb"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If

找到了，谢谢

C盘不可取，里面有N多个文件。。。。。

我也属于半菜鸟级别的。。。试着写看。。。把文件存在c盘文件夹下

dim str（） as string = FileSys.GetFiles("C:\xxx")

dim sts as new list(of string)

sts。addrange（str）

for i as inter... = 0 to sts.count -1 step +1

......

sts(i)就是文件名，把c：\xxx和sts（i）合并，就等于路径了。。。。

下面是我在我的系统里用的工资导入系统，但是有些慢。。。将就用。。。水平有限。。。我也只能说说思路。。。。

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("工资导入").StopRedraw()

For sr As Integer = 1 To sheet.Rows.Count -1

Dim r As Row = Tables("工资导入").AddNew

For sc As Integer = 0 To sheet.Cols.Count -1

For Each dc As DataCol In DataTables("工资导入").DataCols

If dc.Name = sheet(0,sc).Value Then

r(dc.name) = sheet(sr,sc).Value

End If

c = c +1

p.Value = c

Tables("工资导入").ResumeRedraw()

[此贴子已经被作者于2016/10/28 15:11:36编辑过]

用官方的也行。。。只不过我的表结构和导入的表结构有点不一样，官方的没法用。。。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=90740&replyID=&skin=1

前面做的一个小程序，可以完美的完成你的任务，你需要的是设置好导入导出的字段因为没有写说明，可能需要你摸索一下

但是可以做到，同时导入相同格式的N个文件，按照其中一个文件的格式，进行字段以及表格的对应设置，这个设置可以保存为INI 文件，方便你下次调用，然后就可以导入一个，试试，如果成功，可以全部导入

主题：[求助]如何将一个文件夹中的所有EXCEL合并或导入到一个表中