Несмотря на простоту и минимализм задачи, она сломала мне голову.
Есть файл XLS в котором таблица на 160000+ строк с разными числами.
Нужно:
- Найти все строки, в которых все ячейки пустые;
- Над/под каждой такой строкой прочертить линию;
- Удалить всю пустую строку.
Получается, надо из такого документа:
Сделать такой документ:
UPDATE
Задача решилась самостоятельно. Спасибо за уделённое время. Ничто так не воодушевляет как поддержка неравнодушных людей.
При написании макроса были использованы ресурсы:
В частности конкретные страницы гайда OpenOffice BASIC:
Решением отметил ответ товарища @JohnSUN.
Код получившегося макроса:
REM ***** BASIC *****
Sub Main
Dim oDoc As Object
Dim oSheet As Object
Dim oCellRange As Object
Dim oCursor As Object
Dim lRowCnt As Long
Dim lColCnt As Long
Dim lRowCur As Long
Dim bEmptyRow As Boolean
Dim oBorder As Object
Dim BLine As New com.sun.star.table.BorderLine
' устанавливаем ширину рисуемой линии
BLine.OuterLineWidth = 60
' устанавливаем цвет рисуемой линии
BLine.Color = RGB(0, 0, 0)
' текущий документ
oDoc = ThisComponent
' активная страница
oSheet = oDoc.getCurrentController.activeSheet
' определяем количество колонок по первой строке
lColCnt = 0
While oSheet.getCellByPosition(lColCnt, 0).type <> com.sun.star.table.CellContentType.EMPTY
lColCnt = lColCnt + 1
Wend
' определяем количество строк
oCursor = oSheet.createCursor
oCursor.gotoEndOfUsedArea(True)
lRowCnt = Curs.Rows.Count
' устанавливаем текущую строку
lRowCur = 1
' основной цикл макроса
while lRowCur < lRowCnt
' проверяем пустая ли текущая строка
bEmptyRow = true
For cColCur = 0 to lColCnt-1
If oSheet.getCellByPosition(cColCur, lRowCur).Type <> com.sun.star.table.CellContentType.EMPTY Then bEmptyRow = false
Next cColCur
If bEmptyRow Then
' если найдена пустая строка
' выделяем строку выше
oCellRange = oSheet.getCellRangeByPosition(0, lRowCur-1, lColCnt-1, lRowCur-1)
' рисуем линию по нижнему бортику ячеек
oBorder = oCellRange.TableBorder
oBorder.BottomLine = BLine
oCellRange.TableBorder = oBorder
' удяляем одну строку
oSheet.rows.removeByIndex(lRowCur, 1)
' количество строк уменьшилось на одно после удаления
lRowCnt = lRowCnt - 1
Else
' если найдена не пустая строка
' инкремент индекса текущей строки
lRowCur = lRowCur + 1
End If
Wend
' дальнейшие строки кода выполняют не входившие в условия задачи действия,
' а именно рисуют внешнюю рамку
oCellRange = oSheet.getCellRangeByPosition(0, 0, lColCnt-1, lRowCnt-1)
oBorder = oCellRange.TableBorder
oBorder.BottomLine = BLine
oBorder.TopLine = BLine
oBorder.LeftLine = BLine
oBorder.RightLine = BLine
oCellRange.TableBorder = oBorder
End Sub