我想把WINCC数据存入EXCEL表中,每次存之前需要检测目标文件是否存在,如果存在则打开目标文件,把记录添加到表中,如果不存在,则建立工作薄,并以目标文件名另存,把记录添加在文件中,问题是,如何去检测目标文件是否存在呢?我用Len(Dir(Fullfilename))<>0来检测,但运行时报错:"Dir"未知变量,望高手帮忙解答,谢谢!!
最佳答案
用FileSystemObject对象。
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("D:\test\test.xls") Then
...
Else
...
End If
提问者对于答案的评价:
非常好,非常感谢!!
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc278474.html