添加".“更改为工作簿的名称，而无需在VBA中更改其格式

在VBA中，我们可以使用Name函数来更改工作簿的名称，而不需要改变其格式。

Name函数的语法如下：

Name "旧文件路径和名称" As "新文件路径和名称"

使用该函数，我们可以将工作簿的名称更改为另一个名称，而不会影响其格式。

下面是一个示例：

Sub ChangeWorkbookName()
    Dim oldName As String
    Dim newName As String

    ' 获取旧名称
    oldName = ThisWorkbook.Name
    
    ' 构造新名称，将"."替换为工作簿的名称
    newName = Replace(oldName, ".", ThisWorkbook.Name)

    ' 使用Name函数更改工作簿名称
    Name ThisWorkbook.FullName As ThisWorkbook.Path & "\" & newName
End Sub

上述示例中，我们首先获取了当前工作簿的旧名称，并使用Replace函数将"."替换为工作簿的名称，构造了新的工作簿名称。然后，使用Name函数将旧名称更改为新名称。

需要注意的是，更改工作簿的名称可能会导致一些引用或链接的失效，所以在进行更改之前，建议先保存工作簿并备份相关数据。

腾讯云提供了一系列云计算产品，其中与文件存储相关的产品可以帮助您在云端存储和管理文件。您可以了解腾讯云的对象存储 COS（Cloud Object Storage）产品，该产品提供了高扩展性的对象存储服务，适用于存储和处理任意类型的文件数据。您可以通过以下链接了解更多信息： 腾讯云对象存储 COS

请注意，以上答案仅提供了一种解决方案，并以腾讯云的相关产品为例进行了介绍，其他云计算品牌商可能有类似的产品和解决方案。