Не создаётся новый лист

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Не создаётся новый лист (Макросы/Sub)

timo64uk Дата: Воскресенье, 15.12.2024, 04:41 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 1 ±

Замечаний: 0% ±

Office16

Добрый день

Sheets("Sheet1").Select Sheets("Sheet1").Copy Before:=Sheets(1)

Код из макрорекордера выдает ошибку. И ладно бы лишь он. Пробовал на разных книгах разные темы с новыми листами и везде одинаковый результат: "expected variable or procedure, not module".
А этот

Sheets.Add

выдает ошибку "method or data member not found".
Работает лишь создание нового листа

Worksheets.Add.Name = "1111"

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

К сообщению приложен файл: list_microsoft_excel_2.xlsx (6.1 Kb) · 6549017.png (37.0 Kb)

Ответить

timo64uk Дата: Воскресенье, 15.12.2024, 04:56 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 1 ±

Замечаний: 0% ±

Office16

Worksheets("Sheet1").Copy Before:=Worksheets(1)

Добавил к sheets приставку Work и заработал код.
Хотя до этого в поиске решения подбирал Active...

Ответить

boa

Дата: Среда, 25.12.2024, 20:22 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 563

Репутация: 167 ±

Замечаний: 0% ±

365

timo64uk,
Что бы компилятор не ругался и код всегда обращался к нужному объекту, всегда указывайте полный путь к объекту, например:
Application.ThisWorkbook.Sheets("Sheet1").Copy Before:=Sheets(1)

Ответить

Не создаётся новый лист (Макросы/Sub)

Страница 1 из 1
1