Проблема с присваеванием значений переменной

[Brudda]

Привет.
У коллеги работает неправильно одно приложение (Excel). Решил посмотреть в чем проблема.

Код: Выделить всё

Dim strVersion As String
....
strVersion = "Error" ' тут присваивание происходит нормально
.....
strVersion = UCase(Workbooks(StrWkbkname).Sheets("Flatdata").Range("UTATVersion").Value) 'а вот тут значение переменной по-прежнему остается "Error"


Может кто знает, почему так происходит? И как с этим бороться?
Заранее спасибо.
С почтением,
Brudda

[Денис]

У Вас была именованная область "UTATVersion", но к сожалению, кончилась.

[Brudda]

Э... не понял, честно говоря, как это кончилась? Куда ж она делась? Это ведь просто ячейка, в которой есть какое-то число. Поясни пожалуйста.

[Денис]

Э... не понял, честно говоря, как это кончилась? Куда ж она делась? Это ведь просто ячейка, в которой есть какое-то число. Поясни пожалуйста.

Я имел ввиду, эта ячейка точно осталась поименованной? или код перетянули в новую книгу, в которой эта ячейка не поименована?
И второй совет, использовать Value2 Вместо Value.

[Brudda]

Денис, cпасибо за участие - но не помогло. Поименованная ячейка - осталась поименованной.
Проблема, как выяснилось, с Workbooks(StrWkbkname). Когда я заменил это на ActiveWorkbook - все заработало как и надо. Но все же хотелось бы разобораться что это за косяк такой.
Буду благодарен за идеи.
С почтением,
Brudda

[Денис]

Буду благодарен за идеи.

А Workbooks(StrWkbkname) возвращает нормальную, корректную книгу?
Поубирайте в проекте On Error Resume Next'ы и скажите код ошибки?

[Brudda]

Workbooks(StrWkbkname) возвращает нормальную, корректную книгу.
Самое странное, что строка

Код: Выделить всё

strVersion = UCase(Workbooks("ТУТ_НАЗВАНИЕ_КНИГИ.ХЛС").Sheets("Flatdata").Сells(1,1).Value)


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

[GDK]

Код: Выделить всё

strVersion = UCase(Workbooks("ТУТ_НАЗВАНИЕ_КНИГИ.ХЛС").Sheets("Flatdata").Сells(1,1).Value)

Может перед ней была строка On error resume next? Поэтому и ошибок не выдавалось.

Можно попробовать в debug.print выводить по частям сначала название книги,потом листа и пока не выяснится в чём дело.