以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于excel报表的一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93321)

--  作者:czy66ds
--  发布时间:2016/11/25 10:03:00
--  关于excel报表的一个问题
假如excel报表已经生成一个销售小票.xls,路径为:
Dim fl As String = ProjectPath & "Reports\\销售小票.xls"文件
如何判断该文件是否已打开打开,如果打开了则关闭它,代码如何写?

--  作者:有点蓝
--  发布时间:2016/11/25 10:19:00
--  
http://www.foxtable.com/webhelp/scr/2126.htm


If FileIsOpened("f:\\test.xls")= True Then
    ShowAppWindow("test.XLS",5)
End If