mikewolf2k 发表于 2003-12-16 18:57:00

如何知道excel内容的多少?

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

efan2000 发表于 2003-12-16 19:49:00

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

河伯 发表于 2003-12-17 16:14:00


'
'计算工作表有效数据行数
'
Public Function SheetRows(AcWorkSheet As Excel.Worksheet) As Long

    Dim OldRange As Excel.Range

    Set OldRange = pubExcelApp.ActiveCell
    AcWorkSheet.Range("A1").Activate
    SheetRows = pubExcelApp.ActiveCell.CurrentRegion.Rows.Count    '有效数据行数
    OldRange.Activate    '恢复工作表原来的光标位置

End Function

页: [1]
查看完整版本: 如何知道excel内容的多少?