エクセルの質問です。

先の回答は、３つまでのファイルで試したので、For の範囲が３までになっていました。

失礼しました。

ファイル名が数値だと書かれていたので、ファイル名を数値としたのですが、

いろいろな名前だとすると難しいですね。

指定したフォルダに、あるファイルを全部集計するという処理でよいなら、下記のようでどうでしょうか。

'// 集計するデータ位置
Const dataCell = "A1"
'//データファイルのフォルダ
Const dataFilePath = "C:\Data\"

Sub sumBooks()
    Dim filePath As String
    Dim sumWS As Worksheet
    '// 集計用シートを先頭に追加
    With ThisWorkbook
        Set sumWS = .Worksheets.Add(before:=.Worksheets(1))
    End With
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim file As Object
    
    Dim index As Long
    index = 1
    '// フォルダ下のすべてのファイルを処理
    For Each file In fso.GetFolder(dataFilePath).Files
        filePath = dataFilePath & file.Name
        With Workbooks.Open(filePath)
    '// B列にファイル名を表示
            sumWS.Cells(index, "B").Value = file.Name
    '// C列にデータを表示
            sumWS.Cells(index, "C").Value = .Worksheets(1).Range(dataCell).Value
            .Close
        End With
        index = index + 1
    Next
    '// A1 に 合計を表示
    sumWS.Range("A1").Formula = "=SUM(C1:C200)"
End Sub

回答回数が２回になりましたので、コメントを有効にしていただければ、不明点はコメントで回答いたします。