|
本帖最后由 黑羽祭 于 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”文件夹下。
急!! 求救!!大神 |
|