怎样制作查询历史数据的按钮，也就是我把日期时间输进去，自动显示该时间段的数据记录？
触摸屏是MP377的
最佳答案
问题——
报表以EXCEL存在盘里，想在wincc做个查询按钮，文件名为日期格式，怎么样做到可以选择不同的日期，打开不同的报表？
程序——
Dim objexcelapp
Dim DTP_Date
Dim strDate
Set DTP_Date = ScreenItems("控件2")
strDate = CStr(Year(DTP_Date.Value))
strDate = strDate & "-" & Right("00" & CStr(Month(DTP_Date.Value)),2)
strDate = strDate & "-" & Right("00" & CStr(Day(DTP_Date.Value)),2)
Set objexcelapp=CreateObject("excel.application")
objexcelapp.visible=True
objexcelapp.workbooks.open "D:\date\"&strDate&".xls"
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc270231.html
微信扫一扫 
支付宝扫一扫 