如何在当前文件路径中打开文件夹中包含的文件

Question

我想打开一个文件（ file ），该文件存储在与当前工作簿位于同一目录的文件夹（ Source ）中。 我收到一个运行时错误1004，指示找不到该文件。 我在做什么？

Set x = Workbooks.Open(ThisWorkbook.Path & "\Source\file*.xlsx")

Answer 1

由于要保留通配符，因此需要遍历文件夹中的文件。 您可能会对这样的事情感兴趣：

Sub FileOpen()

Dim sPath As String
Dim sFile As String
Dim wb As Workbook

    sPath = ThisWorkbook.Path & "\Source\"
    sFile = Dir(sPath & "file*.xlsx")

    ' Loops while there is a next file found in the specified directory
    ' When there is no next file the Dir() returns an empty string ""
    Do While sFile <> ""

        ' Prints the full path of the found file
        Debug.Print sPath & sFile

        ' Opens the currently found file
        Set wb = Workbooks.Open(sPath & sFile)

        ' Place your code here
        ' Place your code here
        ' Place your code here

        ' Close the current workbook and move on to the next
        wb.Close

        ' This line calls the Dir() function again to get the next file
        sFile = Dir()

    Loop

End Sub

祝好运！

Answer 2

将通配符替换为实际的文件名。

Answer 3

设置x = Workbooks.Open（ThisWorkbook.Path和“ \\ Source \\ file.xlsx”

我将file * .xlsx更改为file。 xlsx ...希望您的代码有效。

谢谢。