如何在VBA中打开具有特定名称的文件夹中的文件？

Question

我正在尝试使用VBA打开文件夹中的文件，条件是它们的名称与其他文件的名称相似，而其他文件的名称也将被打开。

使用以下代码，我从folder1打开名称为“ 1_FirmA”，“ 1_FrimB”，...的文件，然后在这些文件上执行一些命令。

我的问题是，每当文件名与循环中openend的folder1中的文件名相似时，我都想从folder2中打开文件。 folder2中文件的名称为“ 2_FirmA”，“ 2_FirmB”，...。 因此，当我从文件夹1打开“ 1_FirmA”时，我想从文件夹2打开“ 2_FirmA”。 有人知道我该如何实现吗？

最好的祝福

Sub MySub()
Dim y As Workbook
Dim z As Workbook
Set fso = CreateOnject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("path\folder1\")
Set fldr2 = fso.GetFolder("path\folder2\")

For Each yFile in fldr.Files
If fso.GetExtensionName(yFile.Name) = "xlsx" then
Set y = Workbooks.Open(yFile.Path)

'Stuff I want to do with workbook y

End if
Next

End Sub()

Answer 1

这项工作会：

Sub MySub()
Dim y As Workbook
Dim z As Workbook
Set FSO = CreateOnject("Scripting.FileSystemObject")
Set fldr = FSO.GetFolder("path\folder1\")
Set fldr2 = FSO.GetFolder("path\folder2\")

For Each yFile In fldr.Files
If FSO.GetExtensionName(yFile.Name) = "xlsx" Then
Set y = Workbooks.Open(yFile.path)
Set z = Workbooks.Open(fldr2 & "2" & Right(yFile.Name, Len(yFile.Name) - 1))


'Stuff I want to do with workbook y

' stuff you can do with z now

End If
Next

End Sub

只要操作名称并从第二个文件夹中打开工作簿，给定的模式与您提到的相同。