Mehrere Dateien laden und eine Tabelle aus diesen in neuen Dateien übergeben

sed -ni.bak "/<table/,/<\/table/p" *.html  

sed -ni.bak "/<table/,/<\/table/{//!p}" *.html  

Option Explicit

Const strFolder = "C:\pfad\zu\dateien"  
Const strPrefix = "Table_"  

Const ForReading = 1
Const ForWriting = 2
Dim objFSO, objFolder, objFile, objFileNew, objStream, objRegEx, colMatches
Dim strContent, strFileNew

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(strFolder)
Set objRegEx = New RegExp
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "<table>.*\s*</table>"  


For Each objFile In objFolder.Files
  If StrComp(objFSO.GetExtensionName(objFile.Name), "html", vbTextCompare) = 0 _  
   And objFile.Size > 0 _
   And Left(objFile.Name, Len(strPrefix)) <> strPrefix Then
    Set objStream = objFile.OpenAsTextStream(ForReading)
    strContent = objStream.ReadAll
    objStream.Close
    If objRegEx.Test(strContent) Then
      Set colMatches = objRegEx.Execute(strContent)
      strFileNew = objFSO.BuildPath(strFolder, strPrefix & objFile.Name)
      Set objFileNew = objFSO.OpenTextFile(strFileNew, ForWriting, True)
      objFileNew.Write colMatches(0)
      objFileNew.Close
    End If
  End If
Next

Option Explicit

Const strFolder = "C:\pfad\zu\dateien"  
Const strPrefix = "Table_"  

Const ForReading = 1
Const ForWriting = 2
Dim objFSO, objRegEx

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objRegEx = New RegExp
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "<table.*\s*</table>"  
ProcessFiles strFolder

Sub ProcessFiles(strPath)
  Dim objFolder, objSubFolder, objFile, objFileNew, objStream, colMatches
  Dim strContent, strFileNew
  Set objFolder = objFSO.GetFolder(strPath)
  For Each objSubFolder In objFolder.SubFolders
    ProcessFiles objSubFolder.Path
  Next
  For Each objFile In objFolder.Files
    If StrComp(objFSO.GetExtensionName(objFile.Name), "html", vbTextCompare) = 0 _  
     And objFile.Size > 0 _
     And Left(objFile.Name, Len(strPrefix)) <> strPrefix Then
      Set objStream = objFile.OpenAsTextStream(ForReading)
      strContent = objStream.ReadAll
      objStream.Close
      If objRegEx.Test(strContent) Then
        Set colMatches = objRegEx.Execute(strContent)
        strFileNew = objFSO.BuildPath(strPath, strPrefix & objFile.Name)
        Set objFileNew = objFSO.OpenTextFile(strFileNew, ForWriting, True)
        objFileNew.Write colMatches(0)
        objFileNew.Close
      End If
    End If
  Next
End Sub

objRegEx.Pattern = "<table[\s\S]*?</table>"