|
Удалить пустые строки XLS |
☑ |
0
1CVERYGOOD
30.12.13
✎
13:07
|
Подскажите как в выбранном листе в excel файле удалить пустые строки ?
|
|
1
Wobland
30.12.13
✎
13:07
|
примерно так же, как это делает записанный тобой макрос
|
|
2
1CVERYGOOD
30.12.13
✎
13:09
|
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub
а в 1с ?
|
|
3
1CVERYGOOD
30.12.13
✎
13:13
|
Вот так не работает.
Эксель = Новый COMObject("Excel.Application");
Книга = Эксель.WorkBooks.Open(ФайлИтог);
Лист = Книга.WorkSheets(ЛистИтог);
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
ДЛЯ й=1 ПО ВсегоСтрок ЦИКЛ
ЕСЛИ СокрЛП(Лист.Cells(ВсегоСтрок+1,1).Value) = "" ТОГДА
Лист.Rows(й).Delete();
й=й-1;
Иначе
ПРЕРВАТЬ;
КОНЕЦЕСЛИ;
КОНЕЦЦИКЛА;
|
|
4
Wobland
30.12.13
✎
13:14
|
а цикл неплох
|
|
5
Fish
гуру
30.12.13
✎
13:17
|
(3) И не будет так работать.
|
|
6
1CVERYGOOD
30.12.13
✎
13:29
|
А как будет работать ?
|
|
7
Fish
гуру
30.12.13
✎
13:32
|
(6) Во-первых, у тебя кривой цикл. А во-вторых, у тебя всё написано в твоём макросе в (2).
|
|
8
1CVERYGOOD
30.12.13
✎
13:37
|
Как это записать в синтаксисе 1С ?
|
|
9
Fish
гуру
30.12.13
✎
13:41
|
(8) Как-то так:
Эксель.Rows("1:1").Select();
Эксель.Selection.Delete();
Попробуй так, возможно без параметра Shift: сработает, а если нет, надо смотреть, чему он может быть равен.
|
|