Foxtable(狐表)用户栏目专家坐堂 → 关于FileChanged


  共有5703人关注过本帖树形打印复制链接

主题:关于FileChanged

帅哥哟,离线,有人找我吗?
fvcfox
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:538 积分:5072 威望:0 精华:0 注册:2020/5/7 13:05:00
关于FileChanged  发帖心情 Post By:2022/8/24 17:18:00 [显示全部帖子]

在监视的目录,当打开excel表格时还未修改保存,FileChanged就执行了,请问怎么解决,TXT的文本文件就能正常

 回到顶部
帅哥哟,离线,有人找我吗?
fvcfox
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:538 积分:5072 威望:0 精华:0 注册:2020/5/7 13:05:00
  发帖心情 Post By:2022/8/24 19:48:00 [显示全部帖子]

Dim ifo As New FileInfo(e.FullPath)
If ifo.Extension <> ".xls" Or ifo.Extension <> ".xlsx" Or ifo.Extension <> ".doc" Or ifo.Extension <> ".docx" Then
    MessageBox .Show(e.FullPath )
    Return
End If 
......

在程序上面加了这个,但是真的表格文件修改点保存也不执行下面的的程序了

 回到顶部