sdtester 发表于 2013-1-8 10:26:47

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

本帖最后由 黑羽祭 于 2013-1-8 11:05 编辑

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 发表于 2013-1-8 10:27:17

在线等大神们的回答:handshake

sdtester 发表于 2013-1-8 10:58:57

已解决

黑羽祭 发表于 2013-1-8 11:01:21

:L看来LZ还是有能力解决的啊~哈哈
页: [1]
查看完整版本: 【已解决】保存的excel不正确