各位高手，我在学习WINCC的EXCEL报表，在网上找到按日期时间创建的一个EXCEL文件，我试过，运行不起来，请专家指教！
VBS代码如下：
Dim patch,filename
filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))+CStr(Minute(Now))&CStr(Second(Now))
patch= "d:\"&filename&"demo.xls"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing
我在按钮下做过，也在全局中做过，敬请指教！
最佳答案
与自动化软件通信需要先创建自动化软件对象。
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
提问者对于答案的评价：
谢谢指教，不过还是没有好
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc194986.html
微信扫一扫 
支付宝扫一扫 
