怎么实现VBS脚本复制一个Excel文件

固定每天读取来自PLC数据的Excel文件,怎么利用VBS脚本通过这个固定的Excel文件复制一个带系统日期名称的新Excel文件,同时清空原有的固定excel文件,等待下次读取PLC的新数据?求脚本代码,谢谢

钻石用户推荐最佳答案

可以使用FileSystemObject类的CopyFile方法。
Public Sub CheckFileExists(SourceFile, FullFile)
   Dim fs
   
   Set fs = CreateObject("Scripting.FileSystemObject")
     
   If Not fs.FileExists(FullFile) Then
      '' 例如:SourceFile = HMIRuntime.ActiveProject.Path & "\MyData.xls"
      fs.CopyFile SourceFile,FullFile,True
   End If
   
   Set fs = Nothing
End Sub

SourceFile:源文件,可以事先手动编辑,保存为只有格式而无数据的原始文件。
FullFile:目标文件(全路径+文件名),需要拼凑日期。
首先检查目标文件存在与否,如果已经存在,则跳过;否则就拷贝文件。

提问者对于答案的评价:

原创文章,作者:ximenziask,如若转载,请注明出处:https://www.zhaoplc.com/plc358650.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2021年7月5日 上午10:34
下一篇 2021年7月5日

相关推荐

发表回复

登录后才能评论