Запуск программ и открытие документов из VBA

[Sokl]

Необходимо из VBA, зная путь и имя файла, запускать программы (*.exe) и :shock: открывать документы (например, *.psd; *.doc; *.txt, то есть как в проводнике, для зарегисрированных типов файлов автоматичеки запускать их приложение, в котором открывать документ)!

Shell(PathName) - Не помогает (для документов не работает).

Есть способ? (Сейчас работаю с VBA.Excel, и VBA.Project)

Заранее благодарен.

[treider]

Попробуй так

Код: Выделить всё

Sub start(command As String)
Set WshScript = CreateObject("WScript.Shell")
 D = WshScript.Run(command, 4, False)
End Sub

[Sokl]

СПАСИБО! Отлично!

Уже несколько раз мне попадался на глаза "WScript.Shell"... Вы можете дать ссылку на материалы по этому ".Shell" или какие-то примеры? (Treider, у меня есть Ваш еАдрес, а у Вас мой, если не затруднит...)

Спасибо.

[treider]

Очень много разного всякого по VBA и VBS есть в MSDN
http://msdn.microsoft.com/library/defau ... Script.asp
У всех этих объктов есть один существенный не достаток: список свойств и методов меняется в зависимости от версии Windows, IE и.пр поэтому тестировать надо на самой нижней версии какая только есть

[Avsha]

Кстати, работают и эти варианты:

Shell "C:\Program Files\Microsoft Office\Office\EXCEL.EXE " + _
"C:\Книга1.xls", 1

Shell "C:\WINNT\NOTEPAD.EXE Файл.txt", vbNormalFocus

Только абсолютный путь к приложениям Excel и другим не всегда одинаковый на всех машинах,
Может использовать переменные среды Windows?

[Sokl]

treider, спасибо!!!

Avsha, да, я знаю...

[Avsha]

Подскажите, можно ли
и как обратиться к переменным среды Windows?

Например: %SystemRoot%="C:\WINNT"

[treider]

Если нужно получить только имя католога

Код: Выделить всё

Set f = CreateObject("Scripting.FileSystemObject")
 MsgBox (f.GetSpecialFolder(SystemRoot))

[treider]

А, что касаемо переменных окружения

Код: Выделить всё

Sub ShowPath()
MsgBox (Environ("path"))
end sub

[Avsha]

Спасибо treider, ... полностью исчерпывающий ответ.

И еще вопрос,
Как получить в программе имя папки, из которой запускается скомпилированный файл .exe?
Напримeр запускаем C:\Sample\programm.exe
Надо получить MyPath="C:\Sample"