Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Создание копии листа в новый файл
 
#1
11.08.2010 17:32:16
Уважаемые знатоки Excel!  
 
Подскажите плз, как реализовать создание копии листа книги в новый файл по нажатию кнопочки.  
 
Заранее спасибо!
 
 
 
#2
11.08.2010 17:39:48
{quote}{login=Koks}{date=11.08.2010 05:32}{thema=Создание копии листа в новый файл}{post}Уважаемые знатоки Excel!  
 
Подскажите плз, как реализовать создание копии листа книги в новый файл по нажатию кнопочки.  
 
Заранее спасибо!{/post}{/quote}  
 
Дополнение: копирование должно быть в фоновом режиме, а новая книга называлась именем листа. :)
 
 
 
#3
11.08.2010 17:42:51
Всё это уже многократно обсуждалось... Скопируйте название Вашей темы в окошко поиска.
 
 
 
#4
11.08.2010 18:13:10
{quote}{login=Юрий М}{date=11.08.2010 05:42}{thema=}{post}Всё это уже многократно обсуждалось... Скопируйте название Вашей темы в окошко поиска.{/post}{/quote}  
 
Чет не нашел того, что нужно мне.. :(  
Либо копия в текущую книгу, либо копия всей книги...
 
 
 
#5
11.08.2010 18:23:39
{quote}{login=The_Prist}{date=11.08.2010 06:19}{thema=}{post}Koks, Я это называю элементарной ленью.  
Вы пробовали то, что Вам нужно макрорекордером записать? Попробуйте, помогает.  
В следующей такой же теме помогать не буду -закрою с пометкой - ЛЕНИВЫЙ.  
 
dim sNewBookName as string  
sNewBookName = ActiveSheet.Name  
ActiveSheet.Copy  
activeworkbook.Name = sNewBookName{/post}{/quote}  
 
Я извиняюсь, но что такое макрорекодер? Я как бы не особо в экселе. Просвятите плз! ТОгда можету  меня будет меньше вопросв... :)
 
 
 
#6
11.08.2010 18:42:37
Всем добрый день. Дим, посмотри, что у меня выдает твой код.
Я сам - дурнее всякого примера! ...
 
 
 
#7
11.08.2010 18:48:35
{quote}{login=The_Prist}{date=11.08.2010 06:25}{thema=Re: Re: }{post}{quote}{login=Koks}{date=11.08.2010 06:23}{thema=Re: }{post}что такое макрорекодер?{/post}{/quote}  
<EM>http://excel-vba.ru/Tips_Macros.html</EM>{/post}{/quote}  
 
Спасибо огромное!  
Попробовал сам сделать макрос - получилось :)  
Если позволите у меня пара вопросов:  
1. как запретить ему копироваьт кнопку с листа?  
2. как научить его создаваь новую книгу в тойже дириктории, чтобы на других ПК работало?  
 
Спасибо!
 
 
 
#8
11.08.2010 18:53:30
Определитесь со следующим:  
1. Если файл с таким названием в этой папке уже есть - перезаписать молча, задать вопрос на подтверждение перезаписи, или что-то еще?  
2. Если перезаписать не удается (скажем, файл открыт) - что делать?  
 
ЗЫ 21226 - сегодня почти в каждом посте покерная комбинация! :))
 
 
 
#9
11.08.2010 18:53:43
Так:  
Dim sNewBookName As String, a As String  
a = ThisWorkbook.Path & "\"  
sNewBookName = ActiveSheet.Name  
ActiveSheet.Copy  
ChDir ThisWorkbook.Path  
ActiveWorkbook.SaveAs a & sNewBookName  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#10
11.08.2010 19:00:52
Забыл удалить - строка:  
ChDir ThisWorkbook.Path  
не нужна.
Я сам - дурнее всякого примера! ...
 
 
 
#11
12.08.2010 08:37:50
{quote}{login=KuklP}{date=11.08.2010 06:53}{thema=}{post}Так:  
Dim sNewBookName As String, a As String  
a = ThisWorkbook.Path & "\"  
sNewBookName = ActiveSheet.Name  
ActiveSheet.Copy  
ChDir ThisWorkbook.Path  
ActiveWorkbook.SaveAs a & sNewBookName  
End Sub{/post}{/quote}  
 
Шикарно! Еще дописал строку, чтобы закрывал созданный файл.  
Вот тольок не получается удалить кнопку, созданную из картинки. :(  
Обычную кнопку он удаляет    
 
ActiveSheet.Shapes("Button 1").Select  
   Selection.Delete  
 
А что нужно прописать для удаление картинки?
 
 
 
#12
12.08.2010 09:17:02
И еще небольшой вопросик - поиском не нашел.  
На копируемом листе есть некоторые значения, берущиеся с другого листа данной книги. Соответсвенно, при копировании связь остается. Так вот как сделать так, чтобы данные остались, а связь пропала?  
 
Т.е. к примеру после копирования в ячейке остается дата 01.01.2010, но прописана связь ='лист1'!F4  
Вот и хотелось бы связь убрать, а дату оставить :)  
Такое возможно?  
Заранее, огромное спасибо!
 
 
 
#13
12.08.2010 09:34:51
{quote}{login=The_Prist}{date=12.08.2010 09:30}{thema=Re: }{post}{quote}{login=Koks}{date=12.08.2010 09:17}{thema=}{post}И еще небольшой вопросик - поиском не нашел.{/post}{/quote}Правила почитайте. Какое отношение тот вопрос имеет к данной теме?{/post}{/quote}  
 
Что значит какое отношение? Я ведь  описываю что должно получится в итоге после сохранения активного листа в новую книгу.
 
 
 
#14
12.08.2010 10:15:18
{quote}  
Шикарно! Еще дописал строку, чтобы закрывал созданный файл.  
Вот тольок не получается удалить кнопку, созданную из картинки. :(  
Обычную кнопку он удаляет    
 
ActiveSheet.Shapes("Button 1").Select  
   Selection.Delete  
 
А что нужно прописать для удаление картинки?{/quote}  
 
С удалением картинки разобрался
 
 
 
#15
12.08.2010 10:34:23
Да не вопрос.    
Просто мне казалось чем пложить темы, можно все решить в одной, т.к. вопрос относится непосредственно к данному действию...  
 
Ладно, вопрос закрыт, пойду создам новую тему тогда раз такое дело :)
 
 
 
Страницы: 1
Читают тему
Наверх