网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
11月05日
漏签
0
天
plc吧
关注:
166,816
贴子:
815,220
看贴
图片
吧主推荐
视频
游戏
1
回复贴,共
1
页
<<返回plc吧
>0< 加载中...
wincc中用vbs写脚本If Dir("C:\"&filename&".xls")=""Then
只看楼主
收藏
回复
枫叶百子
了解更多
9
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
我再wincc的vbs脚本中写
filename=CStr(Minute(Now))
If Dir("C:\"&filename&".xls")=""Then
objExcelApp.Workbooks.Open"C:\90.xls"
Else
objExcelApp.Workbooks.Open"C:\"&filename&".xls"
End If
不管是否有对应的文件都执行第一句objExcelApp.Workbooks.Open"C:\90.xls" ,
头已想破,求大神指点
5枪好难
模拟练习
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
vb6.0中文件操作 Dir 的使用方法
If Dir("C:\test.xls") <>"" then
MsgBox "文件存在" '当C盘根目录存在test.xls文件时提示“文件存在”
else
MsgBox "文件不存在"
End If
来自百度文库
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示