Need some help with VBA

[Bish]

Здравствуйте!

Возникла небольшая проблема в написании макроса на ВБА, который будет копировать значения определённых ячеек из одного документа(ааа.xml) в другой документ (bbb.xml), которые могут находится в разных папках.
Т.е. например нужно из bbb скопировать ячейку А11 в документ ааа в ячейку В15 и из bbb ячейку С10/100 (bbb) в ячейку D16 (ааа).
Заранее благодарю.

Сам с vba общался, но было это очень давно ((...если не сложно кому-нить выложить макросик написания такого копирования, буду очень признателен. Перерыл пол форума...есть похожие задачи, но немного не то.

[Bish]

что-то такое без деления и определения пути и имени документа...подскажите...
Sub Копирование ()
?????
Sheets("Лист2").Select
Cells(A11).Copy
?????
Sheets("Лист3").Select
Cells(c15).Paste
End Sub

[SAS888]

Проще так:

Sheets("Лист2").[A11].Copy Sheets("Лист3").[C15]

[Bish]

Я так понимаю это если копировать в пределах 1 документа, но нужно из одной книги в другую (
будет ли работать если вместо вопросов подставить

iFullName$ = "C:\ФФФ.xls"

и нужно ли, чтобы оба файла были открытыми??

не работает (

[Bish]

Sub Êîïèðîâàíèå()
Workbook("C:\Documents and Settings\Àäìèíèñòðàòîð\Ðàáî÷èé ñòîë\êîì îò÷\2.xml").Worksheets("Ëèñò1").Cells(A11).Copy
Workbook("C:\Documents and Settings\Àäìèíèñòðàòîð\Ðàáî÷èé ñòîë\êîì îò÷\1.xml").Worksheets("Ëèñò3").Cells(C15).Paste
End Sub

у меня пошёл креатив..., но как-то не очень помогает (...

[SAS888]

Пусть, например, нужно скопировать ячейку "A1" листа "Лист1" книги "Книга1.xls" в ячейку "A1" листа "Лист1" книги "Книга2.xls". Тогда так:

Workbooks("Книгa1.xls").Sheets("Лист1").[A1].Copy Workbooks("Книгa2.xls").Sheets("Лист1").[A1]

Чтобы было короче, лучше использовать либо объект (Книга.Лист), либо применять метод With. Все зависит от конкретной задачи.
При этом, обе книги должны быть открыты. Если известны путь, имя книги, имя листа и адрес ячейки, которую нужно скопировать, то книга-источник может быть закрыта. Но тогда код будет другой. К тому же, можно получить лишь значение ячейки. В то время как при копировании, мы получим как значение, так и формат, цвет, шрифт и т.д. ячейки.

[Bish]

Это как раз и нужно, Спасибо, но выдаёт ошибку Subscript out of range (

[SAS888]

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

[Bish]

Вот пример для копирования http://ifolder.ru/12991897

[SAS888]

В Вашем коде в макросе "Копирование" исправьте расширения файлов на правильные. Иначе, как я и говорил, такого файла Excel не находит.