Sub StartX0000005FGD1_OnClick(Byval Item)
Dim oWord,oApp,oDoc
' oApp, oTbl, oDoc
' Open Word document and get first table
Set oWord = CreateObject("WORD.Application")
oWord.Visible = vbTrue
Set oDoc = oWord.Documents.Open(HMIRuntime.Tags("ProjectPath").Read & "MyWord.doc")
Set oApp = GetObject("WORD.Application")
oApp.Visible = vbTrue
End Sub
文件路径：C:\Program Files\Siemens\WinCC\WinCCProjects\xg\XuanHua-WinCC-Windows\MyWord.doc

Read格式
1、("MyWord.doc")
2、("\MyWord.doc")



Sub StartX0000005FGD1_OnClick(Byval Item)
Dim g_excelfilename
Dim excel
'Const g_excelfilename = "C:\Program Files\Siemens\WinCC\WinCCProjects\WinCC V6.0 Demo Application\DemoV6\Excel1.xls"
g_excelfilename = HMIRuntime.Tags("ProjectPath").Read & "\Excel1.xls"
MsgBox g_excelfilename
Set excel = CreateObject("Excel.Application")
excel.Visible = True
End Sub

Read格式
1、("Excel1.xls")
2、("\Excel1.xls")
还有这个EXCEL打开时间一闪而过 是因为什么阿？

Email：zhishiwangjian1@163.com