How to add metadata

Question

Hi Team,
We have a req where we need to modify the existing metadata with an additional Custom Dimension. We need to add close to 300 members along with property under this custom dimension...How should i do it??
Manually adding members through web client is difficult.Please suggest me an option..
Thanks in advance

Answer 1

Hi,
I wrote this. It 's knotty but it works and it puts apostrophes, because I delete them by another macro in order not to miss them in the elements names.) So you need to delete aphostrophes or they will duplicate in columns header names.
Const Delimiter = "|"
Const MetadataVersion = 1
Sub ExportDataToTxt()
    Dim lLastRow As Integer, lLastCol As Integer, c As Range, Ran As Range, Str As String, Apostrophe As Boolean, DelimiterCount As Integer
    Apostrophe = False
    lLastRow = Cells(1, 1).SpecialCells(xlLastCell).Row
    lLastCol = Cells(1, 1).SpecialCells(xlLastCell).Column
    DelimiterCount = 0
    Dim fileSaveName As Variant
    fileSaveName = Application.GetSaveAsFilename("Metadata_" & MetadataVersion, fileFilter:="HFM metadata files (*.ads), *.ads")
    If fileSaveName = False Then
        Exit Sub
    End If
    Dim fs As Object
    Dim DataFile As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set DataFile = fs.CreateTextFile(fileSaveName, True)
    Set Ran = Range(Cells(1, 1), Cells(lLastRow, lLastCol))
    Str = ""
    For Each c In Ran.Cells
        If c.Column = 1 Then
            If Apostrophe Then
                Str = "'"
             Else: Str = ""
            End If
        End If
        Str = Str & c.Value & Delimiter
        If c.Column = lLastCol Then
            If Apostrophe Then
                Apostrophe = False
                Str = TrimDelimiters2(Str)
                DelimiterCount = CountSymbols(Str, Delimiter)
            End If
            If Left(Str, 1) = "!" Then Str = TrimDelimiters(Str, DelimiterCount)
                Str = TrimDelimiters(Str, DelimiterCount)
                If Len(Str) = CountSymbols(Str, Delimiter) Then Str = ""
            DataFile.WriteLine (Str)
            If Left(Str, 1) = "!" And InStr(Str, "!FILE_FORMAT") = 0 And InStr(Str, "!VERSION") = 0 Then Apostrophe = True
        End If
    Next
    DataFile.Close
End Sub
Public Function TrimDelimiters(S As String, quantity As Integer) As String
    Dim i As Integer, c As Integer, Bool As Boolean
    Bool = False
    For i = 1 To Len(S)
        'If Mid(s, i, 1) <> Delimiter Then C = i
        If Bool = False Then
            If CountSymbols(Left(S, i), Delimiter) = quantity + 1 Then c = i - 1: Bool = True
        End If
    Next
    If Left(S, 1) = "!" Or Len(S) = CountSymbols(S, Delimiter) Then
        For i = 1 To Len(S)
            If Mid(S, i, 1) <> Delimiter Then c = i
        Next
    End If
    If CountSymbols(S, Delimiter) = quantity - 1 Then
        For i = 1 To Len(S)
            If Mid(S, i, 1) <> Delimiter Then c = i
        Next
    End If
    If CountSymbols(S, Delimiter) <= quantity Then
        TrimDelimiters = S
        Exit Function
    End If
    TrimDelimiters = Left(S, c)
End Function
Function CountSymbols(S As String, char As String) As Integer
    Application.Volatile True
    Dim TestPos As Integer
    CountSymbols = 0
    TestPos = 1
    Do While InStr(TestPos, S, char) > 0
        CountSymbols = CountSymbols + 1
        TestPos = InStr(TestPos, S, char) + Len(char)
    Loop
End Function
Public Function TrimDelimiters2(S As String) As String
    Dim i As Integer, c As Integer   
    For i = 1 To Len(S)
        If Mid(S, i, 1) <> Delimiter Then
            c = i
        End If
    Next
    TrimDelimiters2 = Left(S, c)
End Function