|
VBA初心者です。
勤務表ファイルの翌月分を新規作成するために下記のように理解不足なりに作ってみました。
ファイル名を「部署名(K5)+年月」とし、既存ファイルと同じフォルダに保存されるようにしています。
InputBoxの[OK]をクリックすると問題なく同じフォルダに既定のファイル名で保存されますが、[キャンセル]の場合、「実行時エラー1004 SaveAsメソッドは失敗しました。Workbookオブジェクト」とエラーが発生します。
希望として、[キャンセル]をクリックすると、直前の操作をキャンセル(InputBoxが消えるように)したいと考えています。
ご教授よろしくお願い致します。
Sub clear()
Dim fn
fn = InputBox("翌月分ファイル名は既定の場所に保存されます。", "翌月分の新規作成・保存", Worksheets("勤務表").Range("K5") & Format(DateAdd("m", 1, Date), "yyyymm"))
If fn <> "true" Then
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fn & ".xls"
End If
End Sub
|
|