دستور shell

[samirgerkantom]

سلام با دستور shell برنامه ي كامل باز شدن word در وي بي6

[mpmsoft]

dim path as string
dim file as string
dim dtask as double
path = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE"
file = "C:\MANGALYA\BILL.doc"
dtask = Shell(path + " " + file, vbMaximizedFocus)

[lordarma]

dim path as string
dim file as string
dim dtask as double
path = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE"
file = "C:\MANGALYA\BILL.doc"
dtask = Shell(path + " " + file, vbMaximizedFocus)



این دستور برای من در هنگام اجرا ارور 53 را را در خط آخر می دهد (File Not Found) مشکل از کجاست؟

[M.T.P]

چه جالب یعنی علاوه بر اجرای Word ، فایلی هم که قراره تو word لود شه هم باز میکنیم:تشویق:

[IamOverlord]

سلام دوست عزیز!
مشکل این جاست که برنامه ی Word تو اون Path گفته شده نصب نشده... باید مسیری که برنامه ی Word کامپیوتر کاربر اون جاست رو از Registry پیدا کنید:
مسیر رجیستری :

My Computer\HKEY_CURRENT_USER\Software\Microsoft\Offi ce\14.0\Options PROGRAMDIR
و بعد باید مسیر به دست آمده رو تو Path بذارین.

البته یه راه ساده تر هم هست(بدون Shell) :

Dim word As Object
On Error Resume Next
Set word = GetObject(, "Word.Application")
If word Is Nothing Then
Set word = CreateObject("Word.Application")
If word Is Nothing Then
MsgBox "Microsoft Word is not installed."
Exit Sub
End If
End If
word.Visible = True
word.Documents.Add
word.Activate
:چشمک:

[lordarma]

نه Path درست هست...:متفکر:

[IamOverlord]

.... پس اگه Path درست باشه و دوباره Error 53 می ده، مشکل از File است. فکر کنم شما اون File رو تو اون مسیر نداشتید.
:چشمک: