错误：工作簿类的 SaveAs 方法失败答案

【问题标题】：Error : SaveAs method of Workbook class failed错误：工作簿类的 SaveAs 方法失败
【发布时间】：2019-12-06 11:03:15
【问题描述】：

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 方法失败。

我该如何解决？提前致谢

【问题讨论】：

标签： excel vbscript

【解决方案1】：

看起来您在脚本中缺少一个“”。大概应该是：

dirsave = "D:TAXLS"

或者，也可以是：

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

任何一个选项都应该有效，尽管我更喜欢选项一，因为它更整洁

【讨论】：