Хфедя » 24 дек 2009, 14:48
Уважаемый коллега !
Ваша программа
Private Sub Form_Load()
MyPath = "c:\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
'Debug.Print WshShell.CurrentDirectory
Call Shell("cmd.exe")
End Sub
, в которой начальная папка задается предварительно, - это то, что надо !
Я Ваш должник !
[quote="EducatedFool"]Есть способы, причем много.
Вот так можно запустить приложение Office:
[code]
[color=darkblue]Sub[/color] test()
Application.ActivateMicrosoftApp xlMicrosoftWord
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[/code]
Ну и здесь ещё пара способов: (есть и другие, но лень вспоминать)
[url]http://www.programmersforum.ru/showthread.php?t=50634[/url]
По поводу использования Shell можно почитать это:
[url]http://www.programmersforum.ru/showpost.php?p=167087&postcount=6[/url][/quote]
Уважаемый коллега !
Ваша программа
Private Sub Form_Load()
MyPath = "c:\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
'Debug.Print WshShell.CurrentDirectory
Call Shell("cmd.exe")
End Sub
, в которой начальная папка задается предварительно, - это то, что надо !
Я Ваш должник !