VBA编辑主模板文件中的单元格

Question

我在模板（XLT）中有一个按钮，用于将新工作簿保存到目录中。文件名需要从之前使用的文件名自动递增。我不能依赖目录搜索，因为文档可能会随着时间的推移而移动/删除。

是否可以从新工作簿中运行的代码中自动增加模板文件中的单元格？

Answer 1

只要可以保存模板，就可以将值存储在名称中（这些值最常用于存储范围，但可用于存储常量）。

创建名称时，只需在RefersTo区域中键入值而不是范围。然后你可以像这样访问它：

Sub WhatsTheValue()

    Dim intValue As Integer

    intValue = Evaluate(ThisWorkbook.Names("NextValue").RefersTo)
    ThisWorkbook.Names("NextValue").Value = intValue + 1

    MsgBox intValue & vbNewLine & Evaluate(ThisWorkbook.Names("NextValue").RefersTo)

End Sub

代码将获取NextValue Name的当前值，将其分配给intValue变量并立即递增Name。

当然，您每次都必须保存模板。如果有多人访问模板，这可能会导致问题。