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

Question

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

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

但它给了我一个错误“数字错误文件”。有人能帮我吗？

标签： vbaexcel

Answer 1

问题是您的代码的这一部分：

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

如果你Debug.Print是这部分的陈述，你会得到：

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

这不是一个有效的路径。

尝试用这个代替它：

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

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