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
微信扫一扫 
支付宝扫一扫 