Как экспортировать ответ SQL запроса в LibreOffice Calc? Версия Zulu 10.0.0.8483u.
Экспорт ответа SQL запроса в LibreOffice Calc(.ods)
05.12.2023 12:04:24
|
|
|
|
05.12.2023 13:33:32
|
|||
|
|
05.12.2023 15:16:16
|
|||||||
|
|
07.12.2023 10:46:31
Решил задачу через макрос. Вывод запроса в LibreOffice Calc
Sub Libre Set L1=Zulu.ActiveMapDoc.Layers.Active Set Res12=L1.ExecSQL("SELECT DISTINCT[ty_FIO],[ty_Q],[eks_no] WHERE typeid=2 AND [ty_FIO] IS NOT NULL") Set oSM = CreateObject("com.sun.star.ServiceManager") Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop") Dim arg() Set wb = oDesk.loadComponentFromURL("private:factory/scalc","_blank", 0, arg) Set oSheet = wb.CurrentController.ActiveSheet oSheet.getCellByPosition(2, 2).String = "Заказчик" oSheet.getCellByPosition(3, 2).String = "Расход" oSheet.getCellByPosition(4, 2).String = "Архивный номер" Set objRecordSet=Res12.DataSetrow=3 Do Until objRecordSet.EOF For i = 1 To objRecordSet.FieldCount 'objWorksheet.Cells(row, i+1).Value = objRecordSet.FieldDisplayValue(i - 1) oSheet.getCellByPosition(i+1,row).String=objRecordSet.FieldDisplayValue(i-1) Next row = row + 1 objRecordSet.MoveNext Loop msgBox "Выполнено" end sub
Изменено: |
|
|
|
13.02.2024 12:11:08
Вот еще полезный ресурс где Вы можете посмотреть различные методы работы с LibreOffice Calc для написания макросов на VBScript -
|
||||
|
|
|||