简单问题，100分送上，如何用vba或Ado的到.xls文件中的某一张表的总行数？

Question

感谢您使用微软产品你可以在VBA中使用ActiveSheet的UsedRange属性获得excel对象中使用过的范围，再进一步获得行列数。如下例：        Private Sub Workbook_Open()
        
            Worksheets(1).Activate
            
            Dim rng As Range
            Dim i As Integer, j As Integer
            
            Set rng = ActiveSheet.UsedRange
            
            i = rng.Rows.Count
            j = rng.Columns.Count
               
            With ActiveSheet
              .Range("A1") = i
              .Range("A2") = j
            End With        End Sub
详细信息请参考：
Count Property
http://msdn.microsoft.com/library/en-us/vbaxl10/html/xlproCount.asp
UsedRange Property
http://msdn.microsoft.com/library/en-us/vbaxl10/html/xlproUsedRange.asp- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。