Как получить данные из одной открытой книги в другую?

[gramp]

книга открыта, но почему-то код не работает

[gramp]

С ходу разобраться не смог.
Пробовал сделать так

Sub tessstt()
    Dim rt As String: rt = Workbooks("110.xlsm").Sheets("11").Range("a1").Value
    Worksheets("22").Range("a1").Value = rt
End Sub

Вместо 110.xlsm пробовал прописывать весь путь к файлу, все равно не прет.
Или подобное простое решение не будет работать вообще и надо чтото делать с объектами?

[EducatedFool]

метод обращения типа Workbooks("110.xlsm") подходит, если книга уже открыта.
Если файл закрыт - то его надо сначала открыть, а потом обращаться к нему:

Sub tessstt()
    Workbooks.Open "c:\ПолныйПуть...\110.xlsm"
    Dim rt As String: rt = Workbooks("110.xlsm").Sheets("11").Range("a1").Value
    Worksheets("22").Range("a1").Value = rt
End Sub

PS: Есть способы считывания значения ячейки БЕЗ открытия книги
(примеров на форуме множество)

[gramp]

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

метод обращения типа Workbooks("110.xlsm") подходит, если книга уже открыта.
Если файл закрыт - то его надо сначала открыть, а потом обращаться к нему:

Sub tessstt()
    Workbooks.Open "c:\ПолныйПуть...\110.xlsm"
    Dim rt As String: rt = Workbooks("110.xlsm").Sheets("11").Range("a1").Value
    Worksheets("22").Range("a1").Value = rt
End Sub

PS: Есть способы считывания значения ячейки БЕЗ открытия книги
(примеров на форуме множество)

если не сложно, подскажите, почему может не работать код с открытой книгой?
пишет - субскриб оф ранже

[kuklp]

А у Вас листы точно называются "11" и "22"? Или Вы так пытаетесь по порядковому номеру обратиться?

[IgorGO]

потому что макросы выполняют не то, о чем Вы думаете, а то, что вы написали...

предположу, что в книге 110.xlsm нет листа 22.
продолжу выдвигать гипотезы: думаю, Вы хотели хотели значение rt положить в А1 на лист 22 текущей книги, той из которой этот макрос стартует. угадал?

если угадал, тогда:
thisworkbook.Worksheets("22").Range ("a1").Value = rt

[kuklp]

Игорь, привет. Ты чего, на Эсперанто, или Санскрит перешел?:-) Ни фига же не понятно.

[Казанский]

Можно без промежуточной переменной (если не надо менять тип данных):

Sub tst()
ThisWorkbook.Sheets("22").Range("A1") = Workbooks.Open("c:\ПолныйПуть...\110.xlsm").Sheets("11").Range("A1")
End Sub

[IgorGO]

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

так-то оно по-понятнее будет?
Серега, извини я консерваториев на заканчивал, поэтому изьясняюсь, как могу.

[gramp]

На самом деле все листы с правильными названиями присутствуют в книгах.
Если точнее, то суть вопроса в следующем - очень неудобно, когда в одном окне открываются все книги (особенно когда их несколько). Кроме того, при работающем в екселе скрипте открытие еще одной книги приводит к тому, что скрипт ищет воркшит именно в активной сейчас книге.
Чтобы такого не было, во вкладке "дополнительно" параметров екселя из офиса 2010 я поставил галочку "игнорировать запросы DDE от других приложений". В этом случае все книги открываются, как отдельные окна и скрипт работает без ошибок. Но - именно эта опция приводит к тому, что данные между книгами не передаются.
Если эту галочку отключить, то все хорошо - из открытой другой книги данные вполне доступны для скрипта другой книги.
Вопрос - можно ли при включенной галочке "игнорировать запросы DDE от других приложений" каким-то образом получать данные из одной книги в другую или, может быть, есть возможность сделать так, чтобы можно было открывать книги в отдельных окнах без включения этой галочки?