![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 10.02.2011
Сообщений: 17
|
![]()
У меня есть макрос сбора книг в одну. Работает только при условии размещения его в текущей книги. При попытке сделать его доступным для всех книг, выдает ошибку. Помогите, пожалуйста. Макрос рабочий, и использую часто, это у него для меня единственный недостаток. Нашла его где-то в интернете, возможно даже и на данном форуме.
Вот сам макрос: Код:
|
![]() |
![]() |
![]() |
#2 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]() Цитата:
Если такой книги у Вас пока нет, запишите любой мкарос, хоть 2х2 с сохранением в Личной книге макросов, сохранитесь. В дальнейшем, при открытии любого документа Excel Вы увидите в редакторе VBA эту книгу. Вот в нее и помещайте все макросы общего назначения.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
![]() |
![]() |
![]() |
#3 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]() Цитата:
Поместите в папку XLSTART. Теперь он будет запускаться при открытии любого файла Excel
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
В этом коде идёт обращение к ThisWorkbook, т.е. если поместите в Персонал, то в Персонале и будет листы удалять и добавлять.
Нужно код чуть переделать - дописать в начале (до открытия другой книги) типа Dim wba As Workbook set wba = ActiveWorkbook потом вместо ThisWorkbook использовать wba.
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 10.02.2011
Сообщений: 17
|
![]()
при переносе не работает! выдает ошибку
Run-time error '1004': Метод Copy из класса Worksheet завершен неверно |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Мой совет попробуйте.
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 10.02.2011
Сообщений: 17
|
![]()
Hugo121 огромное вам спасибо!
исправила, все работает! отдельное спасибо за оперативность! |
![]() |
![]() |
![]() |
#8 | ||
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]() Цитата:
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
||
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 10.02.2011
Сообщений: 17
|
![]()
Всем большое спасибо!
Я данный форум читаю давно, спросила в-первые. Еще только учусь разбираться... |
![]() |
![]() |
![]() |
#10 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Потому я и не давал исправленыый код. Потому что учитесь
![]()
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Формула или макрос?? Как это сделать? | Deni55 | Microsoft Office Excel | 1 | 07.04.2011 16:15 |
Создать книгу надстройку.. | van_ | Microsoft Office Excel | 5 | 07.11.2010 18:25 |
при нажатии на ссылку установка выходит диалог открыть или сохранить, как от него избавиться? | Rus_ld | Общие вопросы Delphi | 3 | 03.05.2010 13:31 |
Сохранить копию файла без макросов | viter.alex | Microsoft Office Excel | 3 | 19.02.2009 13:49 |
как сохранить всю книгу, только значений без формул? | katlis | Microsoft Office Excel | 5 | 17.12.2008 11:59 |