Dim srcData,srcDoc
set srcData = CreateObject("Excel.Application")
srcData.Visible = True
set srcDoc = srcData.Workbooks.Open("E:\test\CompositeFile.xls")
srcDoc.Worksheets("检测汇总").Activate
srcDoc.Worksheets("检测汇总").Cells(2,1).value = a
Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
WshShell.SendKeys "^s"
wait(1)