dotNETportal.cz

Chtělo by to trochu upřesnit zadání. Předně, v Excelu není nic takového jako "počet řádků v souboru". Možná chcete vědět, kolik řádků za sebou má, řekněme, neprázdnou hodnotu ve sloupci č. 1. Tedy, chcete zjstit, na jaký řádek by to najelo, kdybyste v Excelu použil Ctrl+End.

Pokud je to to, co chcete, tak nastavte aktivní buňku a pak zaexperimentujte s

ActiveCell.SpecialCells(xlLastCell).Select

'skrzeva current region
radky = appExcel.Workbooks("soubor.xls").Worksheets("List1").range("A1").CurrentRegion.Rows.Count

'je-li Areas.Count = 1
radky = appExcel.Workbooks("soubor.xls").Worksheets("List1").range("A1").UsedRange.Rows.Count
'specialcells a worksheet function 
set myRange=worksheets("List1").usedrange 
'vybrat prázdné 
myRange.SpecialCells(xlCellTypeBlanks).select 
'spocitat prazdne 
prazdne=myRange.SpecialCells(xlCellTypeBlanks).count 
'nebo taky prazne 
prazdne=WorksheetFunction.CountBlank(myRange) 
'kolik vyplnenych 
neprazdne=WorksheetFunction.CountA(myRange) 
'celkem jich je 
vsecky=myRange.cells.count 

Jen s malou změnou:

Počet řádků oblasti kolem buňky A1 aktivního listu

radky = activesheet.cells(1).currentregion.rows.count

Ano, jen první řádek, ale věřím, že možností

bude více, můžou se vyskytovat prázdné řádky

nebo sloupce,čímž se to patřičně zkomplikuje,

tak berte zbylé řádky kódu se spočítáním buňěk

jako bonus navíc pro případ procházení sloupců

a řádků v listě pro zjištění velikosti oblasti.

Mnoho zdaru!

ještě šikovná funkce je:

konec = Worksheets("List1").Range("B2000").End(xlUp).Row

nalezne poslední obsazenou buňku v definované oblasti, respektive kolikátý to je řádek.