Microsoft Office Forums - View Single Post - Need excel VBA to add xml tags

Thread: Need excel VBA to add xml tags

View Single Post

Old

12-28-2018, 07:36 PM

Kenneth Hobson Kenneth Hobson is offline

Kenneth Hobson is offline

Kenneth Hobson uses Windows 10

Windows 10 Kenneth Hobson uses Office 2016

Kenneth Hobson uses Office 2016

Office 2016

Advanced Beginner

Join Date: Jun 2018

Posts: 37

Kenneth Hobson is on a distinguished road

Default

Code:

'=ParseCDD(J5)
Function ParseCDD(c As Range) As String
  Dim r As Range, a, i As Long
  a = Split(c, ",")
  For i = 0 To UBound(a)
    a(i) = "<categ no = " & """" & a(i) & """" & "/>"
  Next i
  ParseCDD = Join(a, vbNullString)
End Function

Reply With Quote