копирование ячеек из книг в одну(общую)

[DEsh]

добрый вечер! сосем все уже позабыл, помогите написать некую процедуру:к примеру есть 2 excel-файла Q и W с одинаковыми таблицами, но разными данными в ячейках, и есть еще 1 excel-файл(пустой) Е, необходимо,при нажатии на кнопку, заполнить этот пустой файл определенными ячейками из тех 2ух(заполненных) файлов.

Пример(нажал на созданную кнопку в пустом файле Е, и процедура скопировала из файла Q ячейку A1 и C7 в те же ячейки файла E. Затем из файла W скопировала ячейку A8 и C9 в те же ячейки файла E)

заранее спасибо....

[DEsh]

с вышеизложенным разобрался за 20 мин, осталось одно но! в открываемой книге(из которой я хочу скопировать ячейку) много листов, каким образом мне скопировать необходимую ячейку с необходимого листа - к примеру Лист2 ячейка C6..........

[SAS888]

Если известны путь к файлам-источникам и имена листов, то Вашу задачу можно решить и вовсе не открывая этих файлов. Так, например, если файлы "Q.xls", "W.xls" и "E.xls" находятся в одной папке и имена листов в файлах "Q" и "W", из которых нужно получить данные - "Лист2", то можно так:

Private Sub CommandButton1_Click()
    Dim i As Integer, a(): Application.ScreenUpdating = False
    a = Array("$A$1", "Q", "$C$7", "Q", "$A$8", "W", "$C$9", "W")
    For i = LBound(a) To UBound(a) Step 2
        Range(a(i)).Formula = "='" & ThisWorkbook.Path & "\[" & a(i + 1) & ".xls]Лист2'!" & a(i)
        Range(a(i)).Value = Range(a(i)).Value
    Next
End Sub

Пример использования во вложении. Откройте файл "E.xls" и нажмите кнопку "Выполнить".

[DEsh]

Я уже сам все вспомнил))) но все равно спасибо)))