Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 553
от 19.06.2007, 10:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 277, Экспертов: 37
В номере:Вопросов: 1, Ответов: 2


Вопрос № 91345: Ситуация такая: У меня есть Екселевский файл с макросами. Мне нужно написать VB-скрипт (*.VBS) который запускает этот файл и запускает один из внутренних макросов (например Macros1). Проблему запуска этого файла я уже решил, а вот запуска мак...

Вопрос № 91.345
Ситуация такая:
У меня есть Екселевский файл с макросами.
Мне нужно написать VB-скрипт (*.VBS) который запускает этот файл и запускает один из внутренних макросов (например Macros1). Проблему запуска этого файла я уже решил, а вот запуска макроса еще нет, помогите пожалуйста. Решение проблемы путем вызова Macros1 из процедуры Workbook_Open в данном случае неприемлемо. Заранее спасибо.

Приложение:

Отправлен: 14.06.2007, 09:58
Вопрос задал: Mironicuss (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: HookEst
Здравствуйте, Mironicuss!
Вы можете использовать метод Application.Run

Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Open "c:Книга1.xls"
Excel.Run "MyMacros"
Excel.Visible = 1

Или в модуле книги создать какой-нибудь метод и вызывать его:
в Модуле:
Sub DoIt()
...
End Sub

в VBS
Set Excel = CreateObject("Excel.Application")
Excel.Workbooks.Open("c:Книга1.xls").DoIt
Excel.Visible = 1

Успехов.
Ответ отправил: HookEst (статус: Студент)
Ответ отправлен: 14.06.2007, 10:22
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо, то что нужно

Отвечает: Ualife
Здравствуйте, Mironicuss!
Смотрите код в приложении.

Приложение:

---------
Нет границ - есть лишь препятствия!

Ответ отправил: Ualife (статус: 2-ой класс)
Ответ отправлен: 14.06.2007, 15:20
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.52 от 02.05.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное