命名用一个字符串变量

Sub ShowHideTable() 
    Dim table As ListObject 
    Dim tblTrngl As Shape 
    Dim tblName As String 

Call Shape_Clicked(tblTrngl) 
Let tblName = tblTrngl.Name 
tblName = Replace(tblName, "Trngl", "") 
Let table.Name = tblName

一个的ListObject我已经调试它和tblName正是我希望它是，但是当我尝试设置listobject的名字，我得到一个错误。无论我如何设置，最后一行都会显示错误。我究竟做错了什么？命名用一个字符串变量

来源

2015-11-03 Troy Pickens

没关系我换成最后一行与此设置表= ThisWorkbook.ActiveSheet.ListObjects（tblName） –

你应该回答自己的问题，并把它作为公认的答案所以;） – Climbatize

@TroyPickens你写的答案好，现在请接受它作为正确的，并清除这个问题。谢谢。 – EEM

设置表= ThisWorkbook.ActiveSheet.ListObjects（tblName）

来源

2015-11-03 20:58:09

命名用一个字符串变量

回答

相关问题