Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Хитрый запуск excel с исп VBA  (Прочитано 9299 раз)
0 Пользователей и 1 Гость смотрят эту тему.
vunshpunsh
Гость
« : 30-09-2009 17:27 » 

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

Столкнулся со следующей проблемой:
При открытии файла 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
Молодой специалист

ru
Offline Offline

« Ответ #1 : 01-10-2009 04:11 » 

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

I Have Nine Lives You Have One Only
THINK!
vunshpunsh
Гость
« Ответ #2 : 01-10-2009 12:08 » 

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

Ворос: как программно открыть файл B чтобы ссылки работали?
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #3 : 02-10-2009 04:50 » 

попроюуйте для начала заменить
Код:
    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") 'открытие книги

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

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

I Have Nine Lives You Have One Only
THINK!
vunshpunsh
Гость
« Ответ #4 : 02-10-2009 12:22 » new

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

P.S.
А с объектами я конечно перемудрил... Краснею
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines