Set ExcelApp = CreateObject("Excel.Application") '创建一个Excel应用程序ExcelApp,并创建一个新的工作薄Workbook;
ExcelApp.Visible = True 'excel可编辑摸索
Set ExcelBook = ExcelApp.WorkBooks.Open("E:\QTP\test\tests.xls") '打开excel文件
Set ExcelSheet = ExcelBook.WorkSheets("Sheet1") '工作簿名称
'For i=2 to 2
     'call newFW(ExcelSheet,i,2) 
'Next

ExcelApp.DisplayAlerts=False
 ExcelApp.Save  '保存当前工作薄
 ExcelSheet.SaveAs ("E:\QTP\test\12345.xls") '另存为
 ExcelBook.Close (True)    '关闭工作簿 这里的True表示退出时保存修改
 ExcelApp.Quit    '结束EXCEL对象
 Set ExcelApp = Nothing    '释放xlApp对象
 Set ExcelSheet = Nothing    '释放xlApp对象
 Set ExcelBook = Nothing    '释放xlApp对象