Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Проблема с запихиванием данных в массив
 
#1
20.03.2021 12:53:54
Добрый день, форумчане.
Столкнулся с такой проблемой. Есть файл с данными более 300к+ строк и порядка 40 столбцов. Хочу данные запихнуть макросом в массив, но почему-то полностью не получается запихнуть сразу.
при каждом прогоне макроса постоянно разный результат, то 4000 строк будет, то 69к, то 200к.
Может кто подскажет как запихнуть ? В чем проблема может?
Пробовал и .Range("A1:AN" & номер последней строки)
Код
sub процедура ()

переменнаяКниги = GetObject(pathBook)
массив = переменнаяКниги.ActiveSheet.UsedRange
переменнаяКниги.Close

....
End sub
 
 
 
#2
20.03.2021 13:02:39
читайте документацию там написано о максимальных размерах массива, о максимальном обьеме данных, который может содержать массив
(память не безразмерна, ограничения есть, нужно их учитывать)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
20.03.2021 13:04:36
Не пытайтесь запихивать. в бутылку 0,75 никак литруха не поместится )
 
 
 
#4
20.03.2021 13:09:23
не подскажете , как тогда можно обойти стороной пробег по файлу ? Массив просто быстрее обрабатывается.
 
 
 
#5
20.03.2021 13:22:02
Пробовали не через метод GetObject?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#6
20.03.2021 13:22:29
Забирайте в массив только нужный диапазон.
 
 
 
#7
20.03.2021 13:24:21
Просто в данном файле необходимые столбцы находятся на больших расстояниях . 2 столбец, 24, столбец, 36 столбец.
Хотя вы правы, можно попробовать скопировать на новый лист нужные столбцы и потом забрать их в массив.
Будем пробовать.

Цитата
Nordheim написал: Пробовали не через метод GetObject?
Да, через WorkBook.open  и  массив = Книга .Активный лист и т.д.
 
 
 
#8
20.03.2021 13:28:25
По какому столбцу определяете последнюю строку из 40? увидеть бы оригинальный файл, впервые о таком слышу, что бы одни и те же данные на листезабирались в разные по размерам массивы
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#9
20.03.2021 13:39:14
послСтрока = Книга.Лист.UsedRange.Rows.Count
 
 
 
#10
20.03.2021 14:36:43
Цитата
nor написал: ...копировать на новый лист нужные столбцы и потом забрать их в массив.
Зачем? збирайте в несколько разных массивов и обрабатывайте раздельно.

off
Цитата
vikttur написал:  0,75 никак литруха не поместится
просто нужно использовать концентрат, тогда еще и место останется :-) , даже с учетом уменьшения объема при смешивании за счет более плотной упаковки  молекул :-)
По вопросам из тем форума, личку не читаю.
 
 
 
#11
20.03.2021 14:57:17
Это к химику с колбочкой )
 
 
 
#12
20.03.2021 15:53:46
Цитата
nor написал:
послСтрока = Книга.Лист.UsedRange.Rows.Count
А если так
Код
 Книга.Лист.Range("a" & Книга.Лист.Rows.Count).end(xlUp).row
так же не работает?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#13
20.03.2021 17:34:00
Цитата
nor написал:
при каждом прогоне макроса постоянно разный результат, то 4000 строк будет, то 69к, то 200к.
Проблема в максимальном объеме памяти на вашем компьютере и в системе (32-бит/64-бит).
Например, для 2 GB RAM (win 32-бит, office 32-бит) вы можете создать массив из 831590 строк x 40 столбцов (например у меня, но на разных компьютерах будет по-разному).
Если в памяти запущены другие процессы (в фоновом режиме) или память не была освобождена после других действий, у вас соответственно меньше места для таблицы в vba.

Цитата
nor написал:
Может кто подскажет как запихнуть ?
Это зависит от того, что вы фактически хотите делать с этими данными.
Вам может потребоваться использовать sql в vba или например PQ, или разделить данные на блоки и выполнить действия с отдельными блоками данных.
Кто знает, какие действия вы там выполняете над этими данными ?
 
 
 
#14
20.03.2021 21:52:38
ocet p, спасибо за информацию. Про sql тоже задумался. Спасибо всем за помощь.  
 
 
 
Страницы: 1
Наверх