錯誤：Workbook 類的 SaveAs 方法失敗

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

我正在使用上面的 VB 腳本打開 csv 文件並將其另存為 xls 文件，但它會引發錯誤

錯誤：Workbook 類的 SaveAs 方法失敗。

我該如何解決？ 提前致謝

Answer 1

看起來您在腳本中缺少“\\”。 大概應該是：

dirsave = "D:\TA\XLS\"

或者，也可以是：

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

任一個選項都應該有效，盡管我更喜歡選項一，因為它更整潔