Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2816 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【65814】同名のファイルがありますウィンドウの戻り値の取得 すいか 10/6/29(火) 13:18 質問[未読]
【65815】Re:同名のファイルがありますウィンドウの... Jaka 10/6/29(火) 14:03 発言[未読]
【65816】Re:同名のファイルがありますウィンドウの... すいか 10/6/29(火) 14:45 質問[未読]
【65817】Re:同名のファイルがありますウィンドウの... Jaka 10/6/29(火) 15:07 発言[未読]
【65819】Re:同名のファイルがありますウィンドウの... すいか 10/6/29(火) 15:20 質問[未読]
【65820】Re:同名のファイルがありますウィンドウの... neptune 10/6/29(火) 15:45 発言[未読]
【65822】Re:同名のファイルがありますウィンドウの... すいか 10/6/29(火) 16:03 お礼[未読]
【65821】Re:同名のファイルがありますウィンドウの... Jaka 10/6/29(火) 15:45 発言[未読]
【65814】同名のファイルがありますウィンドウの戻...
質問  すいか  - 10/6/29(火) 13:18 -
引用なし
パスワード
   こんにちは。
宜しくお願いします。

ActiveWorkbook.SaveAs Filename:=FName
とやった時に、指定したフォルダに同名のファイルがあると、
「既に同じ名前のファイルがあります。・・・」
とウィンドウが出ます。
はい　を選べば問題はありませんが、いいえ　や　キャンセル　を
選ぶとエラーになります。

このエラーを回避するために、どのボタンが選ばれたかを取得したい
のですが、このウィンドウは自分で出しているわけではないので、
どうすればいいかわかりません。
どうすれば取得できるのでしょうか？
宜しくお願いします。
【65815】Re:同名のファイルがありますウィンドウ...
発言  Jaka  - 10/6/29(火) 14:03 -
引用なし
パスワード
   保存する前に同名のファイルがあるのか確認するのが先。
Dir関数でも確認できるので、使い方などは、「Dir」で検索すれば見つかるんじゃないかと。
【65816】Re:同名のファイルがありますウィンドウ...
質問  すいか  - 10/6/29(火) 14:45 -
引用なし
パスワード
   ▼Jaka さん：
>保存する前に同名のファイルがあるのか確認するのが先。
>Dir関数でも確認できるので、使い方などは、「Dir」で検索すれば見つかるんじゃないかと。

すみません、よくわからないのですが。
>保存する前に同名のファイルがあるのか確認
しても、「同名ファイルがある」ウィンドウは自動的に出てきて、
いいえやキャンセルを選べば、やっぱりエラーになりませんか？
【65817】Re:同名のファイルがありますウィンドウ...
発言  Jaka  - 10/6/29(火) 15:07 -
引用なし
パスワード
   ▼すいか さん：
>すみません、よくわからないのですが。
>>保存する前に同名のファイルがあるのか確認
>しても、「同名ファイルがある」ウィンドウは自動的に出てきて、
>いいえやキャンセルを選べば、やっぱりエラーになりませんか？

同名のファイル名がある場合は、保存しなきゃいいんです。
【65819】Re:同名のファイルがありますウィンドウ...
質問  すいか  - 10/6/29(火) 15:20 -
引用なし
パスワード
   ▼Jaka さん：
>▼すいか さん：
>>すみません、よくわからないのですが。
>>>保存する前に同名のファイルがあるのか確認
>>しても、「同名ファイルがある」ウィンドウは自動的に出てきて、
>>いいえやキャンセルを選べば、やっぱりエラーになりませんか？
>
>同名のファイル名がある場合は、保存しなきゃいいんです。

ごめんなさい、私が意図をわかってないのだと思いますが。。
保存するしないはユーザ側に決めさせたいのですが。

話を戻しますが、
あのウィンドウでどのボタンが押されたかを取得するのは
難しいことということなのでしょうか？
【65820】Re:同名のファイルがありますウィンドウ...
発言  neptune  - 10/6/29(火) 15:45 -
引用なし
パスワード
   ▼すいか さん：
既にJaka　さんから回答は出てますが、

>ごめんなさい、私が意図をわかってないのだと思いますが。。
意図というよりdir関数のhelpを調べて使用例を見ましたか？

>保存するしないはユーザ側に決めさせたいのですが。
要するにdir関数で保存する前に検索して問い合わせのMessageBoxを出さない
ようにすれば良いだけの話です。
・・・自分でuserに問い合わせるという意味です。

既にある場合はuserに決めさせれば良いだけの話。

>話を戻しますが、
>あのウィンドウでどのボタンが押されたかを取得するのは
>難しいことということなのでしょうか？
基本的には出来ません。
【65821】Re:同名のファイルがありますウィンドウ...
発言  Jaka  - 10/6/29(火) 15:45 -
引用なし
パスワード
   これで保存するファイル名を取得して、分岐するとか。

Savename = Application.GetSaveAsFilename("○○○.xls", "Excelファイル (*.xls), *.xls")
MsgBox Savename
【65822】Re:同名のファイルがありますウィンドウ...
お礼  すいか  - 10/6/29(火) 16:03 -
引用なし
パスワード
   ▼neptune さん：
▼Jaka さん：

>基本的には出来ません。
できないのなら、おっしゃっていること、理解できます。
ファイル名は、GetSaveAsFilenameでこちらで指定したものを
使用する仕組みになっています。
同じところに格納しようとすると、上書きするかどうかを
自動で聞いてきてくれるので、それを利用したかったのです。
（初心者なので、そういうちょっとしたことがいちいち
できないので　(~_~;)

頑張って自力で出すようにします！！


Jaka さん、なかなかわからなくてすみませんでした！
おふたりとも、ありがとうございました<m(__)m>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2816 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free