Как взять значение из ячейки новой книги

[Split]

Мне нужно взять значение из ячейки новой книги

a = Workbooks("А.xls").Worksheets("DB").Cells(1, 1).Value

чем эта запись неверна, помогите...

[SergT]

А от куда взять? Где вы находитесь? В этом же документе?
Но запись, все равно, неверна... Точнее задай вопрос..

[Split]

Нет, в другом файле

[SergT]

для начала надо бы открыть
Dim wb as Workbook
Dim ws as Worksheet
Workbooks.Open FName
Set wb=ActiveWorkbook
Set ws=ActiveSheet
затем
.Worksheets("Sheet1").Range("a1:c5")

[Split]

Уже открыт, но его не надо делать активным

[SergT]

обратиться к ней как Workbooks(2)

[uhm]

Workbooks(2) не будет работать в общем случае - под этим номером может быть любая книга. Split, что конкретно у тебя не работает? Ошибка вылетает (какая?) или значение не берется, или что?

[Split]

Строчка
a = Workbooks("А.xls").Worksheets("DB").Cells(1, 1).Value
заработала, спасибо всем

Но у меня другая проблема, после закрытия Эксцеля, вылетает окно об ошибке и что типа данные могут быть утеряны и сделать бы заявку в Ms...
Постоянно....
У меня подозрения на вирус...

[uhm]

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