【Excel】VBAマクロでフォルダ内のファイルを順番に処理（開く：計算して保存など）する方法

Sub processXlsxFiles()
    ' 処理対象フォルダのパス
    Dim taishouFolderPath As String
    taishouFolderPath = "C:\Users\username\Desktop\Target\"
    
    ' 処理結果を保存するファイルのパス
    Dim matomeFilePath As String
    matomeFilePath = "C:\Users\username\Desktop\matome.xlsx"
    
    ' 処理対象ファイルの拡張子
    Dim taishouFileExt As String
    taishouFileExt = "*.xlsx"
    
    ' FileSystemObjectの設定
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 処理対象フォルダ内のファイル一覧を取得
    Dim taishouFile As String
    taishouFile = Dir(taishouFolderPath & taishouFileExt)
    
    ' 処理結果を保存するブックを開く
    Dim matomeBook As Workbook
    Set matomeBook = Workbooks.Open(matomeFilePath)
    
    ' 処理結果を保存するシートを設定
    Dim matomeSheet As Worksheet
    Set matomeSheet = matomeBook.Sheets(1)
    
    ' 処理結果の書き込み開始行を設定
    Dim kakikomiGyou As Long
    kakikomiGyou = matomeSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 各ファイルを処理
    Do While taishouFile <> ""
        ' 処理対象ブックを開く
        Dim taishouBook As Workbook
        Set taishouBook = Workbooks.Open(taishouFolderPath & taishouFile)
        
        ' 処理対象シートを設定
        Dim taishouSheet As Worksheet
        Set taishouSheet = taishouBook.Sheets(1)
        
        ' A列の2行目から最終行までの合計値を計算
        Dim lastRow As Long
        lastRow = taishouSheet.Cells(Rows.Count, 1).End(xlUp).Row
        
        Dim goukeiValue As Double
        goukeiValue = Application.WorksheetFunction.Sum(taishouSheet.Range("A2:A" & lastRow))
        
        ' 処理結果をmatome.xlsxに書き込む
        matomeSheet.Cells(kakikomiGyou, 1).Value = taishouFile
        matomeSheet.Cells(kakikomiGyou, 2).Value = goukeiValue
        kakikomiGyou = kakikomiGyou + 1
        
        ' 処理対象ブックを閉じる
        taishouBook.Close savechanges:=False
        
        ' 次の処理対象ファイルを取得
        taishouFile = Dir()
    Loop
    
    ' 処理結果を保存してmatome.xlsxを閉じる
    matomeBook.Close savechanges:=True
    
    ' 完了メッセージを表示
    MsgBox "処理が完了しました。"
End Sub

  
Sub renameAndSaveXlsxFiles()
    ' 処理対象フォルダのパス
    Dim taishouFolderPath As String
    taishouFolderPath = "C:\Users\username\Desktop\Target\"
    
    ' 処理後ファイルを保存するフォルダのパス
    Dim hozonFolderPath As String
    hozonFolderPath = "C:\Users\username\Desktop\Processed\"
    
    ' 処理対象ファイルの拡張子
    Dim taishouFileExt As String
    taishouFileExt = "*.xlsx"
    
    ' FileSystemObjectの設定
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 処理対象フォルダ内のファイル一覧を取得
    Dim taishouFile As String
    taishouFile = Dir(taishouFolderPath & taishouFileExt)
    
    ' 各ファイルを処理
    Do While taishouFile <> ""
        ' 処理対象ブックを開く
        Dim taishouBook As Workbook
        Set taishouBook = Workbooks.Open(taishouFolderPath & taishouFile)
        
        ' ファイル名の末尾に"_shori"を追加
        Dim newFileName As String
        newFileName = Left(taishouFile, InStrRev(taishouFile, ".") - 1) & "_shori.xlsx"
        
        ' 新しいファイル名で保存
        taishouBook.SaveAs fileName:=hozonFolderPath & newFileName, FileFormat:=xlOpenXMLWorkbook
        
        ' 処理対象ブックを閉じる
        taishouBook.Close savechanges:=False
        
        ' 次の処理対象ファイルを取得
        taishouFile = Dir()
    Loop
    
    ' 完了メッセージを表示
    MsgBox "処理が完了しました。"
End Sub