vba - 在新工作簿中复制工作表并使用 VBA 保存

Question

我编写了这段代码，它通过数据验证列表并将工作表复制到新工作簿中。我想保存它，但我可以 t. The loop doesn t 给我一个错误并继续在新工作簿中复制和粘贴，但它实际上从未在我设置的目录中保存工作簿的副本

Dim ValidationList As Range
Set ValidationList = Range("BF1:BF13")
VCount = ValidationList.Count


For i = 1 To VCount
FolderPath = "C:\Users\A734810\Desktop\Efficiency"
namesheet = Cells(i, 58)
Path = FolderPath & namesheet & "\*.xlsx"
Filename = Dir(Path)

Range("A8") = Cells(ValidationList(i).Row, ValidationList.Column)

ThisWorkbook.Sheets("Professionals comparative").Copy
ActiveWorkbook.SaveCopyAs Filename:=Filename

Next

Answer 1

Path = FolderPath & namesheet & "\*.xlsx"

如果单元格 Cells(i, 58)，以上是正确的有 \我猜你有一个“\”，因为根据你的帖子你是 没有收到任何错误

问题就在这里

ActiveWorkbook.SaveCopyAs Filename:=Filename

文件正在保存，但不在您认为的位置；)
Filename只是有文件的名称。您需要将其更改为

ActiveWorkbook.SaveCopyAs Filename:=FolderPath & namesheet & "\" & Filename