Excel VBA質問箱 IV

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

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


27961 / 76732 ←次へ | 前へ→

【54084】Re:実行時エラー1004について
回答  りん E-MAIL  - 08/2/23(土) 22:00 -

引用なし
パスワード
   ひろ さん、こんばんわ。

>保存先にすでに同一名称のファイルがある場合、置き換えるか尋ねられます。
>ここで、[いいえ]または[キャンセル]をクリックすると、"実行時エラー1004"が
>再発してしまいます。どのように対処すればいいのでしょうか?

Dir関数で既存ファイルかどうかをチェックして分岐してみました。

Sub TEST()
  Dim fn、Ofile As String
  fn = InputBox("翌月分ファイル名は既定の場所に保存されます。", "翌月分の新規作成・保存", Worksheets("勤務表").Range("K5") & Format(DateAdd("m", 1, vvvDate), "yyyymm"))
  '戻り値が""でない場合は保存する
  If fn = "" Then
   MsgBox "キャンセル", vbExclamation, "ファイル指定"
  Else
   'ファイル名
   Ofile = ThisWorkbook.Path & "\" & fn & ".xls"
   '
   If Dir(Ofile) = "" Then
     '名前をつけて保存
     ThisWorkbook.SaveAs Filename:=Ofile
   Else
     If MsgBox(Ofile, vbOKCancel + vbExclamation, "上書きしますか?") = vbOK Then
      'アラート出さない
      Application.DisplayAlerts = False
      '名前をつけて保存
      ThisWorkbook.SaveAs Filename:=Ofile
      '戻す
      Application.DisplayAlerts = True
     Else
      MsgBox "キャンセル", vbExclamation, "上書き"
     End If
   End If
  End If
End Sub

こんな感じです。
1 hits

【54077】実行時エラー1004について ひろ 08/2/23(土) 17:49 質問
【54079】Re:実行時エラー1004について りん 08/2/23(土) 18:11 回答
【54083】Re:実行時エラー1004について ひろ 08/2/23(土) 21:44 質問
【54084】Re:実行時エラー1004について りん 08/2/23(土) 22:00 回答
【54096】Re:実行時エラー1004について ひろ 08/2/24(日) 13:08 お礼

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