×

您收到0封站内信：

×

找答案的高端用户（找答案钻石及双钻级别的用户）将尽可能从此问题下的所有回

答中，为您推荐最佳答案。届时您可以根据推荐数采纳答案。

如果自提问时间起7天内您仍无法选出最佳答案，您可以选择“无满意答案”关闭此问题。

{{item.C_Name}}

问题

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

1

4125 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

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

问题补充：

扫码小程序：

一键登录查看全部问答

kingwhite 新生

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

参与「找答案」每周问答福利，提问或回答即可全民瓜分3000西币奖池，发1条也能分西币！用心解答更有机会单篇直发66西币，上不封顶。每周还有快答侠、夺魁答侠等专属称号与丰厚奖励等你来拿！西币可兑换实物奖品，随手互动免费领福利。

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

城外之人高级工程师

被采纳率 35.64% 2019-06-03 08:20

提问者对于答案的评价

暂无评价

kingwhite

被采纳率低 2019-06-02 23:02

查看其他答案

等您来回答换一换

{{item.Title}} {{item.Title}}: {{item.CoinValue}}西币 {{item.VisitNum}}人想问
我来答我来答

本版相关问题换一换

{{item.Title}} {{item.Title}}: {{item.AnswerCount}}个回答 {{item.VisitNum}}人关注

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

西门子找答案

首次回答问题，获得
双倍西币积分！
立即成为技术知识分享的一员!

积分

{{item.MenuName}}

{{item.MenuName}}

本版热门问题更多

{{item.Title}}: {{item.AnswerCount}}个回答 {{item.ReadCount}}人关注

热门视频，猜你喜欢

向您推荐换一换

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

: 每周提问、回答都有奖励，这波福利千万别错过！

热搜榜单
问题榜单


{{index+1}}: {{item.Title}}

{{item.CloseDate}}

{{item.Title}}

{{item.VisitNum}}人关注 {{item.CloseDate}}

找答案微信小程序

提问
搜索

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。