Aufgabenplanung .vbs Skript zur Kovertierung .xls in .csv funktioniert nicht

Dim i
Dim xlsDatei
Dim csvDatei
Dim strDate, strWs
Dim fso, oExcel, wb, ws

Set fso = CreateObject("Scripting.FileSystemObject")  
Set oExcel = WScript.CreateObject("Excel.Application")  
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")  


'---------------------------------------------------------------------  

'---------------------------------------------------------------------  

'aktuelles Jahr  
	strDate = cstr(Year(now))

'Dateipfade  
'	xlsDatei = "\\server\firma\we\BestNr.xls"  
	csvDatei = "\\server\caq-system\Scan\" & strDate & ".csv"  
	txtFehler = Left(txtFehler,InstrRev(csvDatei,"\"))  

'Datei kopieren  
	If fso.FileExists(xlsDatei)= true then
		'Datei öffnen  
			Set wb = oExcel.Workbooks.Open(xlsDatei)
			oExcel.DisplayAlerts = False
			oExcel.Visible = false
		
		'Tabellenblätter werten  
			For i = 1 to wb.Worksheets.count	
				If wb.Worksheets(i).Name = strDate then
					'Speichern  
						wb.Worksheets(i).Activate
						wb.SaveAs csvDatei, 6, , , , , , , , , , True
					
					'Beenden  
						wb.Saved = false
						oExcel.Application.Quit
						Exit For									
				End If
				
				If i = wb.Worksheets.count then
					txtFehler = txtFehler & "Fehler_keinWb_" & date() & ".txt"  
					Set objFile = objFileSystem.CreateTextFile(txtFehler,True)	
					objFile.Close
				End If
			Next				
	Else
		txtFehler = txtFehler & "Fehler_keineXLS_" & date() & ".txt"  
		Set objFile = objFileSystem.CreateTextFile(txtFehler,True)	
		objFile.Close
	End If