Aggiungere colonna con nome Variabile

Hai un problema con Excel?

Nuova discussione

Aggiungere colonna con nome = Variabile
di MrK (utente non iscritto) data: 28/03/2014 11:45:51
Ciao,

Ho una Structured Table e vorrei aggiungere una colonna. Fin qua nessun problema.

La colonna dovrebbe avere un header relativo a una variabile.

Se do al header un nome "test1" funziona ma se uso s_Tmp_Name rimane Column1.

Grazie

Private Function AddColumnToTable(Colname As String)
    
    
    Dim l_ColNum_Actual As Integer
    Dim s_Tmp_Name As String

    
    s_ColName_Start_Cost = "START_COST"
    s_ColName_End_Cost = "END_COST"
    
    s_Tmp_Name = Colname
    l_ColNum_Actual = Range("T_CALCULATION[#Headers]").Find(What:=s_ColName_End_Cost, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False).Column
    Range("T_CALCULATION[#Headers]").ListObject.ListColumns.Add Position:=l_ColNum_Actual - 1

    Range("T_CALCULATION[#Headers]").ListObject.ListColumns(l_ColNum_Actual - 1).Name = "TEST1"
    Range("T_CALCULATION[#Headers]").ListObject.ListColumns(l_ColNum_Actual - 1).Name = s_Tmp_Name
    
    
End Function

di scossa data: 28/03/2014 13:53:27
Non è che il nome che provi a passargli non è valido?

Prova a passargli un nome semplice, per esempio "TEST5"
Sub prova() Call AddColumnToTable("TEST5") End Sub

Vuoi Approfondire?