Fehler: SaveAs-Methode der Arbeitsmappe-Klasse ist fehlgeschlagen

Question

Dim app, fso, file, fName, wb, dir 

dir = "D:\TA" 

dirsave = "D:\TA\XLS" 

Set app = CreateObject("Excel.Application") 
Set fso = CreateObject("Scripting.FileSystemObject") 

For Each file In fso.GetFolder(dir).Files 
    If LCase(fso.GetExtensionName(file)) = "csv" Then 
    fName = fso.GetBaseName(file) 

    Set wb = app.Workbooks.Open(file) 
    app.Application.Visible = True 
    app.Application.DisplayAlerts = False 
    app.ActiveWorkbook.SaveAs dirsave & fName & ".xls", 43 
    app.ActiveWorkbook.Close 
    app.Application.DisplayAlerts = True 
    app.Application.Quit 

    End if 
Next 

Set fso = Nothing 
Set wb = Nothing  
Set app = Nothing 

wScript.Quit 

ich oben VB-Skript bin mit CSV-Datei zu öffnen und als xls-Datei speichern, aber es wirft Fehler

Fehler: SaveAs-Methode der Arbeitsmappe-Klasse ist fehlgeschlagen.

Wie kann ich es beheben? Vielen Dank im Voraus

Answer 1

Es sieht aus als ob Sie ein "\" im Skript vermissen. Es sollte wohl sein:

dirsave = "D:\TA\XLS\" 

oder alternativ könnte es auch sein:

app.ActiveWorkbook.SaveAs dirsave & "\" & fName & ".xls", 43 

Entweder Option sollte funktionieren, obwohl ich eine Option bevorzugen würde, da sie sauberere