以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何导入同一个文件夹中的多个excel表，可以实现吗？谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76255)
--  作者：wendude
--  发布时间：2015/10/25 17:17:00
--  如何导入同一个文件夹中的多个excel表，可以实现吗？谢谢

Dim ip as New Importer
ip.SourcePath = "c:\\Data\\销售管理.xls" \'指定数据文件
ip.SourceTableName = "订单" \'指定要导入的表
ip.NewTableName ="订单" \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()

 

想直接导入一个文件夹，文件夹中有n个excel表，模板相同，谢谢！
--  作者：wendude
--  发布时间：2015/10/25 17:21:00
--  除了用merge语句的这个
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
--  作者：狐狸爸爸
--  发布时间：2015/10/26 8:48:00
--  
将多个结构相同的excel表合并到foxtable中的同一个表，只能用Merger：
 
    For Each fl As String In Filesys.GetFiles("c:\\daya")
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
--  作者：wendude
--  发布时间：2015/10/26 11:36:00
--  那么，源文件可否名称不一样？

mg.SourceTableName = "订单"
        mg.DataTableName = "订单"

第一个可以不是用订单吗？不是写在代码中的，而是可以随机引用；第二个同样可以实现随机引用吗？谢谢！！

[此贴子已经被作者于2015/10/26 11:36:53编辑过]
--  作者：大红袍
--  发布时间：2015/10/26 12:08:00
--  

For Each fl As String In Filesys.GetFiles("d:\\")
    Dim mg As New Merger
    mg.SourcePath = fl
    Dim book As new XLS.Book(fl)
   
    mg.SourceTableName = book.Sheets(0).name & "$"
    mg.DataTableName =  book.Sheets(0).name
    mg.Merge()
Next