Всем доброго времени суток.
Вопрос думаю простой, но я не знаю как, перепробовал все что мог.
Подскажите плз, как при открытии файла например 1.xls заполнить некоторые его ячейки значением ячеек файла 2.xls. Адрес ячеек откуда и куда копировать известен.

спасибо за ответ, но я так уже делал, при открытии файла 1 постоянно просит указать путь к файлу из которого должны копироваться значения.
Я хотел написать что нить на VBA, что то типа
на событие Activate например
Worksheet("Лист1").Range("E4").Value = "Путь к файлу".Range("L10")
Что то в этом роде...

sebastian_opereiroВ книгу 1.xls кинуть сл. листинг

автор
Private Sub Workbook_Open()
Workbooks("1.xls").ActiveSheet.Cells(i,j).Value=Workbooks("2.xls").ActiveSheet.Cells(m, n).Value
End Sub


i,j - адрес ячейки куда вставлять надо
m,n - адрес ячейки откуда вставлять надо

Ячейки можно перебирать циклом или перечислить их все вручную.

если что - могу подробнее описать
А вот это то что надо,
вопрос - в имя книги может входить путь к ней?

sebastian_opereiroВ книгу 1.xls кинуть сл. листинг

автор
Private Sub Workbook_Open()
Workbooks("1.xls").ActiveSheet.Cells(i,j).Value=Workbooks("2.xls").ActiveSheet.Cells(m, n).Value
End Sub


i,j - адрес ячейки куда вставлять надо
m,n - адрес ячейки откуда вставлять надо

Ячейки можно перебирать циклом или перечислить их все вручную.

если что - могу подробнее описать
Эта конструкция не работает, в качестве имени книги использовал полный путь к ней.
Выдает ошибку Subscript out of range

sebastian_opereiro Александр Б. sebastian_opereiroВ книгу 1.xls кинуть сл. листинг

автор
Private Sub Workbook_Open()
Workbooks("1.xls").ActiveSheet.Cells(i,j).Value=Workbooks("2.xls").ActiveSheet.Cells(m, n).Value
End Sub


i,j - адрес ячейки куда вставлять надо
m,n - адрес ячейки откуда вставлять надо

Ячейки можно перебирать циклом или перечислить их все вручную.

если что - могу подробнее описать
А вот это то что надо,
вопрос - в имя книги может входить путь к ней?

Нет не может :-((((( Workbooks - это объект, а у объекта может быть только одно значение. В данном случае имя. Этот листинг только для открытых обеих!!! книг. Нужно ведь было при открытии книги 1.xls. Можно дабавить строчку, которая автоматом будет открывать книгу 2.xls а потом ее закрывать. Можно брать значения и из закрытой книги. Я задавал по этому поводу вопрос здесь
Да, я уже понял, прошу прощения за задержку ответов - инет тормозит.
А за ссылку СПАСИБО дальше я уже разберусь там именно то что мне нужно было - получение значений из закрытого файла .
СПАСИБО еще раз.

miksoftесли в 1.xls в ячейке написать , то нормально работает. Единственный момент - при открытии файла 1.xls спрашивает "обновить внешние связи", но это можно отключить.
У меня каждый раз при открытии 1.xls просит указать путь к файлу 2.xls - именно указать путь, т.е. открывается диалог выбора файла.
И еще, конструкция вида

dim xlApp as Excel.Aplication
dim xlWb as Excel.Workbook
Set xlWb = xlApp.Workbooks.Open("D:\2.xls",,True)

Не работает, выдает ошибку, что типа объектная переменная не установленна.
Может у меня Екзель глючит, или я чего то упустил?

С Set все прошло, действительно пропустил New - Спасибо.
Теперь ошибка в другой строке
Workbooks("1.xls").WorkSheets(1).Cells(A,1)=xlWb.Worksheets(1).Cells(L,10)
Или так нельзя делать?
У тебя было через Range это критично?