Templates Excel VBA脚本或宏，用于使用其中的模板链接到新的Excel文档

我有一家小型家庭经营的商店，在加速和/或自动化过程中，我需要以下方面的帮助，我会尽可能地解释，因为我对这类东西还处于新手阶段

因此，在我的店里，我们提供了一项特定的服务，测量身体尺寸以及体重/糖分水平等。我创建了一个.xlsx文档，其中包含所有必需的字段，并将其保存为模板，以备将来使用。我需要做的是： 我想要一个包含客户姓名的主Excel文件。从那里，单击每个名称时，都应使用上述模板打开一个新的Excel文件，该文件最终将保存为每个客户的记录。我尝试了一个链接到模板的脚本，但将其作为包含模板的新文件打开，但问题是，每次单击主文件上的名称时，它都会打开一个新文档，而我需要它打开一个以原始单元格中的名称命名的新文档，其中包含模板。据我所知，这是我能实现的最好的自动化。这可能吗？如果是，我怎么做

编辑：这是我在别处找到的代码：

'File:
'  OfficeTemplate.vbs
'
'Problem:
'  A hyperlink from an Office application to an Office template opens the template,
'    instead of creating a new file.
'  The proposed solution
'    support.microsoft.com/kb/278627
'  did not work.
'
'Solution:
'  Create a hyperlink to a VBS file that starts the process.
'
'Instructions:
'  Copy this VBScript into the same directory of your template.
'  Rename it so that the VBS file name has the name of the template file in front.
'  Example:
'    Template name: test.dotx
'    VBScript name: test.dotx.vbs
'  Create the hyperlink to the VBS file.

Set fso = CreateObject("Scripting.FileSystemObject")
'Get the name of the template
OurName = fso.GetBaseName(WScript.ScriptName)
'Find all files in our directory
For Each File In fso.GetFolder(fso.GetParentFolderName(WScript.ScriptFullName)).Files
  'Did we found the template?
  If StrComp(OurName, File.Name, vbTextCompare) = 0 Then
    'Invoke the default verb
    CreateObject("Shell.Application").Namespace(0).ParseName(File.Path).InvokeVerb
    'Wait a second to let the application start
    WScript.Sleep 1000
    'Done
    Exit For
  End If
Next 

这是我的模板：

这是主文件，只是一列有名称和电话号码，我希望名称链接到每个客户的个人文件

---

让我给你一个非常简单的答案。使用VBA而不是VBS，并按照下图在主excel中编写代码

单击具有名称的单元格时

如果File.Exists YourFolder\&ActiveCell.Value&.xlsx，则 Workbooks.OpenYourFolder\&ActiveCell.Value和.xlsx 其他的 WorkBooks.AddYourTemplate 如果需要，请将母版页中已有的详细信息填写到新工作簿中 NewWorkbook.SaveYourFolder\&ActiveCell.Value和.xlsx

---

如果显示当前代码，则结束。新文档在您保存之前没有名称，因此您无法使用给定名称打开新文档。同意Tim。发布你的代码和你的主文件和模板文件的截图链接。我刚刚做了，如果我上面描述的是不可能的，那么我将很乐意接受任何功能建议@VasilizMoschou如果下面的答案对你有用，那没问题，否则，请你把你的工作表翻译成英语，然后再上传。我看不懂你的语言！我想我知道我只是个新手，但我犯了个错误。YourFolder\部分已标记，错误消息显示：编译错误：外部过程无效。我做错什么了吗？非常感谢你迄今为止的帮助。