Excel VBA質問箱 IV

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

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


70123 / 76734 ←次へ | 前へ→

【11122】Re:SaveAs について
回答  ichinose  - 04/2/28(土) 17:58 -

引用なし
パスワード
   ちん さん、furuya さん、こんにちは。
>戻り値については、解答できません。
>
>回避策としては、
>1.保存する前に、ファイルが存在するかチェックし、
> 存在したときは、ファイル削除後に「保存」を開始する。
>2.「いいえ」・「キャンセル」を押すと、必ずエラー処理が発生するので、
> エラー処理で、ファイルを削除後に「保存」を開始する。
ちんさんの1.のようにファイルの存在をチェックし、
コードでメッセージを表示する方法もあります。

'=========================================================
sub test()
  Dim savenm As String
  savenm = "D:\My Documents\TESTエリア\savetest2.xls"
  If chk_上書き(savenm) = True Then
   Application.DisplayAlerts = False
'   ↑を入れて強制的に上書き
   ThisWorkbook.SaveAs savenm
   Application.DisplayAlerts = True
   End If
End Sub
'=============================================================
Function chk_上書き(flnm As String) As Boolean
  chk_上書き = True
  If Dir(flnm) <> "" Then
   ans = MsgBox(flnm & " は既に存在します。上書きしますか?", vbOKCancel)
   If ans = 2 Then
     chk_上書き = False
     End If
   End If
End Function

一例ですが、確認してみて下さい。

1 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 発言

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