ボタンを押すとファイルをバックアップするプログラム。 ＜プログラム＞ Private Sub BackUp_Click()On Error Resume Next ThisWorkbook.Save If Err.Number <= 0 Then 'デスクトップにバックアップフォルダを作成した場合 Dim backupPath As String backupP…