Question

我想知道，如果有办法打开excel文件，只需搜索文件夹并在文件夹中打开excel文件即可。

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

我想用文件夹名称而不是目录名打开excel文件。

我已经通过互联网搜索了我们可以提及的数据

userfilename = thisworkbook.path file =（Userfile＆amp;“。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

在不使用目录名的情况下从文件夹中打开Excel文件

1 个答案: