主题：导入EXCEL数据问题

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

 

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

 

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

 

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

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

试了代码，可以打开第一个sheet,后面的打不开的，提示已经存在此表

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