Excel VBA質問箱 IV

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

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


70118 / 76734 ←次へ | 前へ→

【11127】Re:SaveAs について
回答  ichinose  - 04/2/28(土) 21:15 -

引用なし
パスワード
   ▼furuya さん:
こんばんは。

>うまくいかないことがあります。
>フォームにコマンドボタンを配置(終了処理)し、下記のマクロを割り当てています。
>終了する際、上書きして終了するか否かメッセージボックスが表示るように作りました。
>「はい」を選ぶと上書きして終了しますが、「いいえ」を選ぶとエクセルのファイルを保存するか否かのメッセージが出てきてしまいます。保存しないで終了する場合、メッセージを出さずに勝手に終了させたいのですが、どうすればいいのでしょうか。
>ソースは下記の通りです。
>
>Sub ファイル保存test()
> 
>Dim savenm As String
>savenm = ThisWorkbook.Path & "\" & ThisWorkbook.Name
> 
>If chk_上書き(savenm) = True Then
>   
>  Application.DisplayAlerts = False
>'   ↑を入れて強制的に上書き
>  ThisWorkbook.SaveAs savenm, FileFormat:=xlNormal, Password:="test", WriteResPassword:="",ReadOnlyRecommended:=False, CreateBackup:=True
>  Application.DisplayAlerts = True
'  Application.Quit
>
Else
'  Application.DisplayAlerts = False
'  Application.Quit
  thisworkbook.saved=true
>  End If
>
'Application.DisplayAlerts = True
>frmトップページ.Caption = "トップページ"
'↑これ、どんな意味があるのかわかりませんが・・・。
application.quit 
>End Sub
>'=============================================================
>Function chk_上書き(flnm As String) As Boolean
>
>  chk_上書き = True
>  If Dir(flnm) <> "" Then
>   ans = MsgBox(flnm & " は既に存在します。上書きしますか?", vbYesNo)
>   If ans = 6 Then
>     chk_上書き = True
>   Else
>   chk_上書き = False
>   End If
>  End If
>End Function
こんな感じでしょうか?
確認して下さい。
4 hits

【11109】ブックの保存について furuya 04/2/28(土) 12:10 質問
【11111】Re:ブックの保存について ちん 04/2/28(土) 12:27 回答
【11118】SaveAs について furuya 04/2/28(土) 15:58 質問
【11120】Re:SaveAs について ちん 04/2/28(土) 16:17 回答
【11122】Re:SaveAs について ichinose 04/2/28(土) 17:58 回答
【11123】Re:SaveAs について furuya 04/2/28(土) 19:53 質問
【11127】Re:SaveAs について ichinose 04/2/28(土) 21:15 回答
【11128】Re:SaveAs について furuya 04/2/28(土) 22:19 質問
【11137】Re:SaveAs について クウガ 04/2/29(日) 11:15 回答
【11141】Re:SaveAs について ichinose 04/2/29(日) 12:17 発言

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