求助vba过不去，提示运行错误，

我在桌面文件夹内建立了一个excel命名合同数据，还有一个word文档命名为合同模板，想要让excel中的数据自动填写到word里，但是在写excel的vba编写代码时，在FileCopy p & "合同模板.doc", p & "\合同数据\" & nm这一行就无法运行了，求高人指点，以下为代码 Sub 批量生成word文档() p = ThisWorkbook.Path & "\" g = InputBox("2:", "开始行号") e = InputBox("5:", "结束行号") Set wp = CreateObject("word.application") For r = s To e nm = Cells(r, 2) & ".doc" FileCopy p & "合同模板.doc", p & "\合同数据\" & nm With wp .Visible = True .Documents.Open p & "\合同数据\" & nm For c = 1 To 3 '数据列数' Do While .Selection.Find.Execute("【" & c & "】") .Selection.Text = Cells(r, c).Text Loop Next .Documents.Save End With Next Set wp = Nothing End Sub

重新发布一下代码，通过插入代码段按钮插入。

您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~

如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～

ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632