[Skodnik]

Добрый день, форумчане!
То ли погода дает о себе знать, то ли еще не проснулся. Необходимо в обработке, при открытии Ексель-файла удалить первые 4 столбца:

 РабочаяКнига=ExcelApp.Workbooks.Open(СокрЛП(ВыбФайл)); 
 Страница  = РабочаяКнига.Worksheets(1); 
 Страница.Range("A:D").Delete(-4159);  //не удаляется

[-=VJ=-]

А зачем там "(-4159)"?
И зачем Range? Удаляйте Columns.

Сообщение отредактировал -=VJ=- - 25.03.13, 11:22

[Skodnik]

А зачем там "(-4159)"?
И зачем Range? Удаляйте Columns.

Записал макрос в Екселе, по удалению строк

Columns("A:D").Select
Selection.Delete Shift:=xlToLeft

так вот

Delete Shift:=xlToLeft

аналог

 Delete(-4159)

[Vofka]

А можно узнать цель?

[Skodnik]

А можно узнать цель?

Со сторонней программы выгружаются данные в Ексель файл.
В обработке 1С четко указано с какой колонки брать данные. Обрабатывается порядка 20 колонок.
Форма Ексель файла с данными поменялась, добавилось вначале 4 колонки, вот чтоб не менять номера колонок по обработке, думаю проще удалить эти 4 столбца.

[-=VJ=-]

Записал макрос в Екселе, по удалению строк

xlToLeft - это не удаление строк, это именно удаление диапазона, после которого оставшиеся ячейки необходимо сдвинуть (xlToLeft можно вообще не употреблять, они по умолчанию двигаются влево).
Для колонок это всё необязательно.
Columns(i).Delete в цикле и всё.

Сообщение отредактировал -=VJ=- - 25.03.13, 11:48

[Skodnik]

xlToLeft - это не удаление строк, это именно удаление диапазона, после которого ячейки можно сдвинуть либо влево(xlToLeft), либо вверх.
Для колонок это всё необязательно.
Columns(i).Delete в цикле и всё.

Мне и надо удалить диапазон с 4 колонок:"A" "B" "C" "D" и сдвинуть ячейки в лево
Пример:

[Vofka]

вот чтоб не менять номера колонок по обработке, думаю проще удалить эти 4 столбца.

Лично я считаю, что проще и правильнее поменять номера колонок. Но кто же ищет легкий путь.

[Flexy]

А так:

ХлТуЛэфт = Число(-4159);
Columns("A:D").Select
Selection.Delete Shift:=ХлТуЛэфт

Сообщение отредактировал Flexy - 25.03.13, 12:09

[-=VJ=-]

Мне и надо удалить диапазон

удалить первые 4 столбца

Определитесь тогда сначала, что Вам нужно удалять - диапазон или столбцы.

Лично я считаю, что проще и правильнее поменять номера колонок. Но кто же ищет легкий путь.

правильнее и проще первым ячейкам колонок давать названия и потом искать по названию, а не по номеру - тогда сколько ни добавляй, всё равно будет работать.

но легкие пути - таки да

[Skodnik]

А так:

ХлТуЛэфт = Число(-4159);
Columns("A:D").Select
Selection.Delete Shift:=ХлТуЛэфт

Не получиться!

Определитесь тогда сначала, что Вам нужно удалять - диапазон или столбцы.

Удалить то надо столбцы.

правильнее и проще первым ячейкам колонок давать названия и потом искать по названию, а не по номеру - тогда сколько ни добавляй, всё равно будет работать.

но легкие пути - таки да

Названия колонкам не давали, писал ведь что выгрузка происходит со сторонней программы и поменять шаблон выгрузки в ексель я не могу.

[-=VJ=-]

Удалить то надо столбцы.

Целиком? Сверху донизу? Или всё же вертикальный диапазон?

[Skodnik]

Целиком? Сверху донизу? Или всё же вертикальный диапазон?

Целиком удалить 4 первых столбца от первой строчки до последней, я пример на картинке показал как надо.

[Skodnik]

Так вот работает. VJ во втором посте подсказывал.

РабочаяКнига = ExcelApp.Workbooks.Open(СокрЛП(ВыбФайл)); 
Страница  = РабочаяКнига.Worksheets(1); 
Страница.Columns("A:D").Delete(-4159);

[Vofka]

VJ во втором посте подсказывал.

А где же плюс VJ-ю?