主题：筛选条件

请教老师，如果需要给以下代码加一个filter,内容为当前选择的行，怎么加？

 

Dim exa as New Exporter
exa.SourceTableName = "表B"
exa.FilePath = "c:\Data\数据.xls"
exa.Format = "Excel"
exa.Export()

老师 不好意思 我没表达清楚 我这里选择的行 可能是一行，也可能是多行。