主题：希望导出EXCEL时只导显示的行（不包括隐藏行）

以下公式为将绩效计划表中的可见列导出EXCEL，但每次导出都是所有行，希望只导出当前显示的行（不包括隐藏行），请问应该加什么公式？谢谢

 

Dim flds As String
    For Each c As Col In Tables("绩效计划表").Cols
        If C.Visible  Then
            flds = flds & "," & c.name
        End If
    Next
    flds= flds.Trim(",")
   
    Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        Dim ex As New Exporter
        ex.SourceTableName = "绩效计划表" '指定导出表
        ex.FilePath = dlg.FileName '指定目标文件
        ex.Format = "Excel" '导出格式为Excel
        ex.Fields = flds  '指定导出字段
        ex.Export() '开始导出

这个问题我已经提过。

这样不行吗？

…………

ex.Filter = Tables("绩效计划表").Filter

ex.Export() '开始导出

 

好使！！！！！！

还有一个问题，导出后的数据顺序和显示的顺序是不一致的，这个如何处理？

你不是已经指定了Fields吗，导出是按Fields指定列进行排序的。

ex.Fields = flds  '指定导出字段

    我指定导出的字段是当前显示的所有字段，没有指定排序的列呀。想当前显示的是什么顺序就导出什么顺序，但上述公式导出后和显示的顺序不一致。

 

 

设置Fields不会有问题的，如果再不行发文件上来。

是不能正常导出显示的行。 隐藏的行也导出了。

 

另外，加上 Filter

ex.Filter = "某列 In (xxx,yyy) "        '***老提示错误

 

请老大，版主们 和 狐友们看看

测试没问题。

 

Dim ex As New Exporter
ex.SourceTableName = "表A"
ex.FilePath = "f:\test.xls"
ex.Format = "Excel"
ex.Filter = "[第一列] In ('a','d')"
ex.Export()