以文本方式查看主题

-  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=65460)

--  作者:xrz
--  发布时间:2015/3/16 19:35:00
--  每次高速导入Excel文件时都要求改文件名太麻烦
老师,你能帮忙去除掉每次“高速导入”Excel文件时都要求改文件名的麻烦吗?还有那个讨厌的“$”。另外:我发现要想顺利地把Excel文件导入Foxtable中需要把所有想导入的Excel文件都打开,这是什么原因呢?
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150316191951.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2015/3/16 19:45:00
--  

 不是告诉过你怎么做了么?用代码导入

 

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim book As new XLS.Book(f)
        For Each s As XLS.Sheet In book.Sheets
            Dim ip As New Importer
            ip.SourcePath = f
            ip.SourceTableName = s.Name & "$"
            ip.NewTableName = s.Name & Format(Date.Now, "yyyyMMddHHmmssfff")
            ip.Format = "Excel"
            ip.Import()
        Next
    Next
End If


--  作者:xrz
--  发布时间:2015/3/16 19:52:00
--  
用代码导入,每次要在代码里改文件名,也很麻烦。老师的这段代码是批量Excel文件导入吗?
--  作者:有点甜
--  发布时间:2015/3/16 19:53:00
--  
 认真测试2楼
--  作者:xrz
--  发布时间:2015/3/16 21:39:00
--  

好的。

 


--  作者:xrz
--  发布时间:2015/3/16 22:02:00
--  
老师,foxtable能否做到:大批量的导入Excel文件,然后,每个Excel文件和某个同时导入的固定Excel文件比较、合并,再大批量的导出同名的Excel文件?
--  作者:有点甜
--  发布时间:2015/3/16 22:06:00
--  

合并数据,参考

 

http://www.foxtable.com/help/topics/0685.htm

 

http://www.foxtable.com/help/topics/2334.htm

 


--  作者:xrz
--  发布时间:2015/3/16 22:13:00
--  
谢谢老师!