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

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

Sub Macro1()

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

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

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

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

Люди! вся надежда на вас, поможите пожалуйста, может, я чего-то очень важного не понимаю про этот самый Sheets?
...
Рейтинг: 0 / 0
16.12.2006, 22:23
    #34205284
Gloomer02
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пожалуйста помогите - мистика какая-то....
Попробовал это код - у меня работает.
Проверял так: создал новую книгу, в ней переменовал лист в 201 и запустил скрипт. Все в норме и работает.
...
Рейтинг: 0 / 0
17.12.2006, 03:14
    #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
17.12.2006, 13:21
    #34205594
Пожалуйста помогите - мистика какая-то....
Gloomer02Попробовал это код - у меня работает.
Проверял так: создал новую книгу, в ней переменовал лист в 201 и запустил скрипт. Все в норме и работает.


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


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

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

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

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

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

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

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

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

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

Всем спасибо за помощь, о результатах напишу завтра.
...
Рейтинг: 0 / 0
20.12.2006, 13:15
    #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
20.12.2006, 19:37
    #34214459
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пожалуйста помогите - мистика какая-то....
ВячеславовнаПо сути, Микрософтом предлагаются два разных рецепта решения проблемы
1е (периодическое сохранение и переоткрытие книги) - не помогает.
Чтобы этот рецепт помог, надо не просто сохранять книгу, а сохранять ее с указанием нового имени. Причем можно указать старое имя, оно перезапишет поверх собственной старой копии. Но обязательно надо пройти через указание нового имени.
...
Рейтинг: 0 / 0
21.12.2006, 08:56
    #34215012
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пожалуйста помогите - мистика какая-то....
Скорей всего автор темы поставил касперского с его голимой приблудой - защитой от VBA макросов
...
Рейтинг: 0 / 0
21.12.2006, 11:49
    #34215539
Пожалуйста помогите - мистика какая-то....
[/quot]Чтобы этот рецепт помог, надо не просто сохранять книгу, а сохранять ее с указанием нового имени. Причем можно указать старое имя, оно перезапишет поверх собственной старой копии. Но обязательно надо пройти через указание нового имени.[/quot]
Именно так я и поступала - сохраняла с новым именем (в попытке избавиться от старых глюков).
Безрезультатно.
To Senin Viktor: защиту от макросов я отключала
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
16.09.2009, 10:41
    #36198405
Пожалуйста помогите - мистика какая-то....
Тема старая, проблема та же: не работает копирование листа. В Касперском ВСЕ защиты отключены. Лист копируется из одной книги в другую. Копируемый лист точно есть, тот лист, после которого копируется - тоже. Листы названы строками без пробелов. В исходной книге один лист, в той, в которую копируется - три.

Так в чём всё-таки проблема и как её побороть?
...
Рейтинг: 0 / 0
16.09.2009, 10:43
    #36198412
Пожалуйста помогите - мистика какая-то....
Касперский уже после установки разрешения на копирование листов (и всех мало-мальски связанных) был вообще отключён. Эффекта ноль.
...
Рейтинг: 0 / 0
16.09.2009, 22:05
    #36200192
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пожалуйста помогите - мистика какая-то....
Выложите образец файлов с кодом.
...
Рейтинг: 0 / 0
21.09.2009, 14:52
    #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
21.09.2009, 15:23
    #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
22.09.2009, 20:00
    #36211355
Пожалуйста помогите - мистика какая-то....
up!

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

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

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


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