【已解决】保存的excel不正确

sdtester

newDelExcel("E:\QTPscript\SCAP\result")

Sub newDelExcel(strFilePath)
'    On Error Resume Next

        Dim excelSheet,excelBook,fso,strFilePath1
'        workspace="E:\QTPscript\SCAP\result"
    strFilePath1=strFilePath'workspace & "\" & strFilePath

    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Workbooks.Add
    ExcelApp.Visible = True
    Set excelSheet = ExcelApp.ActiveSheet
    Set excelBook = ExcelApp.ActiveWorkbook
    Set fso = CreateObject("scripting.FileSystemObject")   
    fso.DeleteFile strFilePath1
    excelBook.SaveAs strFilePath1
    ExcelApp.Quit
    Set ExcelApp = Nothing
    Set fso = Nothing
End Sub

运行后发现生成的excel格式为.xlsx，我想要的为.xls的。
生成后的文件我想要在E:\QTPscript\SCAP\result文件夹下，实际结果为和“result”文件夹平级，在“SCAP”文件夹下。
急！！  求救！！大神

sdtester

在线等大神们的回答

sdtester

已解决

黑羽祭

看来LZ还是有能力解决的啊~哈哈