主题：希望导出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 s,f As String

    For Each r As Row In Tables("绩效计划表").Rows
        s = s & r("任意一个没有空值的显示列") & "','"
    Next
    s = "'" & s.trim("'").trim(",")

    f = "任意一个没有空值的显示列 " & "In" &  " (" & "" & s & "" & ")"

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

    End If

Dim tbl As Table = Tables("产品")
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet) '生成表头
For c As Integer = 0 To tbl.Cols.Count - 1
    If tbl.Cols(c).Visible Then
        For r As Integer = 0 to tbl.Rows.Count - 1
            sheet(r + hdr,cnt).value = tbl(r,c)
        Next
        cnt = cnt + 1
    End If
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

用这段代码，不包括隐藏行如何导出？

直接：

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

上面这个导出的来还是不是显示的顺序。

用老六的方法，只需用以下公式：

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "Excel文件|*.xls" '设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
CurrentTable.SaveExcel(dlg.FileName,"订单")

完全 解决了问题。

还是内置的公式强大，希望老六多开发内置的函数！！！