如何知道excel内容的多少?

mikewolf2k

怎样在vb中获得excel表格有多少内容,即用户输入到哪一行/列为止.
我现在是傻傻的在输入结束后在输入一个"输入完毕",太别扭了.

efan2000

使用UsedRange返回所使用的单元格区域

河伯

2. 
   
3. '
   
4. '计算工作表有效数据行数
   
5. '
   
6. Public Function SheetRows(AcWorkSheet As Excel.Worksheet) As Long
   
7. 
   
8.     Dim OldRange As Excel.Range
   
9. 
   
10.     Set OldRange = pubExcelApp.ActiveCell
    
11.     AcWorkSheet.Range("A1").Activate
    
12.     SheetRows = pubExcelApp.ActiveCell.CurrentRegion.Rows.Count    '有效数据行数
    
13.     OldRange.Activate    '恢复工作表原来的光标位置
    
14. 
    
15. End Function
    
16. 
    

<br /> '<br /> '计算工作表有效数据行数<br /> '<br /> Public Function SheetRows(AcWorkSheet As Excel.Worksheet) As Long<br /> <br />     Dim OldRange As Excel.Range<br /> <br />     Set OldRange = pubExcelApp.ActiveCell<br />     AcWorkSheet.Range("A1").Activate<br />     SheetRows = pubExcelApp.ActiveCell.CurrentRegion.Rows.Count    '有效数据行数<br />     OldRange.Activate    '恢复工作表原来的光标位置<br /> <br /> End Function<br /> <br />