VPF::Помогите с Shell в Exel - Форум программистов

bbsol

Дата 24.3.2009, 14:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 19.1.2007

Репутация: нет
Всего: нет

Есть такой макрос :

Код


Sub click()
Dim RetVal As Integer
Dim Param As String
Dim i As Integer
Application.ScreenUpdating = False

For i = 1 To Worksheets("База").Range("I4").Value 'здесь хранится кол-во записей
Sheets("out").Select
Param = Range("A" & i).Value 
RetVal = Shell(Param, 1) 'Запускаем внешнюю прогу и передаём ей параметры
MsgBox "Значение " & RetVal 
Next
End Sub

Не получается сделать 2 вещи:
1. Получить и вывести сообщением возвращаемый код программы.
2. Программы должны запускаться по-очереди, т.е. после завершения первой запуск второй, и.т.д.

Буду признателен.

bbsol

Дата 24.3.2009, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 19.1.2007

Репутация: нет
Всего: нет

UPD. Как запускать приложения по-очереди я нашёл ("Запуск другой программы и приостановка приложения до ее завершения")

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

bbsol

Дата 24.3.2009, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 19.1.2007

Репутация: нет
Всего: нет

Проблему решил сам при помощи "Запуск другой программы и приостановка приложения до ее завершения" . всем спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »