Excel VBA - 現在のファイルのコピーを保存するためのボタン

問題

Excelスプレッドシートに自動記録ボタンを含める方法を探しています。 このボタンは、元のファイル名に日付と時刻を追加することによって、現在のシートのコピーを特定のディレクトリに自動的に保存します。例: "my_file_24102007_0830.xls"

溶液

 Public Sub CommandButton1_Click()Dim nom As String nom =日(日付)& " - "&月(日付)& " - "&年(日付)& "_"&ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path& "\ "&nom rep = MsgBox("データベースは保存されました: "&name、vbYes + vbInformation、"スプレッドシートのコピー ")End Sub 

このヒントを寄せてくれたgbinformeに感謝

前の記事 次の記事

トップのヒント