目的是把wincc中的数据写入excel中

Dim g_excelfilename
Dim excel
g_excelfilename ="E:\\test2008523\excel1"

Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Open g_excelfilename
excel.Cells(4, 3).Value = ScreenItems("V6_ExcelWrite_1").OutputValue
excel.Cells(5, 3).Value = ScreenItems("V6_ExcelWrite_2").OutputValue
excel.Cells(6, 3).Value = ScreenItems("V6_ExcelWrite_3").OutputValue
excel.ActiveWorkbook.Save

（环境：xp+office xp wincc 6.2）