Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Определить количество строк в умной таблице vba
 
#1
15.06.2022 11:07:12
Добрый день!
Пытаюсь посчитать количество строк в умной таблице. Подскажите, пожалуйста, почему строка выдает ошибку 438?
Код
LastRow = Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObject("Таблица1").ListRows.Count
Изменено: Елена Дроздова - 15.06.2022 11:13:39
 
 
 
#2
15.06.2022 11:13:29
Елена Дроздова, здравствуйте
Цитата
Елена Дроздова: количество строк в умной таблице
без шапки и итогов:
Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1").ListRows.Count или
Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1").DataBodyRange.Rows.Count

Справка
Изменено: Jack Famous - 15.06.2022 13:29:24
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
15.06.2022 11:15:40
Jack Famous, попробовала - та же ошибка
 
 
 
#4
15.06.2022 11:17:06
Елена Дроздова, значит проблема в имени книги/листа/таблицы
Для таблицы на активном листе: ActiveSheet.ListObjects(1).DataBodyRange.Rows.Count
Изменено: Jack Famous - 15.06.2022 12:24:30
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#5
15.06.2022 11:40:00
Jack Famous, не работает. А если мне макросом понадобится открыть другую таблицу и посчитать строки там, то как ссылаться? Все время активировать нужный лист?
 
 
 
#6
15.06.2022 11:49:28
Код
Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1").ListRows.Count
Изменено: RAN - 15.06.2022 11:50:12
 
 
 
#7
15.06.2022 11:54:40
Елена Дроздова, можно еще использовать SQL запрос (добавил в ознакомительных целях)
код:

Код
Sub Macro()
Dim myConnect As String, mySQL As String, myRecord As Object

    DataRange = "[" & ActiveWorkbook.Sheets(1).Name & "$" & strAddress & "]"
        myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ActiveWorkbook.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=YES"""
    
    Set myRecord = CreateObject("ADODB.Recordset")
    mySQL = "SELECT COUNT(*) FROM [Лист1$]"
    myRecord.Open mySQL, myConnect
    
[E1].CopyFromRecordset myRecord
End Sub
в ячейку E1 выводит количество строк.
или использовать Ваш макрос:
Код
Sub Макрос1()
Dim myTable As ListObject
Set myTable = Worksheets(1).ListObjects("Таблица1")
MsgBox myTable.DataBodyRange.Rows.Count
' или: (можете раскомментировать)
'    LastRow = Range("Таблица1").Rows.Count
'    MsgBox (LastRow)
End Sub
 
 
 
#8
15.06.2022 12:09:30
RAN, значит точно не в методах дело, раз ListRows.Count у вас работает - в 1ом сообщении тоже самое

UPD: ListObjects - у меня на базе ТСа та же ошибка была - поправил везде  :)
Изменено: Jack Famous - 15.06.2022 12:26:27
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
15.06.2022 13:09:05
Сработало вот так:
Код
Set myobj = Workbooks("Книга1.xlsm").Worksheets("Лист1").ListObjects("Таблица1")
    LastRow = myobj.ListColumns(1).DataBodyRange.Count
    MsgBox (LastRow)

По-другому никак не работает.

 
 
 
#10
15.06.2022 13:21:46
прямо уж никак))
Код
  Debug.Print myobj.ListRows.Count
  Debug.Print myobj.DataBodyRange.Rows.Count
  Debug.Print myobj.Range.Rows.Count - 1
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
15.06.2022 13:28:28
Цитата
Ігор Гончаренко: прямо уж никак
да она явно что-то не то пробовала  :D
Цитата
Ігор Гончаренко: myobj.Range.Rows.Count - 1
если есть итоги, то -2  :)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
15.06.2022 14:07:43
Вы, скорее всего, правы, но у меня не получалось  :)  
 
 
 
Страницы: 1
Наверх