VBA函数内调用函数遇编译错误，求代码纠错与优化

代码核心问题梳理 #

• 编译错误直接原因：CheckSheet被定义为Sub过程，但你在AddSheet里试图将它当作返回值的Function调用（cSheet = CheckSheet(cS).Value）。VBA中Sub无法返回值，必须改为Function才能实现检测结果的返回，这是触发“Compile Error: Expected function or variable”的核心原因。
• 错误处理逻辑失效：
  • CheckSheet中未开启错误捕获就使用On Error GoTo 0，完全起不到检测工作表是否存在的作用；
  • 代码中wsName = wS(sheetName)里的wS未赋值就直接引用，会触发对象未初始化的错误。正确逻辑应该是尝试通过工作表名称获取对象，用错误捕获判断是否存在。
• 逻辑顺序颠倒：AddSheet中先调用CheckSheet再获取用户输入的sheetName，此时sheetName为空值，检测毫无意义，应该先获取用户输入，再执行重复检测。
• 语法结构错误：CheckSheet中的If wS Is Nothing Then语句缺少对应的End If，导致代码结构不完整，无法通过编译。
• 全局变量滥用：将sheetName和cS设为Public全局变量完全没必要，会增加代码耦合性，容易引发意外的变量值污染，应该改用局部变量或函数参数传递。

修复并优化后的代码 #

Option Explicit

' 检测工作表名称是否存在，存在返回True，不存在返回False
Function IsSheetExists(sheetName As String) As Boolean
    Dim targetSheet As Worksheet
    On Error Resume Next ' 开启错误捕获，捕获"工作表不存在"的错误
    Set targetSheet = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0 ' 关闭错误捕获
    
    ' 如果对象未赋值，说明工作表不存在
    IsSheetExists = Not (targetSheet Is Nothing)
End Function

Sub AddSheet()
    Dim newSheetName As Variant
    Dim isDuplicate As Boolean
    
    ' 获取用户输入的工作表名称
    newSheetName = Application.InputBox(Prompt:="输入新工作表名称", _
                                        Left:=Application.Width / 2, _
                                        Top:=Application.Height / 2, _
                                        Title:="新建工作表", _
                                        Type:=2)
    
    ' 处理用户取消输入的情况
    If newSheetName = False Then Exit Sub
    
    ' 检查名称是否为空
    If Trim(newSheetName) = "" Then
        MsgBox "工作表名称不能为空！", vbExclamation
        Exit Sub
    End If
    
    ' 检测名称是否重复
    isDuplicate = IsSheetExists(newSheetName)
    If isDuplicate Then
        MsgBox "该名称已存在，请更换名称！", vbExclamation
        Exit Sub
    End If
    
    ' 新建工作表并设置名称
    On Error Resume Next ' 捕获名称不合法的错误（比如含特殊字符）
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = newSheetName
    
    ' 检查是否新建成功
    If Err.Number <> 0 Then
        MsgBox "工作表名称不合法，请使用允许的字符！", vbCritical
    Else
        MsgBox """" & newSheetName & """" & " 工作表创建成功！", vbInformation
        ThisWorkbook.Sheets("Sheet1").Activate
    End If
    
    Application.ScreenUpdating = True
    On Error GoTo 0
End Sub

优化说明 #

• 将检测功能改为Function（命名为IsSheetExists更直观），直接返回布尔值，避免全局变量传递，代码逻辑更清晰。
• 调整流程顺序：先获取用户输入，再做空值检查、重复检测，最后执行创建操作，逻辑符合正常操作流程。
• 增加对用户取消输入的处理（InputBox返回False的情况），同时处理工作表名称不合法的错误（比如包含/ \ ? * [ ]等禁止字符）。
• 使用ThisWorkbook明确指定操作的工作簿，避免激活其他工作簿时出错。
• 关闭ScreenUpdating提升运行效率，操作完成后恢复。

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