Как подсчитать кол-во листов в книге Excel? - VB
Формулировка задачи:
Т.е. не кол-во закладочек внизу (листов так наз.) а общее кол-во листов в документе?
Решение задачи: «Как подсчитать кол-во листов в книге Excel?»
textual
Листинг программы
<font size="2"> <font color="blue">For</font> i = 1 <font color="blue">To</font> Sheets.Count
<font color="blue">If</font> Sheets(i).UsedRange.Columns.Count = 1 <font color="blue">And</font> _
Sheets(i).UsedRange.Rows.Count = 1 <font color="blue">And</font> _
Sheets(i).Range("A1").Value = "" <font color="blue">Then</font>
Debug.Print Sheets(i).Name & "- пуст"
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font><br>
</font>