PROSAGA码农传奇-运维监控与响应-Excel VBA - 根据单元格地址获取表的名称

Excel VBA - 根据单元格地址获取表的名称

作者: 筱梨
发布时间: 2024-06-28 01:10:13 (4天前)
转自：

<div class =“post-text”itemprop =“text”>
  
    最初的问题有点模糊，因此答案扩展到解决所有相关的用例。
  
  
    一种可能的替代方案是使用
     <code>
 Worksheet
 </code>
     <code>
 Formula
 </code>
     如下所示输入任何
     <code>
 Worksheet
 </code>
     <code>
 Cell
 </code>
     （例如
     <code>
 $A$3
 </code>
    ）然后从Excel VBA宏中引用它：
  
  
    
      清单1.获取Excel
      的
        工作表
      </强>
      的
        名称
      </强>
       使用细胞配方
    
  
   <pre>
 <code>
 =MID(CELL("filename",A3),FIND("]",CELL("filename",A3))+1,255)

</code>
 </pre>
  
    公式基本上提取了
     <code>
 Worksheet Name
 </code>
     来自
     <code>
 Workbook
 </code>
     完整路径。
  
  
    或者，您可以在VBA中实现此功能，前提是您通过了
     <code>
 Range
 </code>
     对象引用该单元格
     <code>
 Worksheet
 </code>
    ，如下面的演示示例：
  
  
    
      清单2.测试Sub以获取Excel
      的
        工作表
      </强>
       和
      的
        表
      </强>
      的
        名称
      </强>
       对于Cell“A3”
    
  
   <pre>
 <code>
 Option Explicit

'Cell "A3" under the test
Sub GetWorksheetAndTableName()
    Dim myCell As Range
    Set myCell = Range("$A$3")
    Debug.Print "Worksheet Name: " & GetWorksheetName(myCell)
    Debug.Print "Table Name: " & GetTableName(myCell)
End Sub

</code>
 </pre>
  
    
      清单3.获取a的函数
      的
        工作表
      </强>
      的
        名称
      </强>
       对于一个细胞
    
  
   <pre>
 <code>
 'get Worksheet Name from Range object
Function GetWorksheetName(CellRange As Range) As String
 On Error Resume Next
 GetWorksheetName = Split(Split(CellRange.Address(External:=True), "]")(1), "!")(0)
End Function

</code>
 </pre>
  
    并且，在它最简单的形式，
     <code>
 Worksheet
 </code>
     <code>
 Name
 </code>
     可以使用以下语句获取（在清单3中显示的函数中替换该语句）：
  
  
    
      清单4.获取Parent的替代方法
      的
        工作表
      </强>
      的
        名称
      </强>
       用于Cell / Range对象
    
  
   <pre>
 <code>
 GetWorksheetName = CellRange.Parent.Name

</code>
 </pre>
  
    为了获取指定的表名
     <code>
 Worksheet
 </code>
     <code>
 Cell
 </code>
     请参阅下面清单5中显示的代码段：
  
  
    
      清单5.获取
      的
        表名
      </强>
       对于工作表单元格
    
  
   <pre>
 <code>
 Function GetTableName(CellRange As Range) As String
 If (CellRange.ListObject Is Nothing) Then
 GetTableName = ""
 Else
 GetTableName = CellRange.ListObject.Name
 End If
End Function

</code>
 </pre>
  
    希望这可能有所帮助。
  
</DIV>