Excelマクロで当月のみファイルを生成し、翌月のファイルを削除する方法

Excelのマクロを使って、セルに入力された日付を元にファイルを生成する際、翌月のファイルも生成されてしまうことがあります。この問題を解決し、当月のみファイルを生成し、さらに翌月のファイルを自動で削除する方法について詳しく解説します。

問題の背景と目的
マクロの修正方法：当月のみファイルを生成する
翌月のファイルを削除するマクロの作成
まとめ：ファイル生成と削除を自動化するマクロの作成

問題の背景と目的

現在、以下のマクロでは、セルに入力された日付を基にファイル名を決定し、そのファイルを生成しています。しかし、翌月のファイルも誤って生成されてしまうという問題があります。

今回の目的は、「当月のみファイルを生成し、フォルダ内の翌月のファイルを削除する」マクロを作成することです。このためには、現在の日付を確認し、当月だけのファイルを生成し、余分なファイルを削除する必要があります。

マクロの修正方法：当月のみファイルを生成する

まず、当月のファイルのみを生成するために、マクロ内で現在の月を確認する処理を追加します。以下のコードでは、現在の年月を取得し、その月に対応するファイルのみを生成する方法を示します。

Sub ファイル生成()

Dim maxRow, maxCol As Long
Dim name, data, path As String
Dim i As Long
Dim j As Long
Dim currentMonth As String

' 現在の月を取得
currentMonth = Format(Now(), "yyyy-mm")

maxRow = Cells(2, 1).End(xlDown).Row
maxCol = Cells(2, 1).End(xlToRight).Column

For i = 1 To maxRow
    name = Cells(i, 3).Value
    ' ファイル名の年月が現在の月と一致する場合のみ処理
    If InStr(name, currentMonth) > 0 Then
        path = ThisWorkbook.path & "\" & name & ".txt"
        FileNumber = FreeFile
        Open path For Output As #FileNumber
        Close #FileNumber
    End If
Next

MsgBox "ファイルを作成しました！"
End Sub

このコードでは、ファイル名に現在の年月（yyyy-mm）を含む場合のみファイルを生成します。これにより、翌月のファイルが誤って生成されることを防げます。

翌月のファイルを削除するマクロの作成

次に、指定したフォルダ内で翌月のファイルを自動的に削除するマクロを作成します。以下のコードをマクロに追加することで、指定したフォルダ内の翌月のファイルを削除することができます。

Sub ファイル削除()

Dim folderPath As String
Dim currentMonth As String
Dim nextMonth As String
Dim fileName As String
Dim filePath As String
Dim file As Object

' フォルダパスを指定
folderPath = ThisWorkbook.path & "\"
' 現在の月を取得
currentMonth = Format(Now(), "yyyy-mm")
' 翌月を計算
nextMonth = Format(DateAdd("m", 1, Now()), "yyyy-mm")

' フォルダ内のファイルを確認
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)

For Each file In folder.Files
    fileName = file.Name
    ' 翌月のファイルを削除
    If InStr(fileName, nextMonth) > 0 Then
        filePath = folderPath & fileName
        Kill filePath
    End If
Next

MsgBox "翌月のファイルを削除しました！"
End Sub

このマクロでは、現在の月を基に翌月を計算し、フォルダ内で翌月を含むファイル名を持つファイルを削除します。これにより、翌月のファイルがフォルダ内に残らないようにできます。