如何将sheet名称改为文件名

要将Excel工作表的名称改为文件名，你可以使用Excel的VBA（Visual Basic for Applications）宏来实现这一功能。以下是一个简单的VBA宏示例，它可以将活动工作表的名称设置为当前Excel文件的基本文件名（不包含扩展名）。

1. 打开Excel文件。

2. 按下 `Alt + F11` 打开VBA编辑器。

3. 在左侧的项目资源管理器中，找到你的工作簿，并双击打开它。

4. 在打开的工作簿窗口中，右键点击“VBAProject（你的工作簿名）”，选择“插入” -> “模块”。

5. 在新模块的代码窗口中，复制并粘贴以下代码：

```vba

Sub RenameSheetToFile()

Dim ws As Worksheet

Dim fileName As String

Dim fileExtension As String

' 获取文件名（不包括扩展名）

fileExtension = ".xlsx" ' 根据你的文件类型修改扩展名

fileName = ThisWorkbook.Name

fileName = Left(fileName, InStrRev(fileName, ".") 1)

' 将活动工作表的名称设置为文件名

Set ws = ActiveSheet

ws.Name = fileName

End Sub

```

6. 关闭VBA编辑器。

7. 在Excel中，按下 `Alt + F8`，选择 `RenameSheetToFile` 宏，然后点击“运行”。

这个宏会将当前活动工作表的名称设置为不包含扩展名的文件名。如果你想要将所有工作表的名称都改为文件名，可以将这段代码稍微修改一下，如下所示：

```vba

Sub RenameAllSheetsToFile()

Dim ws As Worksheet

Dim fileName As String

Dim fileExtension As String

' 获取文件名（不包括扩展名）

fileExtension = ".xlsx" ' 根据你的文件类型修改扩展名

fileName = ThisWorkbook.Name

fileName = Left(fileName, InStrRev(fileName, ".") 1)

' 遍历所有工作表，并更改名称

For Each ws In ThisWorkbook.Worksheets

ws.Name = fileName

Next ws

End Sub

```

然后，按照上述步骤运行这个宏，它将把工作簿中所有工作表的名称都改为文件名。