Foxtable(狐表)用户栏目专家坐堂 → excel表显示处于只读


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

主题:excel表显示处于只读

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
excel表显示处于只读  发帖心情 Post By:2014/9/2 20:18:00 [显示全部帖子]

大师:excel显示只读,打开资源管理器又看不到excel运行?是什么原因?ShowAppWindow("订单.xls",5)关闭又显示不允许?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 20:23:00 [显示全部帖子]

加了数个也没用?进程里光头一个,一根头发没有?也不行?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 20:27:00 [显示全部帖子]

怎么看?ctrl +alt +delete  行不行?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 20:55:00 [显示全部帖子]

有效!谢谢!针对具体文件是否可以,运行excelvba时经常出现此情况?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 21:04:00 [显示全部帖子]

谢谢!这样好多了 !

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 21:13:00 [显示全部帖子]

Try

    '正常代码

    app.Quit

Catch ex As Exception

    '错误的时候,关闭

    app.Quit

End Try


一些这一句 就提示“未声明”为何?


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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 21:20:00 [显示全部帖子]

是这样写的红色的部分加进去后就显示没定义?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 21:36:00 [显示全部帖子]

我就是这样写的,红色的部分app.Quit写进去 后         就提示未定义?

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


加好友 发短信
等级:狐神 帖子:5054 积分:13025 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2014/9/2 21:42:00 [显示全部帖子]

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("Excel")

    For Each p As System.Diagnostics.Process In ps
        If p.MainWindowTitle.Contains("订单") Then
            p.kill
        End If
    Next

试过了,当订单的excel退出后,所有的excel文件全部退出?这样还是有问题。

 回到顶部