打开所选表的连接属性

Question

我是VBA的新手，因此需要您的帮助。

我想要什么？
VBA代码，用于打开所选表的“数据”>“属性”>“连接属性”>“定义”。

不知道这是否重要，但我正在尝试从SAS导入的表。

我尝试了什么？
记录宏以检查所需的步骤。

我发现的问题？
记录的宏显示了我选择的表所需的步骤，但引用的是特定名称，而不是“活动表”。

记录的宏的代码：

Sub teste()
'
' teste Macro
'

'
    Range("D4").Select
    With ActiveWorkbook.Connections("(Default) MY_TABLE_NAME").OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array("MY_TABLE_NAME")
        .CommandType = xlCmdTable
        .Connection = Array( _
        "OLEDB;Provider=MY_PROVIDER_LOCATION;Mode=Read|Sha" _
        , _
        "re Deny None;Use TK Manager Search Path=False;SAS Data Set Creation Code Page=0;SAS ValidMemName Read Update=False;SAS Adjust St" _
        , "arting Date 1900=False")
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = _
        "MY_ODC_LOCATION"
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("(Default) MY_TABLE_NAME")
        .Name = "(Default) MY_TABLE_NAME"
        .Description = ""
    End With
    ExecuteExcel4Macro _
        "(""(Default) MY_TABLE_NAME"",TRUE,FALSE,FALSE,TRUE,FALSE,TRUE,1,FALSE,TRUE,FALSE,0,TRUE,""MY_ODC_LOCATION"")"
End Sub