在VBScript中创buildExcel文件生成一个损坏的文件

我有一个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).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”的文件格式和扩展名不匹配。 该文件可能是correupted或不安全的 …

另外，我无法从UFT HP导入此数据表。 我相信这可能是因为如何生成Excel文件的这个问题。

我能做些什么来解决它？

Answer 1

您需要使用xlExcel8的FileFormat另存为。 xlExcel8相当于56（因为VB脚本没有xlExcel8引用）。

 ExcelObject.Activeworkbook.SaveAs(path+"Data", 56) 

不要添加扩展名。 Excel将根据文件types参数添加正确的一个。