脚本写在鼠标动作中：
Sub X6309X94AE11X0000X0000_OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)

Dim fso,myfile,fname
Set fso = CreateObject("s cripting.FileSystemObject")
Set MyFile = fso.GetFile("c:\data\report11.xls")
fname="c:\data\" & FormatDateTime(Date,2) & ".xls"
MyFile.Copy(fname)


'Set fso = CreateObject("s cripting.FileSystemObject")
'fname="c:\data\" & FormatDateTime(Date,2) & ".xls"
Dim ObjExcelApp
Dim i
Set i=HMIRuntime.Tags("jishu")
i.Read
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open fname
objExcelApp.worksheets ("sheet1").Cells(8, 5).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.beiyong1").read
objExcelApp.worksheets ("sheet1").Cells(i, 7).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.beiyong2").read
objExcelApp.worksheets ("sheet1").Cells("jishu", 2).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.ZXwgZdn").read
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.ClosE
objExcelApp.QuiT
Set ObjEXceLapp = Nothing
End Sub

当我用ProgramExecute ("explorer.exe c:\\data");
打开报表所在文件夹，打开今天的excel报表时,提示“2009-8-25.xls”已经打开。重新执行打开操作会造成前面所做的更改被放弃，是否重新打开“2009-8-25.xls”?我在打开之前，excel是关闭的啊，存excel的文件夹也是关闭的，为什么会有这个提示啊？？
还有，那个“jishu”是WINCC 内部变量，用来确定数据写在哪一行的，可是i读不到值，就是数据写不进去，打开excel里面是空的，如果不用变量，即cells(2,3),值是能写进去的。用变量为什么就写不进去呢？