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

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

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

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

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

так вот

Delete Shift:=xlToLeft

аналог

 Delete(-4159)

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

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

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

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

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

А так:

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

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



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

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

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


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


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

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

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

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

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

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