Question

VBA 我知道,我可以这样提到一个结构化的表格:

  Set Tbl = Sheets("MySheetName").ListObjects("MyTblName")

然后是Tbl.XXX。三十可以是:Name, .Range, 等等。

然而,我想在提及这份表格时不提及Sheet的名字,这样,如果表格名称有改动,宏观就不会消失。

这是可能的吗?

Answer 1

After some research I found something that is not a perfect solution. You can make use of the Range function in VBA like this:

Set tbl = Range("TableName[#All]")

然而,这不是一个目标,而是范围。你们也可以做其他参考:

结构化表格的体(不包括头盔)

Range("TableName")

名为“MyColumn”的栏目

Range("TableName[MyColumn]")

等等。

Then you call something like: tbl.ListObject to refer to the structured table where the range is found.

冷却的是,“工作范围”将永远用于“积极工作手册”,因此,你可以到“工作”栏,在《工作手册A》中开一个宏观,并且将继续使用《工作手册B》。

资料来源:。

Answer 2

为什么不提及“内部”名称,而不是其明显名称?

Answer 3

如果你想在一份身份不明的工作单上提一个表格(“功能”),你可以做些什么:

Set rng4= Range("tbl_Function[#All]")                        range of table
sh = rng4.Parent.Name                                        name of the worksheet where the table is placed
tbl = Sheets(sh).ListObjects("tbl_Function").Range.Value     take the whole table

希望会有所助益。 Piotr

Answer 4

如果您的桌子上,你可以这样说:

Set Tbl = ActiveSheet.ListObjects("MyTblName")

Answer 5

我在如何保护我的法典方面也存在同样的问题,即表格名称的变化。

I built on Piotr s excellent solution and developed these simplified procedures:-

Private Function connectTable(nmTbl As String) As Range
    Set connectTable = Sheets(Range(nmTbl).Parent.Name).ListObjects(nmTbl).DataBodyRange
End Function


Private Sub clearTable(tbl As Range)
    If tbl Is Nothing Then
        Exit Sub
          MsgBox "already cleared"
    ElseIf tbl.Rows.Count > 0 Then
         MsgBox "about to delete " & tbl.Rows.Count & " rows"
        tbl.Rows.Delete
    End If
End Sub

  Example how to call the above procedures
Public Sub genCashFlow()
Dim tabDetailCF As Range
Dim nmSheetTabDetailCF As String
Dim tabAsset As Range

    Set tabAsset = connectTable("tabAsset")
    Set tabDetailCF = connectTable("tabDetailCF")
    
    Call clearTable(tabDetailCF)

End Sub

友情链接