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

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

関数として保存して、既存のファイルをVBAコードで自動的に上書きします

関数として保存して、既存のファイルをVBAコードで自動的に上書きします

ブックを新しい名前で保存し、Excelで既存のファイルを自動的に上書きする場合。 次のようにしてください。

1.まず、ワークシートに[名前を付けて保存]機能をトリガーするためのコマンドボタンを作成してください。 クリックしてください Developer > インセット > コマンドボタン（Active Xコントロール）。 スクリーンショットを参照してください：

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

3。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、以下のVBAコードをコピーして、 プライベートサブ • End Subの の行 Code 窓。

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。 プレス 他の + Q 終了するためのキー アプリケーション向け Microsoft Visual Basic 窓。 そして、をオフにします デザインモード 下 Developer タブには何も表示されないことに注意してください。

5.コマンドボタンをクリックしてから、 名前を付けて保存 ダイアログボックスが表示されたら、このブックを保存するフォルダを選択して、[ Save

宛先フォルダに同じ名前のブックが存在する場合、プロンプトなしで現在のブックで直接自動的に上書きされます。

関連記事:

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