i m trying to open Microsoft Office Document Imaging Application. I
think i need change in the following code:


Code:
--------------------
Set oApp = CreateObject("MSPVIEW.Application")
--------------------


also posted at: http://www.ozgrid.com/forum/showthread.php?t=43981


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=494858

Try:

Sub Macro1()
x = Shell("cmd.exe /c C:\Userguide.tiff", 1)
End Sub

The will work and use whatever file associations you have established.
--
Gary's Student


"ilyaskazi" wrote:


i m trying to open Microsoft Office Document Imaging Application. I
think i need change in the following code:


Code:
--------------------
Set oApp = CreateObject("MSPVIEW.Application")
--------------------


also posted at: http://www.ozgrid.com/forum/showthread.php?t=43981


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=494858

i dont need to open any file. I need to open only its application.


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=494858

Try

Declare Function FindExecutable Lib "shell32.dll" _
Alias "FindExecutableA" (ByVal lpFile As String, _
ByVal lpDirectory As String, ByVal lpResult As String) As
Long

Sub AAA()
Dim FName As String
Dim ExeName As String
FName = ThisWorkbook.Path & Application.PathSeparator &
"__TEMP.tif"
Open FName For Output As #1
Close #1
ExeName = String(255, " ")
FindExecutable FName, "", ExeName
Kill FName
Shell ExeName
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"ilyaskazi"
wrote in
message
...

i m trying to open Microsoft Office Document Imaging
Application. I
think i need change in the following code:


Code:
--------------------
Set oApp = CreateObject("MSPVIEW.Application")
--------------------


also posted at:
http://www.ozgrid.com/forum/showthread.php?t=43981


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile:
http://www.excelforum.com/member.php...o&userid=23969
View this thread:
http://www.excelforum.com/showthread...hreadid=494858

Your code is equivalent to:


Code:
--------------------
Sub BBB()
Dim x As Long

x = Shell("C:\Program Files\Common Files\Microsoft Shared\MODI\11.0\MSPVIEW.EXE", 1)
End Sub
--------------------


Before executing this macro, can we detect whether application is
already running/opened??


--
ilyaskazi
------------------------------------------------------------------------
ilyaskazi's Profile: http://www.excelforum.com/member.php...o&userid=23969
View this thread: http://www.excelforum.com/showthread...hreadid=494858