wincc 如何使用VBS脚本编写程序弹出“文件打开”对话框

wincc 如何使用VBS脚本编写程序弹出“文件打开”对话框,选定文件路径,并显示,然后选定excel文件,并打开。

最佳答案

Sub OnClick(ByVal Item)     
Dim objDialog
Dim strLoadFile
Dim xlApp
Dim xlBook
Dim xlSheet

   Set objDialog = CreateObject("MSComDlg.CommonDialog")
   objDialog.Filter = "Excel工作簿(*.xls;*.xlsx" 
   objDialog.FilterIndex = 1
   objDialog.InitDir= "D:\"  ''HMIRuntime.ActiveProject.Path
   objDialog.MaxFileSize = 256
   
   objDialog.ShowOpen ''*  对话框不能保证在前
   strLoadFile = objDialog.FileName ''在对话框中选中的文件名
   
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Open(strLoadFile)
   Set xlSheet = xlBook.Worksheets(1) ''打开第一个表单
   xlApp.DisplayAlerts = True ''显示

End Sub

提问者对于答案的评价:
在TIA Wincc pro 中对话框显示不出来

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc355492.html

(1)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日 上午2:28
下一篇 2021年7月5日 上午2:28

相关推荐

发表回复

登录后才能评论