使用单元格 B3 中的日期值重命名工作簿中的多个工作表答案

【问题标题】：Rename multiple worksheets in a workbook with Date value in cell B3使用单元格 B3 中的日期值重命名工作簿中的多个工作表
【发布时间】：2019-07-04 11:19:33
【问题描述】：

我正在尝试将工作簿的多个工作表从默认名称“Sheet1 (1)、Sheet1 (2)、Sheet1 (3),...”重命名为单元格“B3”中的日期值"的每个特定工作表。我想以各自“B3”单元格中的日期的工作表名称结束。任何工作表中都没有重复的日期。每个工作表的“B3”单元格中的日期格式以14-Mar-2001 的格式为例。这是我正在尝试使用的宏，但它给了我一个

运行时错误“1004”

Sub RenameTabs()
    For x = 1 To Sheets.Count
        If Worksheets(x).Range("B3").Value <> "" Then
            Sheets(x).Name = Worksheets(x).Range("B3").Value
        End If
    Next
End Sub

我能得到任何帮助将不胜感激！

【问题讨论】：

出错时B3中的值是多少？
请注意，您将Sheets 和Worksheets 混合使用。这不一样！ Sheets 可以包含工作表和图表对象，而Worksheets 只包含工作表。因此可能存在 8 个工作表（5 个工作表和 3 个图表）。所以将所有Sheets 更改为Worksheets。

标签： excel vba

【解决方案1】：

请注意，您将Sheets 和Worksheets 混合使用。这不一样！

Sheets 可以包含工作表和图表对象，而Worksheets 仅包含工作表。因此可能存在 8 个工作表（5 个工作表和 3 个图表）。所以将所有Sheets 更改为Worksheets。

此外，您需要确保工作表名称的长度不超过 31 个字符，因为这是 Excel 的限制。

Option Explicit 

Public Sub RenameTabs()
    Dim x As Long
    For x = 1 To Worksheets.Count
        If Worksheets(x).Range("B3").Value <> "" Then
            Worksheets(x).Name = Left$(Worksheets(x).Range("B3").Value, 31)
        End If
    Next
End Sub

如果您的单元格 B3 是真实日期，您应该使用 Format$() 或将其更改为 Worksheets(x).Range("B3").Text 否则您的 .Value 将返回日期的数值而不是格式化的日期。

【讨论】：

谢谢，在将 "Worksheets(x).Name = Left$(Worksheets(x).Range("B3").Value, 31)" 行更改为 "Worksheets(x) .Name = Left$(Worksheets(x).Range("B3").Text, 31)" 就像你说的那样。

【解决方案2】：

试试：

Option Explicit

Sub test()

    Dim ws As Worksheet

    With ThisWorkbook

        'Loop worksheets
        For Each ws In .Worksheets

            With ws
                'Check ws b3 value
                If .Range("B3").Value <> "" Then
                    'set ws name
                    ws.Name = .Range("B3").Value
                End If

            End With

        Next ws

    End With

End Sub

注意

请记住，工作表名称最多为 31 个字符

【讨论】：