Vba Excel工作表名称

我想制作一个宏，将数据从一张图纸复制到另一张图纸。 没问题，但我用表情符号给这张纸命名

---

如果工作表的名称为，我如何告诉VBA他必须使用哪一个工作表？例如：您可以使用该函数查找项目的相应unicode值，并使用该值查找正确的工作表任何给定工作表的名称、激活工作表、打开VBA编辑器（Alt+F11）、打开即时窗口（Ctrl+G）并键入以下内容：

? ActiveSheet.Name

如果名称由于某种原因是无意义的，并且只包含一个字符，请运行

？Asc（ActiveSheet.Name）

获取ASCII值

可以通过调用

Chr（putValueHere）

在VBA中引用ASCII值，例如：

Worksheets(1).Name = Chr(50)

如果有过多的工作表，可以通过运行以下代码打印所有工作表：

Sub SheetNamePrinter
    For i = 1 To Worksheets.Count
        Debug.Print Worksheets(i).Name
    Next i
End Sub

---

要查找任何给定工作表的名称，请激活该工作表，打开VBA编辑器（Alt+F11），打开即时窗口（Ctrl+G），然后键入以下内容：

? ActiveSheet.Name

如果名称由于某种原因是无意义的，并且只包含一个字符，请运行

？Asc（ActiveSheet.Name）

获取ASCII值

可以通过调用

Chr（putValueHere）

在VBA中引用ASCII值，例如：

Worksheets(1).Name = Chr(50)

如果有过多的工作表，可以通过运行以下代码打印所有工作表：

Sub SheetNamePrinter
    For i = 1 To Worksheets.Count
        Debug.Print Worksheets(i).Name
    Next i
End Sub

---

知道你可以用表情符号重命名工作表，我感到很惊讶。以前从未听说过……OP的“表情符号”给了我一个Unicode值-10180，带有

AscW

。我尝试了

Sheet1.Name=ChrW（-10180）

但它没有呈现“home”符号：（知道你可以用表情符号重命名工作表，我感到很惊讶。以前从未听说过它……OP的“表情符号”给我的Unicode值为-10180，带有

AscW

。我尝试了

Sheet1.Name=ChrW（-10180）

但它没有呈现“主页”符号：（您需要使用AscW，因为Asc不会为非“常规”返回正确的值） characters@Robin尝试对负值使用以下代码-

如果Unicodaval<0，则Unicodaval=65536+Unicodaval End如果

您需要使用AscW，因为Asc不会为非“常规”返回正确的值 characters@Robin尝试将以下代码用于负值-

如果unicodaval<0，那么unicodaval=65536+unicodaval End如果

谢谢！现在我有了一个主意。我可以只取工作表编号吗？是的。可以使用字符串参数（工作表的实际名称）或整数参数（集合中工作表的位置索引）。谢谢！现在我有了一个主意。我可以只获取工作表编号吗？可以。允许使用字符串参数（工作表的实际名称）或整数参数（集合中工作表的位置索引）。