Dim objExcelApp

Dim objWshShell

Set objWshShell = CreateObject("Ws cript.Shell")

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible =False

objExcelApp.Workbooks.Open "C:\Siemens\WinCC\WinCCProjects\example2\ExcelExample.xls"

objExcelApp.Cells(4, 3).Value =123

objExcelApp.ActiveWorkbook.Save

objExcelApp.Workbooks.Close

objExcelApp.Quit

Set objExcelApp = Nothing

objWshShell.Run "EXCEL.exe C:\Siemens\WinCC\WinCCProjects\example2\ExcelExample.xls", 1

更好玩的，我如上的代码照样可以把数据“123”保存到我的excel文件中并打开这个excel文件呀。
你再仔细对比一下wincc v6.0 sp3的“HMIRuntime.ActiveProject.Path”吧！因为wincc v6.0 sp1和wincc v6.0 sp3只差在这个的使用上了。