Надстройка...

[nikolai_P]

Всем Привет!
Написал макрос в книге Excel, затем сохранил как надстройку и макрос перестал работать. Суть следующая: есть листы надстройки на которые мне нужно вносить данные и брать их для анализа. Проблемы начинаются в следующих строках:

Usheet.Select

или

ra = Usheet.Range(Cells(1, 1), Cells(R, 1)).Value

Кто может подсказать как работать с листами надстройки и данными содержащимися на них?

Вот моя надстройка:
Справочники Excel 2007.rar

[SAS888]

Нет никакой разницы, работать с листом рабочей книги или с листом надстройки.
При объявлении переменных в макросе надстройки, используйте полные ссылки. Например:

Dim Usheet As Worksheet
    Set Usheet = Workbooks("MyAddIns.xla").Sheets("Лист1")

В Вашем втором примере ошибки не будет только в том случае, если лист Usheet является активным (а если это лист файла надстройки, то вряд ли он когда-либо активен). Ссылку на лист нужно обязательно повторять при каждом обращении к ячейке. Например:

With Usheet
    ra = .Range(.Cells(1, 1), .Cells(R, 1)).Value
End With

[nikolai_P]

Не совсем уловил разницу между своим и Вашим вариантами. Так можно писать

ra = Usheet.Range(.Cells(1, 1), .Cells(R, 1)).Value

или только так

With Usheet
    ra = .Range(.Cells(1, 1), .Cells(R, 1)).Value
End With

[nikolai_P]

Почему-то в надстройке не сработал Ваш вариант.

Dim Usheet As Worksheet
    Set Usheet = Workbooks("MyAddIns.xla").Sheets("Лист1")

но сработал такой

NameSheet = "Тип"
Set Usheet = ThisWorkbook.Sheets(NameSheet)

Еще возник один вопрос:
Можно ли файл надстройки превратить (сохранить) в обычный?

[SAS888]

ra = Usheet.Range(.Cells(1, 1), .Cells(R, 1)).Value

Это что такое? Точка перед обращением к ячейке означает то, что якобы перед ней вводится то, что прописано в With.

Можно ли файл надстройки превратить (сохранить) в обычный?

Переименуйте из "*.xla" в "*.xls" и всего делов.

[nikolai_P]

Формат моей надстройки *.xlam (Excel 2007).
Пробовал *.xls, *.xlsx, *.xlsm не получилось!!!

[SAS888]

Ничем не могу помочь. У меня нет Excel 2007.