复制文件并将其命名为活动单元格中的值

Question

我需要此代码来复制Word文件并从活动单元格中将其称为值

FileCopy Application.ThisWorkbook.path & "\template.docx", Application.ThisWorkbook.path & "\exercies\ & Worksheets(1).ActiveCell.Value & "".docx"

但是它给我一个错误“数字错误的文件”。 有人可以帮我吗？

Answer 1

问题出在代码的这一部分：

"\exercies\ & Worksheets(1).ActiveCell.Value & "".docx"

如果您Debug.Print语句的这一部分，您将得到：

\exercies\ & Worksheets(1).ActiveCell.Value & ".docx

这不是有效路径。

尝试用它代替它：

"\exercies\" & ActiveCell.Value & ".docx"

这将产生一个有效的路径。此外，我怀疑您拼错了文件夹名称。应该不是运动吗？