wincc连接mysql数据库案例_WINCC读写SQL数据库的例子-工业支持中心-西门子中国

本回答有11位钻石用户推荐

回答者：

zhangli0 - 超级顾问&nbsp&nbsp第15级

2019-07-25 16:40:06

''当前为按钮触发，

''创建一张当前日期命名的表格，如存在，跳过

Dim fso,myfile,daystr,dstr,fname

dstr=CStr(Year(Now))&"-"&CStr(Month(Now))&"-"&CStr(Day(Now))

fname="E:\报表\" + dstr + ".xls"

Set fso=CreateObject("scripting.FileSystemObject")

Set MyFile=fso.GetFile("E:\模板excel.xls")

If fso.FileExists(fname) Then

''MsgBox "文件已经存在"

''文件存在,不执行

else

MyFile.Copy(fname)   ''''不存在,复制模板

End If

''检测当前日期名表格是否打开，如有，关闭保存