Excel97 и Excel2000

[alex_ustas]

Вот строчка, которая работает в 97-ом и не признает 2000-го:

Workbooks("XXX").Worksheets("X1").Copy
Workbooks("Z").Worksheets(1)

Ошибка такакя:
"run time err 9
subscript out of range"

Кто-то по этому поводу что-то скажет? Ошибка странная выходит написанное мною никому не нужно, потому-что только я один работаю в 97-ом ))))) Спасибо за ответ.

[Хитрый]

Такая ошибка возникает (по крайней мере у меня так бывало) с именами файлов. Например экселовский файл называется ХХХ.xls а в коде он у тебя прописан как zzz.xls
Разъясни подробней если возможно, постораюсь помочь.

[alex_ustas]

Есть файл calc.xls. Программа загружает в него листы из файлов K.xls и N.xls. Загрузка проходит успешно, если это только Excel97. Не думаю, что это связано с именами файлов

[corgi]

напиши подробней код а то не ясночто ты там делаешь
да и укажи строчку где возникает ошибка

[alex_ustas]

'Вот эта процедура.
Public Sub Zagryzka()
ChDir "\\server\Users\Каталог\"

Workbooks.Open FileName:= _
"\\server\Users\Каталог\K.xls"
Workbooks.Open FileName:= _
"\\server\Users\Каталог\N.xls"

Workbooks("K").DisplayWorkbookTabs = True
Workbooks("N").DisplayWorkbookTabs = True

Application.DisplayAlerts = False

Workbooks("K").Worksheets("Sheet1").Copy Workbooks ("calc").Worksheets(1)
Workbooks("N").Worksheets("Sheet1").Copy Workbooks("calc").Worksheets(2)

Application.DisplayAlerts = True

Workbooks("calc").Worksheets("Sheet1").Name = "Лист2"
Workbooks("calc").Worksheets("Sheet1 (2)").Name = "Лист3"

Workbooks("K.xls").Сlose (False)
Workbooks("N.xls").Сlose (False)

End Sub
Да, может кто еще подскажет другой способ того что она делает Я то в ВБА пока еще 0 ))

[alex_ustas]

Ошибку выдает в строчке.
Workbooks("K").Worksheets("Sheet1").Copy Workbooks ("calc").Worksheets(1).

[GSerg]

Я работаю в 97!
Ошибка-то какая?

[corgi]

попробуй для начала копировать только из одной книги и везде поставь типа K.xls
ps а не легче в книгах K и N обозвать листы по нормальному чтобы потом не мучаться с их переименовкой
pps в 2003 работает

[alex_ustas]

ps а не легче в книгах K и N обозвать листы по нормальному чтобы потом не мучаться с их переименовкой

Нет. Это прайсы поставщиков. Зачем мне еще и в них лазить? Я работаю с тем, что мне дают. Я вот думаю, почему Лист2 и Лист3, а не К и N )
Ладно, ребята, спасибо, буду разбираться

[corgi]

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

[alex_ustas]

Кому интересно, причина была в следующем. Книги нужно прописывать с расшерением. Т.е. не Workbooks("K"), а Workbooks("K.xls") и т.д. В этом случае работает. Не знаю, может если поставить все сервис паки на офис 2000 проблем бы не возникало.

[alibek]

Помоему это зависит от настроек машины (опция "Скрывать расширения для зарегистрированных типов")

[alex_ustas]

Кому интересно, причина была в следующем. Книги нужно прописывать с расшерением. Т.е. не Workbooks("K"), а Workbooks("K.xls") и т.д. В этом случае работает. Не знаю, может если поставить все сервис паки на офис 2000 проблем бы не возникало.

[alex_ustas]

Да, alibek прав Спасибо.