sheets(1).copy before:=sheets(1) не срабатывает

27.10.2011, 14:12. **Показов** 3586. **Ответов** 7

Author24 — интернет-сервис помощи студентам

почему-то не получается скопировать из макроса лист!!! на sheets(1).copy before:=sheets(1) макрос просто обрывается при выполнении и при этом не выдает никаких сообщений. В ручную лист копируется нормально. Макрорекордер записывает все это в макрос как положено... но сам макрос не копирует. Попробовал на другом компьютере все работает нормально. Знает кто-то причину???

@alex_gearbox · 27.10.2011, 15:34

Тож горюсь на Excel, хотя, наверно, зря. Выскакивает ошибка использования Select к Range при обращении к листу по (Name) (забыл, как правильно).

31.10.2011, 13:55

to alex_gearbox: Проверь активирован ли у тебя вначале сам лист (Sheets(Name).Activate)

@alex_gearbox · 31.10.2011, 18:11

Тут какая проблема: строчка ws1.Range("A1").Select вызывает ошибку (т.е. программа на ней "спотыкается"). По-моему ws1.Activate есть, но надо проверть )

@alex_gearbox · 31.10.2011, 18:13

P.S.: ws1 - это не переменная, это (Name) листа.

02.11.2011, 10:55

to alex_gearbox: тогда надо все-таки Sheets("ws1")
to all: выручайте!!! почему может не работать копирование листа (при этом Move работает)??? и это не на всех компах - на двух с оффисХР и 2003 макрос обрывается, зато на еще двух с оффисХР все работает. Help me!!!

02.11.2011, 10:57

PS. при этом всем макрос не выдает ошибку а просто заканчивает свое исполнение

@alex_gearbox · 02.11.2011, 16:44

Решил:
п.1. Ведь забыл, что после [bold]Selection.Copy[/bold] мало каких команд можно использовать, а я использовал [bold]Columns("A:A").ClearContents[/bold] и после этого [bold]Selection.PasteSpecial[/bold] (со всеми нужными параметрами, конечно). Переместил [bold]Columns("A:A").ClearContents[/bold] выше по коду и теперь всё нормально.
п.2. Вместо (Name) листа использую индекс листа, предварительно защитив структуру книги, чтобы нельзя было менять листы местами.

alexsas
		1
	sheets(1).copy before:=sheets(1) не срабатывает 27.10.2011, 14:12. Показов 3586. Ответов 7 Метки нет (Все метки) почему-то не получается скопировать из макроса лист!!! на sheets(1).copy before:=sheets(1) макрос просто обрывается при выполнении и при этом не выдает никаких сообщений. В ручную лист копируется нормально. Макрорекордер записывает все это в макрос как положено... но сам макрос не копирует. Попробовал на другом компьютере все работает нормально. Знает кто-то причину???

@alex_gearbox 0 / 0 / 0 Регистрация: 12.07.2011 Сообщений: 45
	27.10.2011, 15:34	2
	Тож горюсь на Excel, хотя, наверно, зря. Выскакивает ошибка использования Select к Range при обращении к листу по (Name) (забыл, как правильно). 0

alexsas
	31.10.2011, 13:55	3
	to alex_gearbox: Проверь активирован ли у тебя вначале сам лист (Sheets(Name).Activate)

@alex_gearbox 0 / 0 / 0 Регистрация: 12.07.2011 Сообщений: 45
	31.10.2011, 18:11	4
	Тут какая проблема: строчка ws1.Range("A1").Select вызывает ошибку (т.е. программа на ней "спотыкается"). По-моему ws1.Activate есть, но надо проверть ) 0

@alex_gearbox 0 / 0 / 0 Регистрация: 12.07.2011 Сообщений: 45
	31.10.2011, 18:13	5
	P.S.: ws1 - это не переменная, это (Name) листа. 0

alexsas
	02.11.2011, 10:55	6
	to alex_gearbox: тогда надо все-таки Sheets("ws1") to all: выручайте!!! почему может не работать копирование листа (при этом Move работает)??? и это не на всех компах - на двух с оффисХР и 2003 макрос обрывается, зато на еще двух с оффисХР все работает. Help me!!!

alexsas
	02.11.2011, 10:57	7
	PS. при этом всем макрос не выдает ошибку а просто заканчивает свое исполнение

@alex_gearbox 0 / 0 / 0 Регистрация: 12.07.2011 Сообщений: 45
	02.11.2011, 16:44	8
	Решил: п.1. Ведь забыл, что после [bold]Selection.Copy[/bold] мало каких команд можно использовать, а я использовал [bold]Columns("A:A").ClearContents[/bold] и после этого [bold]Selection.PasteSpecial[/bold] (со всеми нужными параметрами, конечно). Переместил [bold]Columns("A:A").ClearContents[/bold] выше по коду и теперь всё нормально. п.2. Вместо (Name) листа использую индекс листа, предварительно защитив структуру книги, чтобы нельзя было менять листы местами. 0