在vbscript中创建Excel文件会生成损坏的文件
我在vbscript中有以下代码:在vbscript中创建Excel文件会生成损坏的文件,excel,vbscript,qtp,hp-uft,datasheet,Excel,Vbscript,Qtp,Hp Uft,Datasheet,我在vbscript中有以下代码: Set ExcelObject=CreateObject("Excel.Application") ExcelObject.visible=False ExcelObject.WorkBooks.Add ExcelObject.Sheets(1).Cells(1,1).value="1" ExcelObject.Sheets(1).Cells(1,2).value="2" ExcelObject.Sheets(1
Set ExcelObject=CreateObject("Excel.Application")
ExcelObject.visible=False
ExcelObject.WorkBooks.Add
ExcelObject.Sheets(1).Cells(1,1).value="1"
ExcelObject.Sheets(1).Cells(1,2).value="2"
ExcelObject.Sheets(1).Cells(1,3).value="3"
ExcelObject.Sheets(1).Cells(1,4).value="4"
ExcelObject.Sheets(1).Cells(2,1).value="5"
ExcelObject.Sheets(1).Cells(2,2).value="6"
ExcelObject.Sheets(1).Cells(2,3).value="7"
ExcelObject.Sheets(1).Cells(2,4).value="Y"
For x=0 to testData.Count-1
ExcelObject.Sheets(1).Cells(x+3,1).value=testData(x)
ExcelObject.Sheets(1).Cells(x+3,2).value="Constant"
ExcelObject.Sheets(1).Cells(x+3,4).value="Y"
Next
ExcelObject.Activeworkbook.Sheets(1).Name = "Name"
ExcelObject.Activeworkbook.SaveAs(path+"Data.xls")
ExcelObject.Quit()
Set ExcelObject=Nothing
尽管如此,一旦我用Excel打开此电子表格,我会出现以下错误:
文件格式和“Data.xls”的扩展名不匹配。该文件可能已损坏或不安全
此外,我无法从UFT HP导入此数据表。我相信这可能是因为Excel文件如何生成的问题
我能做些什么来修复它?您需要使用xlExcel8的文件格式保存为。xlExcel8相当于56(因为VB脚本没有xlExcel8引用)
不要添加扩展名。Excel将根据文件类型参数添加正确的文件。将其另存为xlsx。我特别需要它为xls,因为QTP(现在的HP-UFT)要求它为xls。请使用saveas命令的filetype参数。提示:不要包含.xls扩展名。如果代码正确,Excel会把正确的放在那里。我不确定要保存的文件有多复杂。保存前可能需要添加
ExcelObject.DisplayAlerts=False
,以避免确认。我不确定要保存的文件有多复杂。保存前,您可能需要添加ExcelObject.DisplayAlerts=False
,以避免确认。
ExcelObject.Activeworkbook.SaveAs(path+"Data", 56)