エクセルVBAでＰＤＦやＪＰＧファイルを開閉する

質問

エクセルでＰＤＦやＪＰＧファイルを開くことは下記のコマンドで
できたのですが開いたファイルを閉じる方法がわかりません。
開くのはとても簡単でしたが。
CreateObject("Shell.Application").ShellExecute XPATH & JPGNAME

回答No.4

kkkkkm · ベストアンサー

> ＪＰＧのファイルを閉じるのは開くのに使用している
> ＥＸＥから調べないといけないのですね

そうですね。タスクマネージャーで調べられますよ。
該当アプリ右クリックでプロパティです。

お礼

ありがとうございました。

回答No.3

kkkkkm

一行だと(PDFをacrord32.exeで開いている場合)
CreateObject("Shell.Application").ShellExecute Environ("COMSPEC"), "/c taskkill /im acrord32.exe"
このようなやり方がありますが、セキュリティソフトによっては実行を遮断されます。

お礼

ありがとうございました。

補足

すみません、ＶＢＡが少しわかる程度の知識なのでＡＰＩはほとんどわからないので
ご指示のとおり入力するだけですがＪＰＧのファイルを閉じるのは開くのに使用している
ＥＸＥから調べないといけないのですね。

回答No.2

kkkkkm

No1の他には
以下のような方法もあるみたいです。
APIを使わないで実行中のタスク一覧を調べる
http://officetanaka.net/excel/vba/tips/tips61.htm

お礼

ありがとうございました。

補足

回答ありがとうございます、ＥＸＣＥＬからＰＤＦやＪＰＧが1行で開けたので喜んでいたら
なんか閉じるのこんなに難しいのと思ってしまって驚きです。すみません。

回答No.1

kkkkkm

標準モジュールで以下のようにやってみてください。
" - Adobe Acrobat Reader DC"はPDFを開いたときにタイトルバーに表示されるものを記載してください。ファイルのプロパティでコピーできます。
JPGの場合も開いた時のタイトルバーに表示されたものを記載してください。

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060&

Sub Test()
Dim hwnd As Long
Dim FileName As String
'PDFの場合です。
FileName = "abcdefg.pdf"
hwnd = FindWindow(vbNullString, FileName & " - Adobe Acrobat Reader DC")
If hwnd <> 0 Then
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, 0)
hwnd = 0
End If
End Sub

お礼

ありがとうございます。
よくわからないのですが試してみます。