Доброго времени суток! Подскажите пример

[ForumOOo (бот)]

Компонент: Calc
Версия продукта: 4.1.x
Сборка:
ОС:

Доброго времени суток!
Подскажите  пожалуйста пример диалогового окна с макросом для ввода данных в таблицу из listBox
Спасибо.

--
Подпись: K8611

[rami]

Эта тема обсуждалась здесь:
http://forumooo.ru/index.php/topic,3636.0.html

[K8611]

Спасибо! Пример очень хороший, но проблема в том, что при выборе из listbox  несколько значений в ячейку переносится одно первое выбранное, по списку.
ThisComponent.Sheets(0).getCellRangeByName("A" & CStr(n)).String = Dialog1.GetControl("lstBox1").SelectedItem

[JohnSUN]

А надо в одну ячейку затолкать всё выделенное? Тогда нужно обращаться не к свойству SelectedItem (одна строка), а к SelectedItems (массив строк). И преобразовывать его в одну строку чем-то вроде

Код Выделить Развернуть

ThisComponent.Sheets(0).getCellByPosition(0, (n-1)).setString(Join(Dialog1.GetControl("lstBox1").SelectedItems, ", "))

[rami]

JohnSUN, убери лишнюю скобку после n-1.
Я думаю, что он хочет вставить не в одну ячейку, а в одну колонку. Тогда нужно перебрать ячейки циклом.

Код Выделить Развернуть

Sub spisok  Dim sListBox(), i%
sListBox= Dialog1.getControl("lstBox1").getSelectedItems()
For i=0 To UBound(sListBox)
ThisComponent.getCurrentController.ActiveSheet.getCellByPosition(0,i+3).String=sListBox(i)
Next
End Sub

[JohnSUN]

JohnSUN, убери лишнюю скобку после n-1.

Да нет, я лучше ещё одну перед n поставлю. Для наглядности 

Я думаю, что он хочет вставить не в одну ячейку, а в одну колонку.

Он уже в личку отписался (почему не в форум - не знаю) - именно то, что и задумывалось.

[K8611]

Ещё раз спасибо! Мне диалог нужен для построчного ввода данных в таблицу.Всё что хотел - получилось