请教高手，如何在VB环境下获得EXCEL筛选后结果的行数？

我用了以下代码，结果返回的是记录总数，而不是筛选结果的行数
temp = Workbooks(3).Worksheets(1).UsedRange.SpecialCells(12).SpecialCells(2, 23).Cells.Count
然后我又用了另外一个代码，如下，还是不行，返回的数字也不对：
temp = Workbooks(3).Worksheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count
跪求指导！！

请用：activesheet.autofilter.Range.SpecialCells(xlCellTypeVisible).Rows.Count

你得先定义excel对像吧，不知道你的usedrange是怎么定义的，最好检查一下他的定义。