以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导入EXCEL数据问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68175)
--  作者：foxC
--  发布时间：2015/5/11 18:58:00
--  导入EXCEL数据问题

问题1：导入的EXCEL文件需要放到某个指定路径，再导入吗？还是无所谓？

 

问题2：导入的EXCEL表格有很多个SHEET，如何快速一次性导入所有的sheet?

 

问题3：导入的EXCEL 表格里有的单元格合并的，导入到foxtable就没有合并的了。这个没办法吧?

 

问题4：导入的EXCEL数据是属于datetable,还是table ? 

--  作者：大红袍
--  发布时间：2015/5/11 19:35:00
--  

1、放在哪里都可以；

 

2、可以

 

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim book As new XLS.Book(fl)
        For Each sheet As XLS.Sheet In book.Sheets
            Dim ip As New Importer
            ip.SourcePath = fl
            ip.Format = "excel"
            ip.SourceTableName = sheet.Name & "$"
            Dim fn As String = FileSys.GetName(fl)
            ip.NewTableName = fn.SubString(0, fn.IndexOf("."))
            ip.Import()
        Next
    Next
End If

 

3、不能沿用excel的格式；

 

4、DataTable
--  作者：foxC
--  发布时间：2015/5/11 19:48:00
--  
试了代码，可以打开第一个sheet,后面的打不开的，提示已经存在此表
--  作者：大红袍
--  发布时间：2015/5/11 20:05:00
--  
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim book As new XLS.Book(fl)
        For Each sheet As XLS.Sheet In book.Sheets
            Dim ip As New Importer
            ip.SourcePath = fl
            ip.Format = "excel"
            ip.SourceTableName = sheet.Name & "$"
            ip.NewTableName = sheet.Name
            ip.Import()
        Next
    Next
End If