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
1、Read格式：1、("MyWord.doc")；2、("\MyWord.doc")
我用来打开.doc 的格式对吗？
2、我通过按钮调用这个程序的时候，能够打开WORD应用程序但是不能没有打开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
关于此程序的问题：
文件路径：C:\Program Files\Siemens\WinCC\WinCCProjects\xg\XuanHua-WinCC-Windows\Excel1.xls
1、Read格式：1、("Excel1.xls")；2、("\Excel1.xls")
我用来打开.doc 的格式对吗？
2、我通过按钮调用这个程序的时候，这个EXCEL打开时间一闪而过 是因为什么阿？


都是我的错，请大家在可能的情况知道一下。。。。。