есть предположим текстовый файл.
как бы посчитать кол-во строк в нем?
спс
st = createobject("Scripting.Filesystemobject").getfile("c:\123.txt.").openastextstream(ioreading).readall
linesinfile=(len(st)-len(replace(st,vbcrlf,"",1,-1,0)))/2
RowsCount=ActiveCell.SpecialCells(xlLastCell).Row
Ruslan Demidow писал(а):
- Код: Выделить всё
RowsCount=ActiveCell.SpecialCells(xlLastCell).Row
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 39