51Testing软件测试论坛

标题: 【已解决】保存的excel不正确 [打印本页]

作者: sdtester 时间: 2013-1-8 10:26
标题: 【已解决】保存的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
在线等大神们的回答

作者: sdtester 时间: 2013-1-8 10:58
已解决

作者: 黑羽祭 时间: 2013-1-8 11:01

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)