Flexible Concatenation Function

[snb]

Hi Rick,

Nice function you wrote.
Using the ADO 3.0 library I came up with:

Function concat_snb(c00, c01, c02, c03)
    With New ADODB.Recordset
      .Open "SELECT [" & c00 & "] FROM `" & c01 & "$`;", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
      concat_snb = .GetString(, , c02, c03)
    End With
End Function

Sub snb()
    MsgBox concat_snb(Range("D1").Value, ActiveSheet.Name, "|", vbLf)
End Sub

In this case you can choose:
- which field delimiter to use
- which row delimiter to use
- which fields to concatenate
- how many rows to concatenate



https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgwviLabd7r_3KpP6wh4AaABAg. 9h5lFRmix1R9h78GftO_iE
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg. 9h740K6COOA9h77HSGDH4A
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg. 9h740K6COOA9h76fafzcEJ
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg. 9h740K6COOA9h759YIjlaG
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg. 9h740K6COOA9h74pjGcbEq
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgyG714V_k7odQMrTz14AaABAg
https://www.youtube.com/watch?v=2oT4qrHmDMY&lc=UgzJJUDVv2Mb6YGkPYh4AaABAg. 9h5uPRbWIZl9h7165DZdjg
https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

[Rick Rothstein]

Nice function you wrote.
Using the ADO 3.0 library I came up with:

Thanks for commenting. I have never had to deal with data base programming before, so I cannot comment on your code. However, I do notice that Admin has responded indicating that a problem may exist with your approach, so I'll just let things stand at that.

[Rick Rothstein]

I have revised the code for the ConCat function in Message #1 (the original thread message) and am using this message as an alert to those who may be subscribed to this thread. I have added the ability specify which order cells in rectangular ranges should be concatenated in... read the revised description in Message #1 to see how to work with this new functionality.