Евгений Шадрин (Автор тем)

Добрый день.

При помощи инструмента "линейка" расставил на карте три точки. Как программно получить координаты этих точек (я вижу их в окне "Свойства", но как их оттуда вытащить в макрос VBs)?

Sub otchetAll
Dim d    
   [COLOR=#0000ff][FONT=Arial Black, Gadget]d[/FONT][/COLOR]=InputBox("Введите дату")
   Set Lss = Application.ActiveDocument.NativeDoc.Layers.Active

Set Result1 = Lss.ExecSQL("SEL ECT [Объект добавил], COUNT(DISTINCT [Номер газопровода]) FR OM [GAS_СЕТИ] WHERE [Дата внесения объекта]>=[COLOR=#0000ff][FONT=Arial Black, Gadget]'07.12.2023'[/FONT][/COLOR] And typeid=2 GROUP BY [Объект добавил]")

Подскажите пожалуйста, как заданную переменную [COLOR=#0000ff][FONT=Arial Black, Gadget]d[/FONT] [/COLOR]подставить вместо надписи [COLOR=#0000ff][FONT=Arial Black, Gadget]'07.12.2023'.[/FONT]
[/COLOR]

Как экспортировать ответ SQL запроса в  LibreOffice Calc? Версия Zulu 10.0.0.8483u.