Попробовал, но не помогает. Может есть какие-нибудь другие способы обойти эту ошибку.

Попробовал открыть в копии, но все равно вылетает эта ошибка. Параллельно Excel 2002 поставил Excel 2003. Попробовал открыть одну книгу в 2002-ом, а другую в 2003. Все нормально, отрываются. Но в VB эти книги друг друга не видят. Мне просто напросто надо выполнить одну строчку:
Workbooks(1).Worksheets(1).Range("A1:AR100").Value= Workbooks(2).Worksheets(1).Range("A1:AR100")

Но как это сделать, я не знаю. Может кто-нибудь еще что подскажет...

Попробовал открыть в копии, но все равно вылетает эта ошибка. Параллельно Excel 2002 поставил Excel 2003. Попробовал открыть одну книгу в 2002-ом, а другую в 2003. Все нормально, отрываются. Но в VB эти книги друг друга не видят. Мне просто напросто надо выполнить одну строчку:
Workbooks(1).Worksheets(1).Range("A1:AR100").Value= Workbooks(2).Worksheets(1).Range("A1:AR100").Value

Но как это сделать, я не знаю. Может кто-нибудь еще что подскажет...

vkodorпопробуй в ячейке открытой книги написать
='C:\My Documents\[Смех.xls]Лист1'!A1
(путь и имя естественно свои напиши)
после ввода посмотри выводит данные или нет
если выводит, растяни формулу

У меня вообще нельзя твердо прописать название файла в формуле, т.к. второй файл(файл просчитанный за прошлый год) называтся каждый месяц по разному. Например в июне файл называется 062005.xls, в июле - 062005.xls и т.д.

В VB можно ли провернуть такую штучку:
- открыли одну книгу
- а в ней макрос, который вызывает OpenDialog. User выбирает файл для открытия. И при нажатии любой кнопки(Open or Close) мы не окрываем файл, а просто достаем название выбранного файла. Можно это как-нибудь сделать?

Все, решил я эту проблему, спасибо за помощь
----------------
Sub Сравнение()
'
' ссылка Макрос
' Макрос записан 02.06.2006 (Krikov)
'

'
Worksheets("appg").Visible = True
Worksheets("appg_temp").Visible = True
ChDrive Sheets("Config").Range("B2").Value
ChDir Sheets("Config").Range("B2").Value
Fil = Application.GetOpenFilename(" Файлы Excel (*.xls),*.xls", 1, "Выберете файл")
If Fil = False Then Exit Sub
Direct = CurDir() + "\"
Filname = Right(Fil, Len(Fil) - Len(Direct))

clrow = 35
clcol = 92
Sheets("appg_temp").Select
Range("A1").Select
For i = 1 To clrow
For j = 2 To clcol
ActiveSheet.Cells(i, j).Formula = "='" + Direct + "[" + Filname + "]PRIL1'!R" + Trim(i) + "C" + Trim(j)
Next j
Next i
Worksheets(2).Range("AZ35").Value = Worksheets(1).Range("AZ35").Value
Sheets("appg_temp").Select
Range("B1:CN35").Select
Selection.Copy
Sheets("appg").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("appg_temp").Select
Range("A1").Select
Worksheets("appg_temp").Range("A1:AZ35").Value = ""
Application.CutCopyMode = False
Selection.ClearContents
Worksheets("appg").Visible = False
Worksheets("appg_temp").Visible = False
Worksheets(1).Select
End Sub