Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
удаление столбцов из другой открытой книги
 
#1
10.10.2019 12:31:01

 

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

Код
Sub удалениестолбцов()
Dim wb As Workbook
Set wb = Workbooks.Ореn("Проверка.xlsx")
wb.Sheets("Хранение").Columns("E:E,G:G,H:H").Delete Shift:=xlToLeft
End Sub
 
 
 
#2
10.10.2019 12:41:40
Код
Sub удалениестолбцов()
    Dim wb As Workbook
    Set wb = Workbooks.Ореn("Проверка.xlsx")
    Dim v As Variant
    For Each v In Array("H:H", "G:G", "E:E")
        wb.Sheets("Хранение").Columns(v).Delete Shift:=xlToLeft
    Next
End Sub
Изменено: МатросНаЗебре - 10.10.2019 13:29:47
 
 
 
#3
10.10.2019 13:00:14
ошибка metod оr data member not found(
 
 
 
#4
10.10.2019 13:10:02
А замените Sheets(1) на Sheets("Хранение").
 
 
 
#5
10.10.2019 13:20:47
не помогло, подсвечивает строку sub
Изменено: slider85 - 10.10.2019 13:20:55
 
 
 
#6
10.10.2019 13:25:57
А переименуйте макрос в любое слово. Вместо "удалениестолбцов", например, "DelCol".
 
 
 
#7
10.10.2019 16:27:53
Аналогичная ошибка. Еще правда когда высвечивается ошибка - синим выделено слово open в коде, только после закрытия ошибки происходит выделение строки sub.
Может здесь проблема?
 
 
 
#8
10.10.2019 16:42:28
Укажите полное имя файла вместе с путём. "C:\Работа\Проверка.xlsx"
 
 
 
#9
15.10.2019 12:49:32
Убрал open в Workbooks.Ореn и все работает! Спасибо за помощь)
 
 
 
Страницы: 1
Наверх