Хитрый запуск excel с исп VBA

[vunshpunsh]

Добрый вечер!

Столкнулся со следующей проблемой:
При открытии файла excel должен автоматически запускаться еще один excel файл.
Делаю это так:

Код:

Sub openStatistics()
    Dim CurPath As String
    CurPath = Workbooks("Расчет стоимости РК.xls").Path
    Dim myExcel As Excel.Application, myWb As Workbook 'декларация переменных
    Set myExcel = New Excel.Application 'инициализация
    myExcel.Visible = True 'активация
    Set myWb = myExcel.Workbooks.Open(CurPath + "\статистика.xls") 'открытие книги
End Sub

Проблема в том, что из файла "Расчет стоимости РК.xls" нет возможности ссылаться на файл "статистика.xls", т.е. ставлю "=",
перехожу в другой файл, а ссылку на ячейку сделать не получается.

Подозреваю, что проблема в неправильном открытии файла.
Но как открыть его правильно не знаю.

Спасибо за помощь!

[HandKot]

чего-то не понял ничего
скажите что надо

[vunshpunsh]

Информация в ячейках файла A.xls - ссылки на ячейки файла B.xls
При открытии файла A вызывается процедура, открывающая файл B, после этого ссылки не работают.
Если открывать руками оба файла (дважды кликать мышкой на A, потом на B) всё работает.

Ворос: как программно открыть файл B чтобы ссылки работали?

[HandKot]

попроюуйте для начала заменить

Код:

    Dim CurPath As String
    CurPath = Workbooks("Расчет стоимости РК.xls").Path
    Dim myExcel As Excel.Application, myWb As Workbook 'декларация переменных
    Set myExcel = New Excel.Application 'инициализация
    myExcel.Visible = True 'активация
    Set myWb = myExcel.Workbooks.Open(CurPath + "\статистика.xls") 'открытие книги

на

Код:

    Dim CurPath As String
    CurPath = Workbooks("Расчет стоимости РК.xls").Path
    Set myWb = Application.Workbooks.Open(CurPath + "\статистика.xls") 'открытие книги

зачем создавать ещё один объект экселя, если Вы уже в нем работаете ?

и все-таки приложите Ваши файлы с тестовыми данными

[vunshpunsh]

Спасибо, HandKot!
Всё заработало.

P.S.
А с объектами я конечно перемудрил...