Excelで既存のファイルを自動的に上書きする「名前を付けて保存」機能を使用するにはどうすればよいですか？

新しいフォルダにExcelワークブックを保存する際、同じ名前のワークブックが既にそのフォルダ内に存在する場合、以下のスクリーンショットのようなプロンプトボックスが表示されます。確認メッセージなしで既存のファイルを自動的に上書きするにはどうすればよいですか？この記事の方法が役立ちます。

VBAコードを使用して既存のファイルを自動的に上書きする「名前を付けて保存」機能

VBAコードを使用して既存のファイルを自動的に上書きする「名前を付けて保存」機能

新しい名前でワークブックを保存し、Excelで既存のファイルを自動的に上書きしたい場合は、次の手順を実行してください。

1. まず、「名前を付けて保存」機能をトリガーするためのコマンドボタンを作成します。「Developer（開発）」→「Insert（挿入）」→「Command Button (Active X Control)（コマンドボタン（Active X コントロール））」をクリックしてください。スクリーンショットをご覧ください：

2. ワークシート上にコマンドボタンを描画します。次に、それを右クリックしてコンテキストメニューから「View Code（コードの表示）」を選択します。

3. 「 Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードをコピーし、コードウィンドウ内の「Private Sub」と「End Sub」の間に貼り付けてください。

VBAコード: 既存のファイルを自動的に上書きする「名前を付けて保存」機能

Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
  ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True

4. 「Alt」+「Q」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを終了します。そして、「Developer（開発）」タブの下にある「Design Mode（デザインモード）」をオフにしてください。

5. コマンドボタンをクリックすると、「Save As（名前を付けて保存）」ダイアログボックスがポップアップしますので、このワークブックを保存するフォルダを選択し、「Save（保存）」ボタンをクリックしてください。

宛先フォルダに同じ名前のワークブックが存在する場合、現在のワークブックによって確認なしで自動的に上書きされます。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

• ワークシートをPDFファイルとして保存し、Outlook経由で添付ファイルとしてメール送信するにはどうすればよいですか？
• タイムスタンプ付きでExcelのファイル名を保存するにはどうすればよいですか？
• Excelで複数またはすべてのシートを個別のCSVまたはテキストファイルに保存/エクスポートするにはどうすればよいですか？
• Excelで「保存」と「名前を付けて保存」のオプションを無効にするにはどうすればよいですか？
• Excelでワークブックの保存を無効にし、「名前を付けて保存」のみを許可するにはどうすればよいですか？