使用VBA向Excel名称管理器添加名称时遇Error 1004报错

你遇到的问题确实和Excel名称管理器的字符限制有关——Excel对名称的RefersTo/RefersToR1C1参数有255个字符的长度限制，当你的strRangeValue超过这个长度时，就会触发1004错误。

为什么短字符串正常？ #

当字符串长度≤255时，Excel可以直接将其作为名称的引用内容存储；一旦超过这个阈值，就会超出它的处理上限，抛出应用程序定义错误。

解决方案 #

如果需要存储长文本内容，推荐两种替代方案：

1. 使用自定义文档属性存储长文本
   不需要依赖名称管理器，直接把长文本存到工作簿的自定义属性里，示例代码：

   ' 添加/更新自定义属性
   On Error Resume Next
   ActiveWorkbook.CustomDocumentProperties("SaveSelections").Delete
   On Error GoTo 0
   ActiveWorkbook.CustomDocumentProperties.Add _
       Name:="SaveSelections", _
       LinkToContent:=False, _
       Type:=msoPropertyTypeString, _
       Value:=strRangeValue
   ' 读取属性值
   Dim savedValue As String
   savedValue = ActiveWorkbook.CustomDocumentProperties("SaveSelections").Value
   

2. 将长文本存入隐藏单元格，用名称指向该单元格
   找一个工作表（可以新建隐藏工作表），把长文本写入某个单元格，然后让名称指向这个单元格：

   ' 假设使用Sheet1的A1单元格，先隐藏工作表（可选）
   Sheet1.Visible = xlSheetHidden
   ' 写入长文本
   Sheet1.Range("A1").Value = strRangeValue
   ' 添加名称指向该单元格
   ActiveWorkbook.Names.Add _
       Name:="SaveSelections", _
       RefersToR1C1:="=Sheet1!R1C1"
   ' 读取时直接获取单元格值
   Dim savedValue As String
   savedValue = Range("SaveSelections").Value
   

这两种方法都能避开名称引用的字符限制，根据你的实际需求选择即可。

内容的提问来源于stack exchange，提问作者Nithin