Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9289 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【28176】SendKeysでPDFファイルを終了させるには わさび 05/8/30(火) 13:53

【28206】Re:SendKeysでPDFファイルを終了させるには りん 05/8/30(火) 21:24

【28216】Re:SendKeysでPDFファイルを終了させるには わさび 05/8/31(水) 11:40


	【28176】SendKeysでPDFファイルを終了させるには

わさび - 05/8/30(火) 13:53 -


	引用なし

	パスワード

フォームのコマンドボタンを押すことでPDFファイルを閉じたいのですが、
SendKeysが機能してくれません。

今、別のプログラムにて、
「myDRAWING = Shell(....以下略」で、PDFファイルを開きます。
そしてコマンドボタン「EXT1」のプログラムを以下のように設定しています。
-----
Private Sub EXT1_Click()

　　AppActivate myDRAWING
　　SendKeys "^Q", True

End Sub
-----

これを実行しても、Acrobatが終了してくれません。
ステップインモードで実行してみると、
「AppActivate myDRAWING」は実行されていることは確認できました。
したがって「SendKeys "^Q", True」が実行されないままエラーも出ず、
終了してしまっているようなのです。。
「^Q」を「^W」にしてもファイルは閉じませんでした。

しかし、
-----
　　SendKeys "%FO", True
　　SendKeys "○○（パス）", True
　　SendKeys "{ENTER}", True
-----
で、ファイルが開くことはできました。
これはいったいどういうことなのでしょうか。
閉じたり終了させる場合は、SendKeysのほかに、何か必要なんでしょうか。
原因点や代替案等ありましたら、ぜひご教授ください。


	【28206】Re:SendKeysでPDFファイルを終了させるに...

りん

- 05/8/30(火) 21:24 -


	引用なし

	パスワード

わさびさん、こんばんわ。

>そしてコマンドボタン「EXT1」のプログラムを以下のように設定しています。
>-----
>Private Sub EXT1_Click()
>
>　　AppActivate myDRAWING
>　　SendKeys "^Q", True
>
>End Sub
>-----
>
>これを実行しても、Acrobatが終了してくれません。
>ステップインモードで実行してみると、
>「AppActivate myDRAWING」は実行されていることは確認できました。
>したがって「SendKeys "^Q", True」が実行されないままエラーも出ず、
>終了してしまっているようなのです。。
>「^Q」を「^W」にしてもファイルは閉じませんでした。
>
>しかし、
>-----
>　　SendKeys "%FO", True
>　　SendKeys "○○（パス）", True
>　　SendKeys "{ENTER}", True
>-----
>で、ファイルが開くことはできました。

SendKeys "%{F4}", True

でもだめですか？


	【28216】Re:SendKeysでPDFファイルを終了させるに...

わさび - 05/8/31(水) 11:40 -


	引用なし

	パスワード

できました！バッチリです！
本当に助かりました。ありがとうございますm(_ _)m


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9289 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free