powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пожалуйста помогите - мистика какая-то....
25 сообщений из 26, страница 1 из 2
Пожалуйста помогите - мистика какая-то....
    #34205133
Задача - в открытой книге Excel сделать точную копию некоторого листа, поместив в ту же книгу.
(потом дальше надо уже совершать с ней всякие действия, но это не важно)

Не копируется лист...
Я не понимаю, что может НЕ работать в этой процедуре

Sub Macro1()

Sheets("201").Select
Sheets("201").Copy Before:=ThisWorkbook.Sheets(1)
End Sub

Лист "201" есть в книге есть...

Реакции никакой нет, лист не копируется, и сообщений об ошибке нет...
Меняла Sheet на Worksheet и т.д. и т.п. - ничего не помогает. Проявляется на разных версиях Excel

Короче, это даже смешно...

Люди! вся надежда на вас, поможите пожалуйста, может, я чего-то очень важного не понимаю про этот самый Sheets?
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34205284
Gloomer02
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробовал это код - у меня работает.
Проверял так: создал новую книгу, в ней переменовал лист в 201 и запустил скрипт. Все в норме и работает.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34205441
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВячеславовнаЗадача - в открытой книге Excel сделать точную копию некоторого листа, поместив в ту же книгу.
(потом дальше надо уже совершать с ней всякие действия, но это не важно)

Не копируется лист...
Я не понимаю, что может НЕ работать в этой процедуре

Sub Macro1()

Sheets("201").Select
Sheets("201").Copy Before:=ThisWorkbook.Sheets(1)
End Sub

Лист "201" есть в книге есть...

Реакции никакой нет, лист не копируется, и сообщений об ошибке нет...
Меняла Sheet на Worksheet и т.д. и т.п. - ничего не помогает. Проявляется на разных версиях Excel

Короче, это даже смешно...

оно ищет 201-ый !! по счету !! лист
и не находит

лучше не называть листы цифрами


Люди! вся надежда на вас, поможите пожалуйста, может, я чего-то очень важного не понимаю про этот самый Sheets?
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34205594
Gloomer02Попробовал это код - у меня работает.
Проверял так: создал новую книгу, в ней переменовал лист в 201 и запустил скрипт. Все в норме и работает.


Самое противное, что и у меня этот код КОГДА-ТО работал....
И вообще, иногда подобные куски кода срабатывают, иногда нет, причем на одной и той же версии
Excel/VBA
А причину мне не удалось обнаружить, навереное, я где-то не там ищу.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34205801
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вячеславовна Gloomer02Попробовал это код - у меня работает.
Проверял так: создал новую книгу, в ней переменовал лист в 201 и запустил скрипт. Все в норме и работает.


Самое противное, что и у меня этот код КОГДА-ТО работал....
И вообще, иногда подобные куски кода срабатывают, иногда нет, причем на одной и той же версии
Excel/VBA
А причину мне не удалось обнаружить, навереное, я где-то не там ищу.

оно ищет 201-ый !! по счету !! лист
и не находит

лучше не называть листы цифрами
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34206149
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MX -- ALEXоно ищет 201-ый !! по счету !! лист
и не находит

лучше не называть листы цифрами
Что за бред? С каких это пор так стало?
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34206168
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Автору:

Не стоит ли у вас в коде инструкция
авторOn Error Resume Next?
И какая версия офиса?

Если стоит, то закомментируйте ее и смотри что за ошибка.
Возможно если сделать так - поможет.
Избавьтесь от селекта и укажите книгу с листом 201 (описание проблемы), примерно так:
Код: plaintext
Workbooks("Открытая книга с листом 201").Sheets("201").Copy Before:=ThisWorkbook.Sheets( 1 )

...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34206479
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34211688
to Ser Artur : Спасибо! подсказали еще один обходной путь

to MX -- ALEX: Зачем же оно так делает, ищет 201 по счету лист, когда я 201 взяла в кавычки, чтобы сказать ему, что это все-таки строка и надо искать лист с названием "201"? Хотяяя.... поэксперементируем....

to k-nike : нет, инструкции On Error Resume Next нет, и сообщения об ошибке нет... поэтому и возник вопрос, что вообще было неясно куда бежать....
Версия Office - 2003. Поэкспрериментируем с заменой Select-а, хотя что-то подобное я проделывала раньше.

Всем спасибо за помощь, о результатах напишу завтра.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34212967
Итак, результаты: ничего из предложенного вами не помогло, но спасибо все равно.

Моя проблема была в том, что до того в книге было слишком много листов. Они копировались и удалялись, но счетчик все равно крутился, и хотя на текущий момент в книге листов было мало, возникла проблема. Что-то вроде описанного здесь: http://forum.developing.ru/showthread.php?t=7124. Кстати, рецепты, описанные в этой теме, не помогают.

Микрософт знает о существовании этой проблемы
http://support.microsoft.com/kb/210684

По сути, Микрософтом предлагаются два разных рецепта решения проблемы
1е (периодическое сохранение и переоткрытие книги) - не помогает.

2е - импортирование листа из шаблона - да, помогает. Буду работать в этом направлении.

