admin 管理员组文章数量: 1184232
2024年4月30日发(作者：java教程培训班)
1. 如何在WINCC中直接打开excel文件，如：E:
#include "apdefap.h"
void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lp
szPropertyName, UINT nFlags, int x, int y)
{
ProgramExecute("C:Program FilesMicrosoft
E:");
}
用上面c脚本就可以实现。
1.C:Program FilesMicrosoft 表示是用excel格式
打开
2.E: 是指打开的文件路径
下面是VBS：
Dim objExcelAPP
Set objExcelAPP=CreateObject("ation")
e=True ‘ 显示要打开的文件或在后台运行
"D:"
2. 如何在Wincc中判断一个已存在的的Excel文件已经打开？(wincc打开指定文件,
如果没有运行则打开，如果正在运行则不打开)
这里创建的是全局脚本VBS（为了能周期自动运行）
Option Explicit
Function action
On Error Resume Next
Dim xlApp,xlBook,oExcelFile
oExcelFile = "D:" '全部代码只需改变文件的路径就可以，其他不用作任
何改动
Dim isXlsOpen
isXlsOpen = False
Set xlApp = GetObject(,"ation") '获取EXCEL进程
If TypeName(xlApp) <> "Application" Then '检测到有Excel进程已经打开
Set xlApp = CreateObject("ation")
End If
xlBookFind= false
For Each oBook In oks '循环检查Excel进程打开的Workbooks
'MsgBox me
If me = oExcelFile Then '如果路径与所检查的文件一致
Set xlBook = oBook
xlBookFind = True
Exit For
End If
Next
If xlBookFind=False Then '#如果没有找到
e=True'要打开的文件是否显示或是在后台运行
Set xlBook = (oExcelFile)
End If
版权声明：本文标题：wincc打开指定文件_没有运行打开_正在运行则不打开 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1714451401a680695.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论