Привет всем!
Написал небольшой цикл в VBA, в экселе, в принципе что в аксессе,что в экселе смысл один и принцип такой же.
Процедурка выполняет следующее : бежит по выделенному диапазону значений ,склеивает значения в одну строку и записывает в буфер обмена, чтобы потом можно было сразу при помощи Ctrl+V вставить в нужное место в другую программу:

...
Dim cur_range As Range

    With ActiveSheet
         Set cur_range = Selection
            cur_range.Activate
        
        For Each x In cur_range
           s = s & x & ","
            Next x

        Dim d As New DataObject
          d.SetText (s)
           d.PutInClipboard
            MsgBox s   

    End With
....

Все отлично выполняется, единственно что режет глаз, это то, что после последнего элемента всегда проставляется запятая.
Тело склейки в цикле s = s & x & ","

Можно ли как нибудь прямо цикле сделать так, чтобы последний элемент не заканчивался запятой?
Обрецать итоговую строку можно конечно: d.SetText(Left(s, Len(s) - 1)), но наверное это не по феншую.

http://www.sql.ru/forum/1301541/cikl-vba-nebolshaya-dorabotka