Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/29: Рейтинг темы: голосов - 29, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 21.09.2012
Сообщений: 104
1

Подсчет количества строк в Excel

15.11.2014, 11:26. Показов 5594. Ответов 4
Метки нет (Все метки)

День добрый. Имеется макрос. одной из задач которого стоит загрузка данных в базу SQL с другого документа excel. данные в том докменте постоянно прибавляются, становиться больше строк.

Visual Basic
1
2
3
4
5
6
7
8
Sheets("Data").Select
Dim J as Long
With ActiveWorbook
for J = 5 to 400
SQL = "insert into ......"
Set RS = xCon.Execute(SQL)
Nex J
End with
Как сделать чтобы вместо for J = 5 to 400 400 строк было автоматический подсчет количества строк в том документе. Конечно можно поставить 10 000 но все как улучшить макрос чтобы он считал эти строки сам.?? Спасибо
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2014, 11:26
Ответы с готовыми решениями:

Подсчет количества строк на странице
Подскажите, как возможно подсчитать количество записей (строк) на текущей странице(не на листе)?...

Подсчет количества строк в текстовом файле
Здравствуйте, есть 2 файлика Excel. Необходимо написать скрипт, который подсчитывал бы кол-во...

Подсчет количества выделенных ячеек в excel с помощью макроса
Здравствуйте! Как можно реализовать подсчет выделенных ячеек, и сопутствующий вопрос как...

Подсчёт количества строк и столбцов в выделенном диапазоне
Всем доброе время суток ! Может кто подскажет код или название процедуры, в которой необходимо...

4
409 / 259 / 80
Регистрация: 27.10.2012
Сообщений: 853
15.11.2014, 16:16 2
Visual Basic
1
For j = 5 To Cells(Rows.Count, 1).End(xlUp).Row
1 - номер колонки в, в которой ищем последнюю не пустую ячейку
0
912 / 560 / 88
Регистрация: 13.02.2014
Сообщений: 2,079
17.11.2014, 12:34 3
Или просто до пустой строки
Visual Basic
1
2
3
4
5
i = 1
Do While Not IsEmpty(Cells(i, 1))
...
   i = i + 1
Loop
0
409 / 259 / 80
Регистрация: 27.10.2012
Сообщений: 853
17.11.2014, 17:19 4
Цитата Сообщение от Rube Посмотреть сообщение
Или просто до пустой строки
До первой пустой. А, если надо до 10-й?
0
912 / 560 / 88
Регистрация: 13.02.2014
Сообщений: 2,079
17.11.2014, 18:07 5
Цитата Сообщение от kalbasiatka Посмотреть сообщение
До первой пустой. А, если надо до 10-й?
Тогда отрываем руки тому кто пропустил строчку.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2014, 18:07

Подсчет количества строк в предложении
Помогите пожалуйста!!! Я сам в компьютерах деревянный,но надо СРОЧНО решить задачу. Условие:...

Подсчет количества заполненных строк на листе Excel через функцию
Доброго всем. У меня офис 2007. На листе Excel есть множество строк, заполненных текстом. ...

Подсчёт количества символов и количества строк в файле
Нужно написать программу, которая запрашивает у пользователя имя (адрес) текстового файла, далее...

Подсчет количества страниц в Excel
Всем привет! Как я могу, работая с Excel , узнать количество листов? и не знаю как узнать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.