Имя: Пароль:
1C
1С v8
Удалить пустые строки 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: сработает, а если нет, надо смотреть, чему он может быть равен.