查询公式返回工作表名称

要查询公式返回工作表名称，可以使用VBA的Worksheet函数。以下是一个示例代码：

Sub GetWorksheetName()
    Dim formulaResult As Variant
    Dim worksheetName As String

    ' 在A1单元格中输入公式
    Range("A1").Formula = "=MID(CELL(""filename"",A1),FIND(""]"",CELL(""filename"",A1))+1,255)"

    ' 计算公式并获取结果
    formulaResult = Range("A1").Value

    ' 提取工作表名称
    worksheetName = formulaResult

    ' 显示工作表名称
    MsgBox "当前工作表名称是 " & worksheetName

    ' 清除A1单元格中的公式和数值
    Range("A1").Clear
End Sub

这个示例代码首先在A1单元格中输入了一个公式，该公式用于获取当前工作表的名称。然后，通过计算公式并将结果存储在变量formulaResult中。最后，使用MsgBox函数显示工作表名称。完成后，代码会清除A1单元格中的公式和数值。

请注意，这个示例代码假设你想要获取当前工作表的名称。如果你想获取其他工作表的名称，可以更改公式或在其他单元格中使用类似的公式。