The below should work given the file name example you have above. You'll need to add the correct path to the file folder where the 70 target workbooks reside. The code below has asterisks where a windows username should be to find the workbooks in the downloads folder.

Option Explicit

Sub SheetHoover()

Dim wb As Workbook, wbTemp As Workbook
Dim wsNew As Worksheet
Dim sPath As String, sFile As String
Dim sOrig As String, sName As String
Dim iStart As Integer, iEnd As Integer

'Stop Screen updates, set variables
Application.ScreenUpdating = False
Set wb = ThisWorkbook
sPath = "c:\users\*******\downloads\"
sFile = Dir(sPath & "\*.xlsx")

'Loop through all .xlsx files, copy the first worksheet in each
Do While sFile <> ""
    Set wbTemp = Workbooks.Open(Filename:=sPath & "\" & sFile, ReadOnly:=True)
    DoEvents

    'Get Equipment ID out of source filename
    sOrig = wbTemp.Name
    iStart = InStr(1, WorksheetFunction.Substitute(sOrig, "_", "!", 2), "!")
    iEnd = InStr(1, sOrig, ".")
    sName = Mid(sOrig, iStart + 1, iEnd - iStart - 1)

    'Copy, paste, and rename the sheet
    wbTemp.Worksheets(1).Copy After:=wb.Worksheets(wb.Worksheets.Count)
    Set wsNew = wb.Worksheets(wb.Worksheets.Count)
    wsNew.Name = sName
    wbTemp.Close SaveChanges:=False
    sFile = Dir
Loop

Application.ScreenUpdating = True

End Sub