Массив массивов в VBA или что-то похожее (см. сообщении)

Здравствуйте, умные люди. Есть такая задача: на листах Excel различного рода таблички разного размера и конфигурации. Надо перенести данные из одного файла в другой. Всё просто, проблема лишь в том, что таблицы имеют разную конфигурацию (всякие там сдвоенные ячейки и пр.). Суть такова, что я работаю с массивами, если вид таблицы скажем так, однороден на всем протяжении, проблем вообще нет, но с нестандартными таблицами я работаю в отдельной процедуре... В эту процедуру мне надо передать массив данных в качестве параметра, но в зависимости от имени листа я должен передавать разные массивы, и я не могу сообразить, как это сделать. В справке по VB нашёл описание массива массивов, где каждый элемент в свою очередь является массивом, мне бы это подошло, но почему-то при объявлении такого массива в VBA Excel ругается. Может есть другой способ перебрать массивы и подставить их в процедуру?

Немного кода, чтобы было понятнее, о чём я прошу:

Изначально всё происходит так: перебираю в цикле список имён листов и проверяю на "стандартность", если лист нестандартный, запускаю процедуру ExclusiveFilling.


Сейчас я передаю только имя листа, уже в процедуре по нему идёт Select и действия. В итоге я должен получить заполненный массив данных, но при выходе из подпрограммы его значение теряется. Вот я и хотел из массива массивов выбрать массив (i) и передать в процедуру скажем по ссылке, что-то вроде такого
ExclusiveFilling (<имя листа>, <массив массивов(массив (i)>)
Как же мне создать массив массивов на VBA или посоветуйте другой способ добиться желаемого... Спасибо.

0

<массив массивов(массив (i)> в принципе то же самое, что передать массив (i)!
Не вижу смысла загонять сначала массив в массив. Ради того, чтобы обратиться по индексу?.
Может проще передавать имя диапазона?

0

Сделайте поиск по "массив массивов" в этом форуме. 4 темы однако, включая эту!
Например, тема, где есть мои 5 копеек: Cоздать несколько массивов в цикле

0

Сообщение от Alex77755 <массив массивов(массив (i)> в принципе то же самое, что передать массив (i)! Не вижу смысла загонять сначала массив в массив. Ради того, чтобы обратиться по индексу?. Может проще передавать имя диапазона?

Суть именно в этом, в цикле надо передать массив(i) в процедуру и вернуть его уже заполненным. Массивов много и для каждого писать код для вызова процедуры, сами понимаете, не очень приятно.

Добавлено через 54 секунды

Сообщение от Казанский Сделайте поиск по "массив массивов" в этом форуме. 4 темы однако, включая эту! Например, тема, где есть мои 5 копеек: Cоздать несколько массивов в цикле

Поиском пользовался, не нашёл 4 темы, только про котрую вы говорите, но это не совсем то, что мне нужно, хотя может я ошибаюсь, надо будет перечитать. Массив массивов даже не самоцель, повторюсь, мне надо передать массив в процедуру и там его заполнить и вернуть заполненный в вызывающую процедуру, но их много вот я и подумал, что в цикле будет удобнее оперировать именно массивом массивов

0

Сейчас я передаю только имя листа

Ничто не мешает передавать несколько аргументов

но при выходе из подпрограммы его значение теряется

Глобальные не теряются, аргумент Byref не теряется. В конце концов можно использовать не Sub, а Function

0

Сообщение от Alex77755 Ничто не мешает передавать несколько аргументов Глобальные не теряются, аргумент Byref не теряется. В конце концов можно использовать не Sub, а Function

Тоже подумал о глобальных переменных, это, я так понимаю, которые идут после слова Public? Эффект тот же, после выполнения подпрограммы массив остаётся пустым, хотя внутри самой подпрограммы он заполняется, но тут может я что-то не так делаю, ещё нуб в vba, над этим подумаю, но пока результат такой же... Использование Sub или Function роли не играют, но с функцией мне по коду не удобно работать. Насчёт ByRef... Представте код:

В вызове процедуры ExclusiveFilling вместо имени массива должно подставляться имя массива, ихсодя из какого-то условия, поэтому конкретное имя я прописать не могу. Вот мне и нужен был список массивов, чтобы просто в цикле подставлять в ExclusiveFilling

0

после выполнения подпрограммы массив остаётся пустым

Такое будет если переменная объявлена не в одном месте: В процедуре не должно быть объявления

Добавлено через 3 минуты
Я к тому, что вы вначале перебираете в цикле все листы. Хотите загнать в массив массивов, а потом опять в цикле вызывать процедуру. Не могу понять почему вместо загнания массива в массив массивов нельзя сразу вызвать процедуру?

0

Сообщение от Alex77755 Я к тому, что вы вначале перебираете в цикле все листы. Хотите загнать в массив массивов, а потом опять в цикле вызывать процедуру. Не могу понять почему вместо загнания массива в массив массивов нельзя сразу вызвать процедуру?

Нет, нет, я не имена листов в массив загоняю, массивы у меня идут отдельно, они описаны в начале основной процедуры. И в них (в массивы) я заношу данные с листов, под каждый лист свой массив. Вот я и хотел, чтобы на конкретный лист в подпрограмму подставился "свой" массив.


В принципе, окинув свой код критическим взглядом, пришёл к выводу, что смысла в отдельной процедуре нет, поэтому задачу решил Select Case'ом, кода больше, но работает зато... Просто стало интересно, можно был ли сделать так, как я хотел... И ещё, всё-таки, конкретно в VBA есть такое понятие, как массив массивов или это фича только в полноценном Visual Basic?

0

Всё работает и в VBA.
Набросал примитивній пример. Из-за ленности загрузку в массив сделал по именам(кстати пример организации циклов по именам. Тоже бівает полезно)

Вложения

Масив массивов.rar (7.6 Кб, 213 просмотров)

0