使用macros在给定的目录中只打开.xls文件

只是想知道…我有一段代码 – 在Excel中的一个macros，允许我在给定的目录中打开文件。 问题是我只想打开.xls文件，而且我打开的代码打开了给定目录中的所有文件。

任何人都可以帮助我解决这个问题。

谢谢。

Sub FindOpenFiles() Dim FSO As Scripting.FileSystemObject, folder As Scripting.folder, file As Scripting.file, wb As Workbook Dim directory As String directory = "O:\test" Set FSO = CreateObject("Scripting.FileSystemObject") Set folder = FSO.GetFolder(directory) For Each file In folder.Files Workbooks.Open file Next file End Sub 

Answer 1

 Sub FindOpenFiles() Dim FSO As Scripting.FileSystemObject, folder As Scripting.folder, file As Scripting.file, wb As Workbook Dim directory As String directory = "O:\test" Set FSO = CreateObject("Scripting.FileSystemObject") Set folder = FSO.GetFolder(directory) For Each file In folder.Files If Mid(file.Name, InStrRev(file.Name, ".") + 1) = "xls" Then Workbooks.Open directory & Application.PathSeparator & file.Name End If Next file End Sub 

这很好…

Answer 2

看看这个工作，可能需要调整或两个！

 For Each file In folder.Files If Right(file, 4) = ".xls" Then Workbooks.Open file End If Next file 

Answer 3

试试这个，但是我不太确定
目录=“* .xls”