полный путь

[tae1980]

tab_name="Лист1"
Set шаблон = Workbooks("книга1.xls").Worksheets(tab_name)
rc=шаблон.Cells(1, 1).Address(True, True)

Этот код присвоит переменной rc значение "$A$1". Что нужно сделать что бы в rc записался полный путь вида:
'[книга1.xls]Лист1'!$A$1
Ни как не могу разобраться....

[pivas]

rc = "[Книга1]" & "Лист1!" & Cells(1, 1).Address

[tae1980]

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

rc = "[Книга1]" & "Лист1!" & Cells(1, 1).Address

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

[pivas]

Алексей, твой код в данном случае не нужен.

[tae1980]

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

Алексей, твой код в данном случае не нужен.

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

[pivas]

Тогда измени в своём коде последнюю строку:
rc = шаблон & Cells(1, 1).Address

[EducatedFool]

Функция Address принимает несколько параметров.
Неужели так сложно в коде поставить курсор на слово Address, и нажать F1...

RowAbsolute Optional Variant. True to return the row part of the reference as an absolute reference. The default value is True.

ColumnAbsolute Optional Variant. True to return the column part of the reference as an absolute reference. The default value is True.

ReferenceStyle Optional XlReferenceStyle.

XlReferenceStyle can be one of these XlReferenceStyle constants.
xlA1 default. Use xlA1 to return an A1-style reference.
xlR1C1. Use xlR1C1 to return an R1C1-style reference.

External Optional Variant. True to return an external reference. False to return a local reference. The default value is False.

RelativeTo Optional Variant. If RowAbsolute and ColumnAbsolute are False, and ReferenceStyle is xlR1C1, you must include a starting point for the relative reference. This argument is a Range object that defines the starting point.

Вам нужно установить параметр External в TRUE.
Код будет выглядеть так:

Sub test2()
    tab_name = "Лист1"
    Set шаблон = Workbooks("книга1.xls").Worksheets(tab_name)
    rc = шаблон.Cells(1, 1).Address(, , , True)
End Sub

[tae1980]

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

Функция Address принимает несколько параметров.
Неужели так сложно в коде поставить курсор на слово Address, и нажать F1...
Вам нужно установить параметр External в TRUE.
Код будет выглядеть так:

Sub test2()
    tab_name = "Лист1"
    Set шаблон = Workbooks("книга1.xls").Worksheets(tab_name)
    rc = шаблон.Cells(1, 1).Address(, , , True)
End Sub

Спасибо! Честно читал... Но мои знания английского, мягко скажем, не на высоте... Не смог разобраться в данном случае.