closing as shell application

[SQUIDD]

Hi All

so i use the below to open .pdf files.

ActiveWorkbook.FollowHyperlink Address:=AdobeFile, NewWindow:=True

Just wondering if i can do it with a shell command.

and close it.


Thanks in advance.

dave

 

[Domenic]

The following code will open and then close a file using the Shell function. When the file is opened, the Shell function returns a task or process ID that can be used to later close the file. Then, when closing the file, the Shell function invokes the taskkill command to close it.

Note, since I currently do not have Adobe, I used a Notepad file as an example. But it should work with an Adobe file as well.

Option Explicit

Sub OpenClose()

    'Open file
    Dim vPID As Variant
    vPID = Shell("C:\Windows\System32\notepad.exe ""C:\users\domenic\desktop\sample.txt""", vbNormalFocus)
    
    'Do stuff here
    
    'Close file
    Call Shell("taskkill /f /pid " & vPID, vbHide)

End Sub

Here's the reference for the Shell function . . .

Shell function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

And here's the reference for the taskkill command . . .

taskkill

Reference article for the taskkill command, which ends one or more tasks or processes.

docs.microsoft.com

Hope this helps!

 

[SQUIDD]

Hi Domenic

Thats great, thanks for that. much appriciated. Very handy.

Dave

 

[Domenic]

Hi Dave,

That's great, glad I could help.

Cheers!