如何获取excel行数

gjay1688

脚本中如何获得一个excel中数据行数，请高手指教

lingxin5013

导入到ＤＡＴＡＴＡＢＬＥ
然后getrowcount

hsjzfling

如果是QTP中DataTable，数据行数可以直接用GetRowCount来获取

如果是Excel文件的话，目前我知道的只能去循环查找每一行，直到某一行为空，记录下当前的行号，这样来得到数据行数。

郝宁

自己写的方法，供你参考。。。
Function OpenExcel (byRef excelSH, filePath, sheetName)  //打开Excel对象
        On Error Resume Next
        Set excelApp = CreateObject("Excel.Application")
        excelApp.Visible = True
        Set excelWK = excelApp.Workbooks.Open(filePath)
        Set excelSH = excelWK.Worksheets(sheetName)
        On Error GoTo 0
End Function

Function GetRowCount (excelSH, rowCount) //获取行数
   Const  xlUp = -4162
   Const  xlToLeft = -4159
   Const  xlDown =  -4121
   Const  xlToRight  = -4161
   rowCount = excelSH.Range("A65536").End(xlUp).Row
End Function

郝宁

Function OpenExcel (byRef excelSH, filePath, sheetName)
        On Error Resume Next
        Set excelApp = CreateObject("Excel.Application")
        excelApp.Visible = True
        Set excelWK = excelApp.Workbooks.Open(filePath)
        Set excelSH = excelWK.Worksheets(sheetName)
        On Error GoTo 0
End Function

Function GetRowCount (excelSH, rowCount)
    Const  xlUp = -4162
    Const  xlToLeft = -4159
    Const  xlDown =  -4121
    Const  xlToRight  = -4161
    rowCount = excelSH.Range("A65536").End(xlUp).Row
End Function

blueeagle9999

导入表--》得到行数
DataTable.Import(FileName)
datatable.GetSheet("xxxx").GetRowCount
试试看行不？

kevin_swpi

.UsedRange.Rows.Count

gjay1688

谢谢，有些疑问：
1文件路径必须为绝对路径吗？
2 -4162等等是什么意思呵呵

gjay1688

只要将文件名和sheet名写到里面就行了吗

gjay1688

UsedRange.Rows.Count前面是什么？sheet名就OK了吗

hsjzfling

原帖由 郝宁 于 2008-9-1 22:21 发表
自己写的方法，供你参考。。。
Function OpenExcel (byRef excelSH, filePath, sheetName)  //打开Excel对象
        On Error Resume Next
        Set excelApp = CreateObject("Excel.Application")
        excelApp.Visible = Tr ...

能解释下那些常量什么意思么
我用一个有5000行数据的excel去尝试了下，给的返回值是235行。。。

kevin_swpi

原帖由 gjay1688 于 2008-9-2 09:42 发表
UsedRange.Rows.Count前面是什么？sheet名就OK了吗

对的
这样就能获取指定sheet里面存在的row的总数了
如果是列  用columns就可以了

kevin_swpi

原帖由 郝宁 于 2008-9-1 22:24 发表
Function OpenExcel (byRef excelSH, filePath, sheetName)
        On Error Resume Next
        Set excelApp = CreateObject("Excel.Application")
        excelApp.Visible = True
        Set excelWK = excelApp.Workbooks.Open(file ...

有函数直接统计
何必这么麻烦呢

呵呵 不过还是顶一下