Excel VBA質問箱 IV

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

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


7179 / 13644 ツリー ←次へ | 前へ→

【40674】キャンセルするとその先のマクロを実行しないq たっちゃん 06/7/20(木) 12:07 質問[未読]
【40675】Re:キャンセルするとその先のマクロを実行... m2m10 06/7/20(木) 12:21 発言[未読]
【40678】Re:キャンセルするとその先のマクロを実行... Jaka 06/7/20(木) 12:36 回答[未読]
【40684】Re:キャンセルするとその先のマクロを実行... たっちゃん 06/7/20(木) 13:45 お礼[未読]

【40674】キャンセルするとその先のマクロを実行し...
質問  たっちゃん  - 06/7/20(木) 12:07 -

引用なし
パスワード
   「filedialogでファイルを開き、
そのファイルのSheet1をコピーし、元のファイルのSheet3に貼り付ける」
というマクロを組んでいます。

filedialogでキャンセルをしても、元のファイルのSheet1をコピーし、
元のファイルのSheet3に貼り付け、尚且つSheet1にも貼り付けてしまいます。

そこで、Filedialogのファイルを開く画面でキャンセルがされた場合には
その先のマクロを実行しない処理を行いたいのですが、
どうしたらよいのでしょうか?
どなたか教えてくださいませんでしょうか?

【40675】Re:キャンセルするとその先のマクロを実...
発言  m2m10  - 06/7/20(木) 12:21 -

引用なし
パスワード
   こんちは

キャンセルの処理前後のマクロを入れて下さい。

【40678】Re:キャンセルするとその先のマクロを実...
回答  Jaka  - 06/7/20(木) 12:36 -

引用なし
パスワード
   どんなダイアログか解りませんが

pp = Application.Dialogs(xlDialogOpen).Show
If pp = False Then
  MsgBox "キャンセル"
End If

もしくは、
GetOpenFilename
で、検索してみるとか....。

【40684】Re:キャンセルするとその先のマクロを実...
お礼  たっちゃん  - 06/7/20(木) 13:45 -

引用なし
パスワード
   ▼Jaka さん:
>どんなダイアログか解りませんが
>
>pp = Application.Dialogs(xlDialogOpen).Show
>If pp = False Then
>  MsgBox "キャンセル"
>End If
>
>もしくは、
>GetOpenFilename
>で、検索してみるとか....。

Jakaさん、M2Mさん
ありがとうございました。
キャンセルの場合の式が入っていなかったため、
マクロが進んでしまったんですね。
キャンセルの場合のIf文を入れたら機能しました。

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

7179 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free