Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как загрузить данные из Коллекции классов на лист? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как загрузить данные из Коллекции классов на лист?
Bator Дата: Воскресенье, 28.07.2013, 10:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброго всем дня!
я еще новичок, поэтому не судите строго
есть данные подготовленные в коллекцию более 5000 строк и 20 столбцов
Dim colEmp As Collection
Dim recEmp As ClsEmp
Set colEmp = New Collection
Set recEmp = New ClsEmp
...
For Each rngCell In my_rngCell
...
colEmp.Add recEmp, recEmp.ID 'так я записываю новый класс в коллекцию
Next rngCell
...
Range("a2:d" & erow) = colEmp -
пытаюсь передать всю коллекцию на лист -
как первый вариант, но здесь эксель ругается
или надо делать это построчно?

и второй вопрос по сводным таблицам и коллекция
Возможно ли данные внесенные в коллекцию затем сохранить в кэше сводной таблицы? без отражения на листе
Прикладываю файл - скачал давно, уже не найду даже источник... чтобы изучать классы
К сообщению приложен файл: ClassCollection.xlsm (24.9 Kb)


Сообщение отредактировал Bator - Воскресенье, 28.07.2013, 10:52
 
Ответить
СообщениеДоброго всем дня!
я еще новичок, поэтому не судите строго
есть данные подготовленные в коллекцию более 5000 строк и 20 столбцов
Dim colEmp As Collection
Dim recEmp As ClsEmp
Set colEmp = New Collection
Set recEmp = New ClsEmp
...
For Each rngCell In my_rngCell
...
colEmp.Add recEmp, recEmp.ID 'так я записываю новый класс в коллекцию
Next rngCell
...
Range("a2:d" & erow) = colEmp -
пытаюсь передать всю коллекцию на лист -
как первый вариант, но здесь эксель ругается
или надо делать это построчно?

и второй вопрос по сводным таблицам и коллекция
Возможно ли данные внесенные в коллекцию затем сохранить в кэше сводной таблицы? без отражения на листе
Прикладываю файл - скачал давно, уже не найду даже источник... чтобы изучать классы

Автор - Bator
Дата добавления - 28.07.2013 в 10:48
KuklP Дата: Понедельник, 29.07.2013, 13:57 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Вообще-то бессмысленное действо. В коллекцию считывается только первая запись. Да и не нужна она для такой задачи. Хватит:
[vba]
Код
    Dim a
      a = Range("a2:d" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
[/vba]
потом:
[vba]
Код
[a2].resize(ubound(a),ubound(a,2))=a
[/vba]Забыл сказать - второй вопрос задайте в отдельной теме. Зайдите в Правила - п.4.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Понедельник, 29.07.2013, 14:04
 
Ответить
СообщениеВообще-то бессмысленное действо. В коллекцию считывается только первая запись. Да и не нужна она для такой задачи. Хватит:
[vba]
Код
    Dim a
      a = Range("a2:d" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
[/vba]
потом:
[vba]
Код
[a2].resize(ubound(a),ubound(a,2))=a
[/vba]Забыл сказать - второй вопрос задайте в отдельной теме. Зайдите в Правила - п.4.

Автор - KuklP
Дата добавления - 29.07.2013 в 13:57
Bator Дата: Вторник, 30.07.2013, 05:22 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, Спасибо,
но я наверное действительно не до конца задал вопрос...
я через цикл делаю расчет по каждому сотруднику(1500чел), в итоге имею диапазон ячеек размерностью 12мес*10 строк вводных данных = 120 клеточки,
которые забираю через метод указанный в файле и присваиваю его Коллекции класса ClsEmp, в которой сразу же делаю расчеты (около 20, могут меняться) по суммам.
В итоге я имею коллекцию с классом ClsEmp размером 1500 * 20 Расчетов = 30 тыс., которую я хотел бы сохранить в текстовом файле (CSV)...и там потом обрабатывать

Вопрос был про то, возможно ли сохранив множества "а" в коллекции, потом выгрузить данные на лист или сразу в текстовый файл:?
 
Ответить
СообщениеKuklP, Спасибо,
но я наверное действительно не до конца задал вопрос...
я через цикл делаю расчет по каждому сотруднику(1500чел), в итоге имею диапазон ячеек размерностью 12мес*10 строк вводных данных = 120 клеточки,
которые забираю через метод указанный в файле и присваиваю его Коллекции класса ClsEmp, в которой сразу же делаю расчеты (около 20, могут меняться) по суммам.
В итоге я имею коллекцию с классом ClsEmp размером 1500 * 20 Расчетов = 30 тыс., которую я хотел бы сохранить в текстовом файле (CSV)...и там потом обрабатывать

Вопрос был про то, возможно ли сохранив множества "а" в коллекции, потом выгрузить данные на лист или сразу в текстовый файл:?

Автор - Bator
Дата добавления - 30.07.2013 в 05:22
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!