работа с двумя книгами

[Реланиум]

доброго времени суток
не могу разобраться... надо всего лишь содержимое ячейки взять из одной книги и вставить в другую.. подскажите пожалуйста как подключать книги в Vba

[Реланиум]

Ну короче разобралси я привожу код если кому интересно:

Private Sub CommandButton1_Click()
    Dim xla As Excel.Application
    Dim xlw As Excel.Workbook       ' îáúåêò ðàáî÷åé êíèãè
    Dim rab As Excel.Worksheet       ' определяем две переменные для листов
    Dim ras As Excel.Worksheet
 
Dim MyCollection As New Collection   ' с етой коллекцией так и не разобрался..
 
    With MyCollection
 
        .Add ("RAB_TABL")
        .Add ("Ras_Invent")
 
 
    End With
 
    Set rab = Workbooks("RAB_TABL").Worksheets("rab")          'сдесь к  этим переменным привязываем наши книги и сразу листы
    Set ras = Workbooks("Ras_Invent").Worksheets("Ëèñò1")
 
b = rab.Cells(1, 1)               'теперь туда сюда и как ни странно работает
'ras.Activate
ras.Cells(1, 1) = b
MsgBox (ras.Cells(1, 1))
End Sub

Мож кто что присоветует как что-нить оптимизировать буду рад

[pashulka]

Я думаю, что такие вещи лучше не оптимизировать, а сразу выбросить в мусорную корзину, ибо если рабочие книги с указанными именами открыты, рабочие листы с этими именами существуют, а ячейка "A1" в рабочем листе с именем "ras" не защищена от изменений, то весь макрос сводится к одной(двум) строкам :

Workbooks("Ras_Invent.xls").Worksheets("ras").Range("A1").Value = Workbooks("Rab_Tabl.xls").Worksheets("rab").Range("A1").Value

Впрочем, подобные задачи можно решить и без использование VBA, для этого достаточно создать ссылку (при этом рабочая книга-источник не должна иметь пароль на открытие, иначе потребуется его ввод), а затем заменить ссылку на значение, которое эта формула возвращает. Точно также можно работать и с целым диапазоном ячеек, а при необходимости этот же приём можно использовать и для программного извлечения данных из закрытых книг.