主题：Importer

Importer方法可以放在for each 里循环导入吗？我导入excel表中的sheet1可以，导入sheet2,sheet3都会提示运行错误。

贴出你的代码

Dim MyBook As New C1Excel.C1XLBook  '当前的Book
Dim str As String
Dim i,bi As Integer
i = 0
bi = 0
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx|Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   
    MyBook.load(dlg.FileName)
    For Each sheet As C1Excel.XLSheet In MyBook.Sheets()
        str = sheet.name
        If i = bi Then
            Dim ip As New Importer
            ip.SourcePath = dlg.FileName '指定数据文件
            ip.SourceTableName = str '指定要导入的表
            ip.NewTableName = str '导入后的表名
            ip.Format = "Excel" '指定导入格式
            MessageBox.Show(ip.SourceTableName & "\" & ip.NewTableName &"\"& ip.Format)
            ip.Import()
            i += 1
            bi = i
        End If
    Next
End If

这段代码  如何 改成 让用户 选择导入 哪一个数据表

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    For Each sheet As XLS.Sheet In book.Sheets
        Dim Result As DialogResult
        Result = MessageBox.Show("是否要导入" & sheet.name & "表", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Dim ip As New Importer
            ip.SourcePath = dlg.FileName
            ip.SourceTableName =  sheet.Name & "$" '指定要导入的表
            ip.NewTableName = sheet.name.trim()  '导入后的表名
            ip.Format = "Excel" '指定导入格式
            ip.Import()
        End If
    Next
End If

这个功能怎么就不能选择列再导入呢

 

你可以单独做一个窗口，读取第一行的值作为列选择，然后控制 Fields

 

Fields

指定要导入的字段(列)，不同的字段，用逗号给开，如果不指定，则导入所有字段。

好如果已有Fieds参数字符串如何在导入时加入这个参数

c参考：http://www.foxtable.com/help/topics/0684.htm