关闭文件夹

Question

中的所有文件我打开所有文件中指定的文件夹

Sub OpenFiles() 
    Dim MyFolder As String 
    Dim MyFile As String 
    MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning Department\Marks Tracker\Quality Control Reports" 
    MyFile = Dir(MyFolder & "\*.xlsx") 

    Do While MyFile <> "" 
     Workbooks.Open Filename:=MyFolder & "\" & MyFile 
     MyFile = Dir 
    Loop 
End Sub 

下面的代码是否有可能有一个关闭的文件夹中的所有文件类似的代码。非常感谢在此事上提供的任何帮助。

Answer 1

你需要同时打开它们吗？否则：

Sub OpenFiles() 
    Dim MyFolder As String 
    Dim MyFile As String 
    MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning Department\Marks Tracker\Quality Control Reports" 
    MyFile = Dir(MyFolder & "\*.xlsx") 
    Dim wb As Workbook 

    Do While MyFile <> "" 
     Set wb = Workbooks.Open Filename:=MyFolder & "\" & MyFile 
     'Do stuff 
     wb.Close False 'The false will close without saving 
     MyFile = Dir 
    Loop 
End Sub 

Answer 2

Workbooks.Open将返回对工作簿指针的引用。只要打开工作簿，就将其保存在一个集合中（使用Collection.Add）。如果要关闭所有工作簿，请遍历集合（使用For Each）并关闭每个元素。然后删除集合中的所有元素。

Answer 3

尝试

Workbooks.Close

从Excel的Visual Basic帮助文档：

这个例子关闭所有打开的工作簿。如果任何打开的工作簿中有更改，Microsoft Excel将显示相应的提示和对话框以保存更改。