从一个文件夹打开一个Excel文件，而不使用目录名称

我想知道，如果有一种方法来打开Excel文件，只需search该文件夹并打开该文件夹中的Excel文件。

我有我的Excel文件在文件夹下载，它是以xlsx格式。 我有我的工作excel文件也在同一个文件夹中。 这是xlsm格式。

我想打开文件夹名称，而不是目录名称的Excel文件。

我已经通过互联网search和来源，我们可以提及

userfilename = thisworkbook.path file =（Userfile＆“.xlsx”，vbnormal）

但是，我感到如何进一步推进，以及如何工作。

任何人都可以帮助我吗？

Answer 1

Try this code: Sub Main() Dim W As Workbook Set W = ActiveWorkbook FromPath = W.Path & "\" 'Actual Workbook Folder Set fso = CreateObject("Scripting.filesystemobject") Set objFolder = fso.GetFolder(FromPath) For Each FileInFolder In objFolder.Files 'Find All File in Folder If (InStr(1, FileInFolder.Name, ".xlsx") Or InStr(1, FileInFolder.Name, ".xlsm") Or InStr(1, FileInFolder.Name, ".xls")) And Left(FileInFolder.Name, 2) <> "~$" Then 'Check is correct format If FileInFolder.Name <> W.Name Then 'Check is not equal actual file Workbooks.Open (FileInFolder.Name) 'Open Exit Sub End If End If Next FileInFolder End Sub