主题：[求助]如何判断指定的文件是否已打开和关闭已打开的文件

If FileIsOpened("c:\data\employee.xls")= True Then
    MessageBox.Show("文件已经打开")
End If

ShowAppWindow

查找指定标题的外部应用程序窗口，并显示、隐藏或关闭之。
注意不是Foxtable中的窗口，而是外部应用程序窗口。

语法：

ShowAppWindow(Caption, State)

• Caption
  字符型，查找窗口标题包括的字符。
  　
• State
  整数型，指定窗口状态。
  1：正常大小显示
  2：最大化显示
  3：最小化
  4：隐藏
  5、关闭

如果找到指定标题的窗口，在完成指定操作后，会返回True，否则返回False。

示例一

假定用Excel打开了一个名为"订单.xls"的文件，希望最大化显示此窗口：

ShowAppWindow("订单.xls",2)

如果你要关闭这个窗口，只需：

ShowAppWindow("订单.xls",5)

示例二

如果已经打开了“订单.xls”这个文件，则显示这个窗口，否则打开这个文件：

If ShowAppWindow("订单.XLS",1) = False Then
    Dim Proc As New Process
    Proc.File = "C:\data\订单.xls"
    Proc.Start
End If