Mehrere Excell Datein an genau einer Stelle auslesen und weiterverarbeiten

cls

#Variablen
$pfad="E:\temp2"  
$dateien=Get-ChildItem -Path $pfad -Name -Include *.xls
$ausgabedatei="E:\log.txt"  

#hier musst du angeben in welcher Spalte und in welcher Zeile sich dein Wert befindet
$zeile=2
$spalte=1

# Excel starten 
$excel = New-Object -comobject Excel.Application

# für die Fehlersuche sollte man Excel vielleicht anzeigen!
$excel.Visible = $FALSE

foreach($i in $dateien){

    # ExcelDatei laden
    $arbeitsmappe = $excel.Workbooks.Open($pfad+"\"+$i)  

    # Erstes Worksheet öffnen
    $seite = $arbeitsmappe.Worksheets.Item(1)
    if ($seite.Cells.item($zeile,$spalte).value() -ne 1){
        echo $i
        $i | out-file -filepath $ausgabedatei -Append
    }
}
# Excel verlassen
$excel.quit()

Const QuellPfad = "D:\Test"  
Const LogDatei = "D:\Test\Test.Log"  

Dim Fso, File, Wkb, Log

Set Fso = CreateObject("Scripting.FileSystemObject")  
Set Log = Fso.CreateTextFile(LogDatei)
    
For Each File In Fso.GetFolder(QuellPfad).Files
    If LCase(Right(File.Name, 4)) = ".xls" Then  
        Set Wkb = GetObject(File.Path)
        If Wkb.Sheets(1).Range("A1").Value <> 1 Then  
            Log.WriteLine Fso.GetBaseName(File.Name)
        End If
        Wkb.Close False
    End If
Next

Log.Close
    
MsgBox "Fertig."  

Sub Auswerten()
sQuellpfad = "D:\Test"  


Set wbGes = ActiveWorkbook
Set fso = CreateObject("Scripting.FileSystemObject")  

iZeile = 2
For Each oFile In fso.GetFolder(sQuellpfad).Files
    If LCase(Right(oFile.Name, 4)) = ".xls" Then  
        Application.Workbooks.Open oFile.Path
        If Worksheets(1).Range("A1").Value = "1" Then  
            sFileName = fso.GetBaseName(oFile.Name)
            ActiveWorkbook.Close False
            wbGes.Cells(iZeile, "A").Value = sFileName  
            iZeile = iZeile + 1
        End If
    End If
Next

wbGes.Worksheets(1).Activate
wbGes.Save
MsgBox "Fertig."  
End Sub