Скопировать данные из некоторых ячеек одной книги в другие книги

[fcunited]

Здраствуйте, в VB я не разбираюсь, программирую на PHP, но знакомый попросил решить такую простенькую для тех, кто шарит в VB, задачу:

В папке есть Х книг с разными именами (если надо, я могу переименовать их в 1.xls, 2.xls и т.д.), в этой же папке есть файл 0.xls, будем называть его мастер-книгой. Книги содержат много листов и структура всех книг абсолютно одинаковая.

Нужно, запустив макрос из мастер-книги, пробежаться по всем остальным файлам в папке и скопировать из мастер-книги в остальные некоторые ячейки с некоторых листов.

Т.е., чтобы в начале макроса я мог сам указать какие ячейки копировать. В формате массива, содержащего подобные элементы: имя_листа->ячейка или номер_листа->ячейка.

В общем, алгоритм на псевдоязыке где-то такой:

PHP код:

// входящий массив ячеек, которые надо скопировать
$cells=array(
 0=>array(0, "A4"), // сначала номер листа, потом ячейка
 1=>array(1, "B4"), 
 2=>array(1, "C8"),
 3=>array(2, "M14"),
);

$master_book=fopen("0.xls");

$child_books=array();
$i=1;
while (file_exists($i+".xls"))
{
 $child_books[]=fopen($i+".xls");
 $i++;
}

foreach ($child_books as $c)
{
 copy($master_book, $c, $cells);
 // параметры: book_from, book_where, cells_array
} 


Спасибо за помощь!

[fcunited]

Anyone????

[Hugo121]

Я думаю, тут проблема в том, как заполнить массив ячеек для копирования. Т.к. сам механизм копирования работает:

Sub tt()
ReDim Ar(0, 1)
Ar(0, 0) = "1"
Ar(0, 1) = "A1"
Sheets(Val(Ar(0, 0))).Range(Ar(0, 1)).Copy [a2]
End Sub

Массив можно делать и одномерный, брать пары ячеек.
Т.е. если есть массив, скопировать не проблема. Но вот каким механизмом заполнить массив? Не выдавать же кучу инпутбоксов?
Брать данные с листа тоже не очень хорошо. Одновременное выделение по нескольким листам не работает... Я пока не вижу, как это удобно сделать.

[SAS888]

Hugo121 абсолютно прав. Посмотрите один из возможных вариантов во вложении. Откройте файл "0.xls" и нажмите кнопку. В появившейся форме нужно выбрать файлы, в которые будем копировать (допустим множественный выбор) и указать номера листов и диапазоны для каждого листа. Например, если выбрать "Книга2.xls" и "Книга4.xls", номера листов - 1, 3 и диапазоны - A1 A5, A8 A10:B20, то будет произведено копирование данных из книги "0.xls" в выбранные книги, листы, диапазоны. Макраос не проверяет правильность заполнения формы (если нужно - добавьте самостоятельно), поэтому, будьте внимательны. Адреса ячеек (диапазонов) в пределах листа разделять пробелом. Адреса ячеек (диапазонов) для следующего листа отделять запятой.

[Hugo121]

Хорошо написанный код, сделана работа, но мне например такой механизм не нравится - надо помнить адреса не только на текущем листе, но и на других, всё это вручную занести в форму...
Может лучше так - на каждом листе кнопка макроса. Открываем лист, выделяем все нужные ячейки листа, жмём кнопку - они копируются. Открываем следующий лист - аналогично и т.д. Но вот как выбрать нужные файлы - опять непонятно. И выполняться будет дольше, чем сразу всё копировать, но вроде как удобнее. Если надо копировать во все файлы папки без индивидуального выбора - я бы сделал так.

[SAS888]

Сообщение от Hugo121

Может лучше так...

Может и лучше. Может быть вообще не требуется ничего выделять. Может все данные (листы, диапазоны) уже где-то содержатся. Автор-то молчит...

[fcunited]

Сообщение от SAS888

Может и лучше. Может быть вообще не требуется ничего выделять. Может все данные (листы, диапазоны) уже где-то содержатся. Автор-то молчит...

Не содержатся, но полей/диапазонов не так много, думаю, можно повыделять.

Более того, в будущем, через несколько дней мне придут Ексель-файлы другой структуры, в которых надо будет снова из мастер-книги скопировать в n книг какие-то ячейки.

ПС: сейчас проверю код, который Вы выложили. Спасибо за помощь!

[Hugo121]

Ну повыделять-то пока некуда, я такой код сейчас писать не буду, некогда. Да и с файлами пока непонятно, когда и где их выбирать...

[fcunited]

UPD: попробовал, работает просто блестяще!!! Огромное спасибо!