各位大侠，我用一个脚本打开excel表，但是好像是无限制打开的，一运行excel表就是不断在打开，代码如下：

Dim objExcelApp

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = True

objExcelApp.Workbooks.Open "E:\123.xls"

objExcelApp.Cells(1, 1).Value = ScreenItems("aaa").OutputValue

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing
另外如果我需要cell（i,j)自动加1的变化需要如何写？这样写好像没有变化啊？值在excel表里不会出现在下行里啊？
是不是需要
for i=1 to n
i=i+1
objExcelApp.Cells(i, 1).Value = ScreenItems("aaa").OutputValue
next