如何关闭任何打开的文件，无论文件类型如何

Question

我创建了一个打开任何有效文件的功能，现在我想关闭打开的文件。 输入文件可以是任何有效的文件类型：.docx，.bmp，xlsx等。

我试图制作WScript对象，并尝试使用下面的代码关闭文件，但是它不起作用。

Public Function openfile(filepath)
    Set ws = CreateObject("WScript.Shell")
    ws.Run filepath 
    'taking the screen shot of opened file 
End function

Public Function closefile(filepath)
    Set ws = CreateObject("WScript.Shell")
    ws.AppActivate (filepath)
    ws.Terminate
End function

但是，我无法关闭打开的文件并出现错误。文件可以是任何有效的文件类型，只有在运行时才能知道。我们已经有一个功能，可以为.txt和Excel更新打开的文件。

任何人都可以帮助我找出如何关闭已经打开的文件而与文件类型无关吗？