Резюме, в общем-то, обычное - kill Bill.
Потому что в описаниях к Microsoft Escel было заявлено, что
Limited by available memory (default is 3 sheets) (количество листов ограничено доступной памятью)
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34214459
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВячеславовнаПо сути, Микрософтом предлагаются два разных рецепта решения проблемы
1е (периодическое сохранение и переоткрытие книги) - не помогает.
Чтобы этот рецепт помог, надо не просто сохранять книгу, а сохранять ее с указанием нового имени. Причем можно указать старое имя, оно перезапишет поверх собственной старой копии. Но обязательно надо пройти через указание нового имени.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34215012
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Скорей всего автор темы поставил касперского с его голимой приблудой - защитой от VBA макросов
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #34215539
[/quot]Чтобы этот рецепт помог, надо не просто сохранять книгу, а сохранять ее с указанием нового имени. Причем можно указать старое имя, оно перезапишет поверх собственной старой копии. Но обязательно надо пройти через указание нового имени.[/quot]
Именно так я и поступала - сохраняла с новым именем (в попытке избавиться от старых глюков).
Безрезультатно.
To Senin Viktor: защиту от макросов я отключала
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Пожалуйста помогите - мистика какая-то....
    #36198405
Тема старая, проблема та же: не работает копирование листа. В Касперском ВСЕ защиты отключены. Лист копируется из одной книги в другую. Копируемый лист точно есть, тот лист, после которого копируется - тоже. Листы названы строками без пробелов. В исходной книге один лист, в той, в которую копируется - три.

Так в чём всё-таки проблема и как её побороть?
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36198412
Касперский уже после установки разрешения на копирование листов (и всех мало-мальски связанных) был вообще отключён. Эффекта ноль.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36200192
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Выложите образец файлов с кодом.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36207878
FВыложите образец файлов с кодом.

Сохранение и работа с книгой ведётся из 1С 7.7.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
	Excel = СоздатьОбъект("Excel.Application");
	РабочаяКнига = Excel.WorkBooks;
	
	Попытка
		КнигаИсточник = РабочаяКнига.Open(ИмяФайлаИсточника);
	Исключение
		Сообщить("Не удалось открыть файл источник " + ИмяФайлаИсточника+". " + ОписаниеОшибки());
		Возврат;
	КонецПопытки;

	Если ФС.СуществуетФайл(ИмяФайлаПриемника)= 1  Тогда
		КнигаПриемник = РабочаяКнига.Open(ИмяФайлаПриемника);	
	Иначе
		КнигаПриемник = РабочаяКнига.Add();
	Конецесли;	
	
	Если ПрефиксСтраниц = "" Тогда
		ДобавлятьИмяСтраницы =  1 ;
	Иначе
		ДобавлятьИмяСтраницы = ДобавлятьИмя;
	КонецЕсли;	
			
	Попытка
		ЛистИсточник=КнигаИсточник.Sheets("Нагрузка");	
		ЛистПриемник=КнигаПриемник.Sheets("Нагрузка_Образец");     
		ЛистПриемник.Unprotect("DFCZYLHF"); 
		ЛистИсточник.Copy(ЛистПриемник); 
		
		Имя = КнигаПриемник.Sheets( 1 );
		Имя.Name = ПрефиксСтраниц + ?(ДобавлятьИмяСтраницы= 1 , КнигаИсточник.Sheets( 1 ).Name,"");;
			
	Исключение  // вот именно сюда мы и попадаем.
		Сообщить("Не удаётся скопировать лист из файла-образца. Возможно, в установленном антивирусе включена защита от копирования листов с помощью макроса.");
		КнигаИсточник.Close( 1 );
		КнигаПриемник.Close( 1 );
		Excel.Quit(); 
		Excel ="";
	КонецПопытки;

	КнигаИсточник.Close( 1 );
	КнигаПриемник.Close( 1 );
	Excel.Quit(); 
	Excel ="";
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36207986
Уточню ещё раз: на моём ноутбуке (MS Office 2000, WinXP Home SP 2, антивирус - Avira Premium) всё делается на ять.
На рабочем компьютере (MS Office 2007, WinXP Prof SP 3, антивирус - Symantec) тоже всё сохраняется нормально.
На требуемом компьютере (MS Office 2003, WinXP (?), антивирус - Kaspersky) весной работало, теперь не работает. Каспера отключали и выборочно контроль за нужной функцией, и вообще.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36211355
up!

Тема животрепещет.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36211563
$$$
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробуйте этот же код подкорректировать и из Эксель запустить.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36223644
Если б у меня всегда под рукой был тот комп, на котором не работает... Короче, на доступных описанных - работает нормально. Проблема именно в том, что на тот нужно принести уже работоспособный код.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36224451
<><>
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Запустите на том компьютере из-под Excel.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36226049
<><>,

Если бы была такая возможность - запустила бы.

Предположений (без такого запуска) нет?
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36226079
&lt;&gt;&lt;&gt;
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну какие могут быть предположения, если вы даете код на 1С, а не на Excel и к тому же у вас отключена обработка ошибок.
...
Рейтинг: 0 / 0
Пожалуйста помогите - мистика какая-то....
    #36226081
&lt;&gt;&lt;&gt;
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сообщение об ошибке хотя бы получите.
...
Рейтинг: 0 / 0
25 сообщений из 26, страница 1 из 2
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пожалуйста помогите - мистика какая-то....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]