Как сохранить модуль в excel

Одним из способов установки (сохранения) макросов на своем компьютере является копирование программного кода и его вставка с последующим сохранением в модуль проекта редактора Visual Basic.        

Напомню, что язык Visual Basic for Applications (VBA) – полнофункциональный язык программирования, встроенный в различные приложения компании Microsoft, а также других разработчиков программного обеспечения. Код VBA создается в редакторе Visual Basic Editor. Макросы VBA сохраняются в файлах документов в Word и в файлах рабочих книг в Excel. Макросы сохраняются в специальной части файла, которая называется модулем. Модуль – это элемент проекта, в котором хранится программный код. Каждый документ Word, каждая рабочая книга Excel может содержать один или несколько модулей, а может и не содержать ни одного модуля. Модули, сохраняемые в документе или книге имеют общее название — Project (проект). 

Модули делятся на два типа: стандартные модули и модули класса. Основное содержание модулей — это макросы и процедуры написанные на языке VBA. Процедура — совокупность команд или инструкций в модуле, выполняемых как одна программа. В VBA существуют процедуры-подпрограммы Subprogram и процедуры- функции Function. Процедура от макроса отличается наличием в программном коде переменных.

Стандартные модули содержат процедуры, которые не связаны с конкретным объектом. Стандартный модуль — это модуль, в который помещают процедуры Sub и Function, которые должны быть доступны для всех процедур в данном приложении.

Модуль класса отличается от стандартного модуля тем, что, кроме процедур содержит еще и описание объекта и используется для создания классов (объектов).

Перед тем как копировать и вставлять программный код макроса в модуль проекта, откроем редактор Visual Basic. Чтобы запустить этот редактор, выберите команду Сервис/Макрос/Редактор Visual Basic, если Вы используете MS Office 2003, либо сочетанием клавиш Alt+F11 (универсальный способ вызова редактора для любых версий). Редактор открывается в новом окне, содержащем несколько панелей, расположением которых можно управлять. На рисунке ниже обозначены три стандартные панели.

1. Основное место занимает самая большая из них — область разработки. Эта панель используется для написания кода программ. При наличии готовых макросов их код отображается в области разработки.

2. На панели проектов представлен список всех составляющих объектов проекта, по умолчанию это три листа (электронные таблицы) и рабочая книга.

3. На панели свойств отображаются все свойства, ассоциированные с выбранным объектом. Изменения, которые вносятся на панель свойств, влияют на свойства объекта. Кроме того, изменения в области разработки отражаются в значениях величин, которыми определяются свойства объекта.

В проект можно добавлять дополнительные объекты. Код программы, который не связан с определенным объектом (например с листом или формой), обычно хранится в модуле.

Если в списке проекта отсутствует модуль Module1, то перед записью макроса его нужно добавить. Кроме того, можно добавлять объекты формы, создавая в программе графические интерфейсы пользователя.

Для вставки модуля в проект, выберите в меню редактора VBA команду Insert/Modul, либо воспользуйтесь контекстным меню, щелкнув правой кнопкой мыши в области панели проектов и выбрав пункт меню, как показано на картинке ниже. В список проекта будет добавлен модуль с именем Module1.

Можно дважды щелкнуть на этом имени в списке проекта и переименовать модуль. Переименование как раз будет происходить в третьей из основных панелей редактора, отображающей свойства элементов проекта.

Таким образом сохранение макросов на своем компьютере можно описать следующей последовательностью шагов: 

1. Находите и копируете в буфер обмена код макроса;
2. Открываете на своем компьютере редактор Visual Basic (Alt+F11), выбираете существующий (или при необходимости добавляете новый) модуль;
3. Вставляете в свой модуль данные из буфера обмена;
4. Сохраняете внесенные изменения.
5. Вызываете список своих макросов сочетанием клавиш Alt+F8, выбираете и запускаете нужный Вам макрос.

Если вдруг после копирования кода макрос не запускается, рекомендую внимательно прочитать статью «Что делать если макрос не работает?». Модули проектов можно импортировать и экспортировать.

В некоторых случаях вам может понадобиться использовать один макрос VBA несколько раз в будущем. Это возможно сохраните как-нибудь модуль VBA в любой новый документ чтобы он был доступен во всех книгах? Ответ положительный. В этом уроке мы познакомим вас с простым способом достижения вашей цели.

Сохраните и используйте код VBA во всех книгах

Например, вы хотите использовать код VBA для преобразовать числа в английские слова и сохранить модуль VBA во всех книгах на случай, если вы захотите использовать код VBA в будущем. Пожалуйста, сделайте следующее.

1. нажмите Alt + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули и вставьте следующий макрос в окно модуля.

Код VBA: преобразование чисел в слова

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. Нажмите Сохраните значок в верхнем левом углу ленты или нажмите Ctrl + S для открытия Сохранить как окно.

4. в Сохранить как введите имя книги в поле Имя файла коробка. И выберите Надстройка Excel (*.xlam) вариант в Сохранить как выпадающий список.

5. Затем нажмите Сохраните кнопку, чтобы сохранить книгу с кодом VBA в качестве Надстройка Excel.

6. Вернемся к Excel, закройте пустую книгу, которая была сохранена как надстройка Excel.

7. Откройте новую книгу с данными, которые необходимо преобразовать. Введите формулу = Число слов (A2) в ячейке В2. # ИМЯ? будет возвращено значение ошибки, поскольку код VBA еще не был применен во всех книгах.

8. К Застройщик вкладку нажмите Надстройки Excel в Надстройки группа.

9. Добавить в всплывает диалоговое окно. Щелкните значок Приложения кнопку.

10. Выберите надстройку, которую вы только что сохранили, затем нажмите OK кнопку.

11. Затем Надстройка «Преобразование чисел в слова» настроенный вами вставлен и включен. Нажмите на OK кнопку, чтобы завершить настройку.

12. Теперь при вводе формулы = Число слов (A2) в ячейке B2 и нажмите кнопку Enter ключ, будут возвращены соответствующие английские слова. Перетащите маркер автозаполнения вниз, чтобы получить все результаты.

Заметки:

Если вам нужно запустить код вручную, нет никакого способа найти его из вышеперечисленных шагов. Пожалуйста, не волнуйтесь. Есть два пути запустить код.

1. Вы можете добавить код в Быстрая панель инструментов и запускайте код каждый раз, когда на панели инструментов нажимается кнопка кода.
   
2. Вы также можете напрямую нажать Alt + F11 чтобы открыть окно операции с кодом, найдите код и нажмите F5 бежать.

Код VBA для отображения всех надстроек в Excel
В Excel вы можете добавлять или вставлять надстройки для более удобной работы с данными. Как мы знаем, мы можем перейти в окно «Параметры», чтобы просмотреть все надстройки, но есть ли способ перечислить все надстройки на листе? Теперь в этом руководстве он предоставляет код VBA для перечисления всех надстроек в Excel.

Как защитить/заблокировать код VBA в Excel?
Точно так же, как вы можете использовать пароль для защиты книг и рабочих листов, вы также можете установить пароль для защиты макросов в Excel.

Как использовать временную задержку после запуска макроса VBA в Excel?
В некоторых случаях вам может потребоваться установить задержку таймера для запуска макроса VBA в Excel. Например, если щелкнуть для запуска указанного макроса, он вступит в силу через 10 секунд. Эта статья покажет вам способ ее достижения.

Если Вы не сильны в программировании, но, при этом, Вам необходимо реализовать какую-либо задачу, выходящую за рамки стандартных функций и команд MS Excel, можно поискать решение в интернете. Решение, скорее всего, найдется в виде VBA кода, который необходимо скопировать и вставить в Вашу рабочую книгу, потом каким-то образом заставить этот код работать на Вас, в этой статье я расскажу, как это сделать.

Файлы для скачивания:

Файл	Описание	Размер файла:	Скачивания
Пример		14 Кб	2798

Рассмотрим два примера:

Ищем и используем команду
Ищем и используем функцию

1. Ищем и используем команду

Например, нам необходима команда, которая бы вставляла в выделенные ячейки цифру «1». Запускаем поисковик, набираем поисковую фразу, получаем результаты, начинаем просматривать, находим код примерно в таком виде:

Sub Вставка1()
    Dim q As Object
    On Error Resume Next
    Set q = Cells
    For Each q In Selection
        q = 1
    Next q
End Sub

Выделяем данный код (без нумерации строк, начиная со слова Sub) и нажимаем Ctrl+C. Переходим в свою рабочую книгу MS Excel и нажимаем сочетание клавиш Alt+F11, у вас откроется окно редактора VBA:

В левом окне «Project — VBA Project» выбираем (щелкаем мышкой) нашу рабочую книгу, в которую необходимо вставить макрос, например, «VBAProject (Книга2)»:

Я не вижу окна «Project — VBA Project».

В пункте меню «Insert» выбираем «Module»:

В левом окне «Project — VBA Project» у вас должна появиться новая папка «Modules» и в ней новый объект «Module1»:

Переходим курсором в правое «Большое» поле для ввода и нажимаем Ctrl+V, скопированный макрос вставиться в модуль:

У меня в коде «????????«

После чего закрываем редактор VBA и возвращаемся в рабочую книгу.

Если вы работаете в MS Excel 2007, 2010 или 2013, вам необходимо будет сохранить вашу рабочую книгу как «Книга Excel с поддержкой макросов (.xlsm)»:

В MS Excel 2003 достаточно будет просто сохранить файл.

Чтобы выполнить скопированный в книгу макрос выделяем ячейки, в которые необходимо вставить «1», нажимаем в меню «Вид» кнопку «Макросы» и в выпавшем списке выбираем пункт «Макросы» или нажимаем сочетание клавиш Alt+F8:

Откроется диалоговое окно «Макрос», в списке макросов выбираем свой и нажимаем кнопку «Выполнить»:

Макрос выполнится — в выделенные ячейки вставиться «1»:

Чтобы макрос можно было запускать без лишних телодвижений, читайте статьи «Как сделать кнопку для запуска своего макроса?» и «Как назначить макросу сочетание клавиш?».

Макросы в MS Excel можно вставлять в следующие места:

• В Модуль, обычно вставляют код макросов, запуск которых будет производится по нажатию кнопки пользователем (как, например, в нашем случае) или код функций (формул);
• В Рабочий лист, обычно вставляют код макросов, запуск которых должен происходить автоматически в зависимости от действий пользователя или изменения данных в листе (поменялись данный, макрос выполнился);
• В Рабочую книгу, обычно вставляют код макросов, запуск которых должен происходить автоматически в зависимости от действий, производимых над книгой (файлом). Например, макрос, который запускается при открытии или закрытии книги, или при ее сохранении;
• Так же макросы могут быть частью пользовательской формы.

Обычно, человек, который публикует код, указывает, куда его необходимо вставить, в модуль, в лист или книгу.

Чтобы вставить код в Рабочий лист, в левом окне редактора VBA выберите соответствующий лист, щелкните по нему два раза левой кнопкой мышки, переместите курсор в правое поле ввода и вставьте код.

Для вставки кода в Книгу, выберите «ЭтаКнига»:

Давайте потренируемся. Вставьте код опубликованный ниже в «Лист1».

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo a
    If Target = 2 Then
        VBA.MsgBox ("Ячейка " & Target.Address & " = 2")
    End If
a:
    Exit Sub
End Sub

Данный макрос выводит информационное сообщение если вы введете в любую ячейку листа «2».

Вернитесь в рабочую книгу, перейдите в «Лист1» и введите в ячейку «А1» цифру «2» и нажмите Enter, после чего у вас должно появиться следующее сообщение:

Если вы видите это сообщение, то вы все сделали правильно. Если нет, то вы вставили код куда-то не туда, повторите попытку.

При вставке кода, необходимо внимательно следить за тем, куда вы его вставляете. Это можно сделать посмотрев на то, что написано в заголовке окна редактора VBA:

2. Ищем и используем функцию

Находим в интернете VBA код функции, которая подсчитывает, например, количество слов в ячейке:

Public Function КолСловВЯчейке(Ячейка As Range)
    Dim q As Variant
    Application.Volatile
    q = VBA.Split(Application.WorksheetFunction.Trim(Ячейка.Value), " ")
    КолСловВЯчейке = UBound(q) + 1
End Function

Копируем код, нажимаем сочетание клавиш Alt+F11, откроется редактор VBA:

Добавляем новый модуль в свою книгу и в этот модуль вставляем скопированный код:

Закрываем редактор VBA и переходим в свою рабочую книгу. Создаем новый лист (необязательно) в ячейку A1 вводим текст «мама мыла раму». Встаем в ячейку, в которой хотим получить результат (количество слов), в меню «Формулы» нажимаем кнопку «Вставить функцию»:

В открывшемся окне «Вставка функции» в поле «Категория» выбираем «Определенные пользователем»

В списке доступных функций выбираем «КолСловВЯчейке», нажимаем «ОК»:

Вводим необходимые аргументы и нажимаем «ОК»:

Получаем результат:

Важно:

Если вы не сохраните книгу, в которую вставили макрос как «Книгу с поддержкой макросов», все модули с макросами удаляться и вам придется, потом, повторно проделывать всю эту работу.

Если при вставке макроса в модуль у вас вместо некоторого текста стоят красные знаки «????????«

Это значит, что у вас проблема с кодировкой, которая наблюдается с копированием Кириллического текста из некоторых браузеров. Чтобы победить эту проблему, попробуйте вставить скопированный код в пустой лист MS Excel, как «Текст в кодировке Unicode». Для этого перейдите в книгу MS Excel, выберите или создайте пустой лист, встаньте в ячейку «A1» и нажмите сочетания клавиш Ctrl+Alt+V. Должно будет появиться меню «Специальной вставки», выберите пункт «Текст в кодировке Unicode» и нажмите «OK».

Код должен будет вставиться в рабочий лист без знаков вопроса:

После этого, еще раз скопируйте вставленный в лист код, и вставить его уже в модуль.

Если вы не видите в редакторе VBA окна «Project — VBA Project», перейдите во вкладку меню «View» и в списке выберите пункт «Project Explorer» или нажмите сочетание клавиш Ctrl+R:

Сохранение макроса

​Смотрите также​​ именем копии REPEAT_:​ «Книга1.xls» sExp =​ регулярно скидывать в​ & IIf(Right(sFileName, Len(sExpansion))​Alex_ST​ ИМХО, InputBox и​ через InputBox или​Filename:=»трам-пам-пам.xls», _​ рабочий файл (имена-то​ Или открыть в​Если вам нужно записать​ «РАЗРАБОТЧИК»-«Код»-«Visual Basic». Или​Остановить запись​.​ ее текст может​ макрос Excel предложит​Примечание:​ FileName = Application.GetSaveAsFilename(InitialFileName:=sFullFilePath,​ Right(FileName, Len(FileName) -​ разные директории на​ <> sExpansion, sExpansion,​

​: К стати, не​ окно задания пути​ ещё как-то…​FileFormat:=xlNormal, _​ совпадают!!!).​ редакторе Personal и​ в нее новый​ нажмите комбинацию горячих​.​Чтобы при запуске Excel​ содержать неточности и​

Сохранение макроса в текущей книге

​ два варианта:​Мы стараемся как​ _ FileFilter:=»Excel Files​ InStrRev(FileName, «.») +​ общем ресурсе.​​ «»)​​ подскажите «на вскидку»​​ сохранения файла -​​В чём хитрость-то?​Password:=»», _​или​ туда вставить модуль?​ макрос просто откройте​ клавиш ALT+F11. В​При закрытии Excel в​ автоматически открывались книги,​ грамматические ошибки. Для​Сохранить в виде книги​ можно оперативнее обеспечивать​

• ​ (*» & sExp​ 1) ‘ расширение​Достало постоянно выбирать​​If sFileName =​​ как к имени​

• ​ это «две большие​The_Prist​WriteResPassword:=»», _​​- сказать Ёкселю​​z_korch​

​ редактор, а потом​ окне «Project-VBAProject», в​ конечном итоге будет​

1. ​ выполните указанные ниже​​ нас важно, чтобы​​ с поддержкой макросов​

2. ​ вас актуальными справочными​​ & «), *»​​ файла вместе с​​ куда и какой​​ ThisWorkbook.FullName Then​​ файла при сохранении​ разницы» …​​: А кто мешает​
   

3. ​ReadOnlyRecommended:=True, _​​ «Сохранить как…» и​​: Может я не​

Создание и сохранение макросов в личной книге

​ откройте модуль книги​ дереве проектов появиться​ предложено сохранить изменения​ действия.​ эта статья была​ (XLSM-файл), выбрав​ материалами на вашем​ & sExp &​ точкой (например, «.xls»)​ файл сохранять…​MsgBox «Нельзя сохранить​ добавить перед расширением​The_Prist​ перед этим вывести​

support.office.com

Запись макроса для открытия определенных книг при запуске Excel

​CreateBackup:=False​​ указать с каким​ знаю как в​ Personal.xlsb. Уже записанные​ доступная еще одна​ в личной книге​Откройте вкладку​ вам полезна. Просим​Нет​ языке. Эта страница​ «, All Files​ FileName = Left(FileName,​Переделал макрос Save_Copy_As​ файл под имененм​ суффикс — дату​: Я Вам уже​ диалог?​End Sub​ именем, куда и​ редакторе открыть Personal?Когда​ в нее макросы​ книга Personal.xlsb. Кликните​

​ макросов. Нажмите кнопку​Разработчик​ вас уделить пару​.​ переведена автоматически, поэтому​ (*.*),*.*», _ Title:=»Сохранение​ Len(FileName) — Len(sExp))​ так, что путь​ открытого файла!», vbCritical​ и время сохранения?​ целый пример накатал​

​Dim sFileName As​не подходят, т.к.​ с какими паролями​​ в VBA открываю​​ удалять не нужно.​ на «плюсик» слева​ «Да», чтобы макрос​

1. ​и нажмите кнопку​​ секунд и сообщить,​​Сохранить в виде книги​​ ее текст может​​ копии файла») ‘задать​ & sSuff &​​ последнего сохранения копии​​ + vbYesNo, «Ошибка»​

2. ​ (ну, например, Имя_моего_рабочего_файла(01-06-2010​​ — чем он​​ String, sExpansion As​​ это как раз​​ сохранить файл. А​​ View->Project, то вижу​​ Они не будут​

3. ​ на против этой​​ запускался при каждом​​Запись макроса​

​ помогла ли она​ без поддержки макросов,​ содержать неточности и​ путь сохранения и​

1. ​ sExp ‘ например,​​ запоминается в самом​​GoTo BEGIN_​​ 14-30).xls​​ не устраивает? Выбор​

1. ​ String​​ и есть описанный​​ потом закрыть тот​​ среди объектов только​​ между собой конфликтовать​

2. ​ книги, чтобы раскрыть​​ запуске Excel.​​.​​ вам, с помощью​​ выбрав​

3. ​ грамматические ошибки. Для​ имя копии файла​ «Книга1 [2012.02.06 15-24’39»].xls»​

4. ​ файле в коллекции​End If​The_Prist​ через диалог, сохраняет​​BEGIN_:​​ мною выше второй​ сетевой, видный для​

5. ​ Лист1,2,3,и ЭтаКнига… все.​​ если соблюдать одно​​ проект книги Personal.xlsb.​

6. ​Каждый раз при запуске​​В поле​​ кнопок внизу страницы.​​Да​​ нас важно, чтобы​ в окне выбора​ On Error Resume​ Names​ThisWorkbook.Password = «1»:SetAttr​: SetAttr ThisWorkbook.FullName, vbReadOnly​ куда укажешь и​sFileName = ThisWorkbook.Name​ случай…​ всех, файл и​

7. ​ Если Insert->Module?, то​​ простое правило –​​ А после двойным​​ Excel автоматически будут​​Имя макроса​

8. ​ Для удобства также​.​ эта статья была​ If VarType(FileName) =​ Next sDirPath =​Два дня поюзал​ ThisWorkbook.FullName, vbReadOnly​Alex_ST​

   ​ с паролем, да​sExpansion = Right(sFileName,​tolikt​ открыть свой рабочий.​

support.office.com

Личная книга макросов в Excel и как ее использовать

​ тоже предлагает сохранить​ в одном модуле​ щелчком отройте ее​ открываться книги, включенные​введите​ приводим ссылку на​Чтобы сохранить макрос как​ вам полезна. Просим​ vbBoolean Then Exit​ .Names(sPath_in_Names).Value ‘ считать​ — понравилось!​ThisWorkbook.SaveCopyAs sFileName​: К сожалению, свойство​ еще и предупреждает,​ Len(sFileName) — InStrRev(sFileName,​: .SaveCopyAs чем не​ Это тоже не​ только в «Книга1-ЭтаКнига(Code)»​ нельзя хранить макросы​ Module1.​ в макрос.​Auto_Open​

Как сохранить макрос в личную книгу макросов

​ оригинал (на английском​ книгу с поддержкой​ вас уделить пару​

1. ​ Sub ‘ если​
2. ​ из коллекции .Names​Sub Save_Copy_As() ‘—————————————————————————————​ThisWorkbook.Password = «»:SetAttr​ vbReadOnly при SaveCopyAs​ если такой файл​ «.») + 1)​ устраивает?​
3. ​ слишком удобно, т.к.​kaa​
4. ​ с одинаковыми именами.​В результате откроется окно​Большинство пользователей Excel знают,​.​ языке) .​ макросов,​ секунд и сообщить,​ нажали «Отмена», то​ значение, ранее сохраненное​ ‘ Procedure :​ ThisWorkbook.FullName, vbNormal​ задать не удаётся…​ есть.​sFileName = Application.GetSaveAsFilename​The_Prist​
5. ​ требует много «мышкодвижений».​: в экселе Сервис-Параметры​z_korch​ кода модуля с​ как создать и​В списке​Предположим, что вы хотите​щелкните​ помогла ли она​ FileName = False,​

​ под именем sPath_in_Names​

​ Save_Copy_As ‘ Author​Hugo​А нельзя ли​Alex_ST​If sFileName =​: ThisWorkbook.Password = «1»​А недавно поставил​ вкладка «Общие» там​: Добрый день! Спасибо​ зарегистрированным макросом. Удалите​ использовать макрос внутри​Сохранить в​

​ записать макрос для​Нет​ вам, с помощью​ если «Сохранить» -​ If Err Then​ : Alex_ST ‘​:​ его задать для​: The_Prist, вы с​ «False» Then Exit​ThisWorkbook.SaveCopyAs ‘полный путь,​ себе прогу «PDF-Exchange»​ есть поле «каталог​

​ за замечательный сайт!Много​ его код и​ файла одной рабочей​выберите пункт​ открытия книг, которые​.​ кнопок внизу страницы.​ полный путь к​ .Names.Add sPath_in_Names, .Path​ Topic_HEADER : Как​Alex_ST, про дату в​ уже созданного файла-копии?​ такой скоростью создаёте​ Sub​ включая расширение файла.​

exceltable.com

как записать макрос, чтобы он был доступен для всех книг?

​ и увидел там​​ автозагрузки». указывате там​ полезного нашла,но с​ введите код своего​ книги. В случаи,​Личная книга макросов​ используете каждый день,​В окне​ Для удобства также​ файлу вместе с​ & «»: sDirPath​ макросом сохранить копию​ названии есть в​The_Prist​ свои ответы пока​sFileName = sFileName​ ДОЛЖЕН БЫТЬ В​ возможность «Сохранить копию​ путь.​ этой проблемой не​ макроса. Выберите инструмент​ когда необходимо использовать​.​ при запуске Excel.​Сохранить как​ приводим ссылку на​ его именем If​ = .Names(sPath_in_Names).Value ‘​ текущего файла? ‘​ приёмах:​: Алекс, ну чтоже​ я ввожу свои,​

​ & IIf(Right(sFileName, Len(sExpansion))​​ ДРУГОЙ ПАПКЕ, дабы​ как …».​в эту папку​ могу справиться: подскажите,пожалуйста,как​ в редакторе макросов:​

​ тот же макрос​​После этого макрос будет​ Вы можете создать​в раскрывающемся списке​ оригинал (на английском​ FileName = .FullName​ если считать не​ Topic_URL : http://www.planetaexcel.ru/forum.php?thread_id=16506​Alex_ST​ ВЫ так? Я​ что я их​

planetaexcel.ru

Как макросом сохранить копию текущего файла?

​ удалось, значит путь​​ ‘ DateTime :​: Спасибо. Разобрался.​ ж еще в​
​ просто не успеваю​ «»)​ при совпадении имен.​ т.к. при этом​ макросом​ чтобы он работал​ потом закройте редактор​ рабочих книг, тогда​
​ открытии Excel.​ сделать это. Вы​
​выберите​Создать макрос в Excel​ нельзя сохранить файл​ ранее не задавался​ 08.02.12, 12:00 ‘​Только чтобы всё​ начале писал -​ читать…​If sFileName =​ThisWorkbook.Password = «»​ текущий открытый файл​при открытии экселя​
​ не только с​
​ Visual Basic.​ можно сохранить его​Чтобы было проще вспомнить,​ также можете запускайте​Книга Excel с поддержкой​ можно, запустив средство​ под таким именем!»,​ и он для​ Purpose : Сохранение​ правильно работало нужно​ «Вы сначала задаете​Ща буду разбираться…​ ThisWorkbook.FullName Then​
​Alex_ST​ не закрывается, а​ этот файл будет​ «Эта Книга», а​​
​ в личной книге​ что делает макрос,​ макрос автоматически при​ макросов​ записи макросов или​ 16, «Ошибка»: GoTo​ первого раза задаётся​ копии активного файла​ не атрибуты файла​ книге пароль, затем​
​ Беру тайм-аут на​MsgBox «Нельзя сохранить​: Метод SaveCopyAs требует​ просто его копия​ самостоятельно открываться.​ для любых файлов​
​Теперь у вас подключена​ макросов. У нее​ введите его описание​ открытии книги.​.​
​ с помощью редактора​ REPEAT_ sDirPath =​ равным ActiveWorkbook.Path sDirPath​

​ ‘ Notes :​​ через​
​ сохраняете, затем убираете​
​ осмысливание.​
​ файл под имененм​
​ непосредственного указания пути​
​ сохраняется в указанном​
​Alex_ST​
​ xls. На форуме​
​ скрытая книга для​
​ всегда одно название​
​ в поле​
​Прежде чем начать, убедитесь,​Нажмите кнопку​ Visual Basic для​ Left(FileName, InStrRev(FileName, «»))​ = Mid(sDirPath, 3,​

​ Путь сохранения копий​​SetAttr ActiveWorkbook.FullName, vbReadOnly​ пароль.​

​Скорее всего до​​ открытого файла!», vbCritical​
​ и имени сохранения,​ месте с указанными​: По работе на​ нашла,что надо сохранять​ хранения макросов, к​ – Personal.xlsb. Она​
​Описание​

​ что на ленте​​Сохранить​ приложений (VBA). После​ ‘ путь к​ Len(sDirPath) — 3)​ хранится в коллекции​ устанавливать, т.к. это​Тоже самое можно​ завтра, т.к.у нас​ + vbYesNo, «Ошибка»​

​ а хотелось бы​​ свойствами (всё это​ своём компе создаю/модернизирую/заполняю​ в Личной книге​ которым можно получить​ всегда открывается при​. Можно также оставить​ доступна вкладка​

​.​​ создания макроса следует​ папке сохранения копий​
​ ‘ убрать из​ .Names книги (в​ ничего не даёт​ сделать и с​ на работе сегодня​GoTo BEGIN_​ по вызову макроса​
​ задаётся в стандартных​

​ ‘ запомнить выбранный​​ в конце «​ «Path4SaveCopyAs» ‘ имя​ задаёт пароль НА​Т.е. сначала Вы​ на рабочих местах,​ThisWorkbook.SaveCopyAs sFileName​ и имени сохранения​ а вдруг гуру​ надо выкладывать на​

​ автозагрузки должна оставаться​​ где находится находиться​ доступной по умолчанию​.​ действия.​ в книге «Personal.xlsb».​ в других книгах.​ в диалоге путь​ sDirPath = sDirPath​ элемента коллекции .Names,​ ОТКРЫТИЕ​

​ сохраняемой книги присваиваете​​ а не на​ThisWorkbook.Password = «»​ …​ форума посоветуют как​ общий диск с​ открытой-Запись невозможна»- Как​ в папке автозагрузки​
​ в Excel, поэтому​Откройте вкладку​Откройте вкладку​
​ Это скрытая книга​Если понадобится использовать макрос​ в коллекции .Names​ & IIf(Right(sDirPath, 1)​ в котором должен​Надо вот так:​ все эти атрибуты,​ природе), поэтому, прошу​The_Prist​Alex_ST​ можно сделать макрос,​ паролем на изменение​ это сделать? Проблема​

​ файлов Excel –​​ ее нужно сначала​
​Файл​Файл​ на вашем компьютере,​ только в той​
​ под именем sPath_in_Names​ = «», «»,​ храниться путь для​With ActiveWorkbook​

​ затем сохраняете, потом​​ пардону, с ответами​: Алекс, Вы хоть​: Да и к​ осуществляющий аналогичную вункцию​ (ну, просто для​ в том,что записав​ XLSTART: C:Documents and​ подключить.​, выберите пункт​

​и выберите пункт​​ которая открывается при​

​ книге, где он​​ bReadOnlyRecommended = .ReadOnlyRecommended​ «») ‘ на​ сохранения копий файла​
​.WritePassword = «1»​ убираете.​ немного торможу, хотя​

​ & Format(Now, «yyyy/mm/dd​​.WritePassword = «»​

​ String​ будет дальше …​ затем сохраняете, затем​

​.​​ Создание и сохранение​Сохранить как​ чтения?», 36) -​ верно — без​ ‘ суффикс к​End With​sFileName = ThisWorkbook.Name​
​: The_Prist,спасибо!​Тоже самое можно​ и т.п.)​
​ (Personal.xls)…​ назначения, скопировать (drag​ вставляю через редактор​ Если сохранить файл​ «Запись макроса», из​ разных местах. Чтобы​
​В разделе​ всех макросов в​
​так же, как​ 7) ‘ MsgBox​ слэша) .Names(sPath_in_Names).Value =​ имени файла копии​Если кому-нибудь интересно,​sExpansion = Right(sFileName,​Всё отлично работает.​ сделать и с​tolikt​А вот как​ & drop’ ом)​ VBA,он отрабатывает для​ в данную папку,​ выпадающего списка «Сохранить​ выбрать несколько файлов​Настройка ленты​ одной книге.​ при обычном сохранении.​ Argument 4==vbYesNo 32==vbQuestion,​ sDirPath ‘ запомнить​ — дата и​ то «причёсанный» вариант​ Len(sFileName) — InStrRev(sFileName,​ Завтра «дополирую» диалогами​ другими атрибутами(только чтение​: Наверное, я что-то​ «Сохранить как…», не​ туда файл, открыть​ открытого файла, закрываю​ то он будет​ в:» выберите опцию​ в одной папке,​в поле​Примечание:​ Но сохранение книги​ MsgBox Return Values:​ путь сохранения копий​ время сохренения копии​ — в файле.​ «.») + 1)​ для задания пассворда​ через GetAttr например).​ не понял…​ закрывая текущего файла?​ его и поставить​ Excel,через некот.время открываю​ открываться вместе с​ «Личная книга макросов».​ щелкните каждый из​Основные вкладки​Мы стараемся как​ с макросами происходит​ vbYes=6, vbNo=7 .SaveCopyAs​ в коллекции .Names​ файла Dim FileName,​Alex_ST​sFileName = Application.GetSaveAsFilename​ …​Alex_ST​Т.к. думал, что​Alex_ST​ пароль на открытие…​ Excel, а макроса​ программой Excel. Для​ И нажмите на​ них, удерживая нажатой​установите флажок​ можно оперативнее обеспечивать​ несколько иначе, поскольку​ FileName .ReadOnlyRecommended =​ под именем sPath_in_Names​ sExp$, sDirPath$, sFullFilePath$,​: Приходится у себя​If sFileName =​А как бы​: Я, конечно, естественно,​ пользователь класса Alex_ST​: Сразу оговариваю:​ Но уж больно​ там нет!?…​ версий старше 2007​ кнопку OK.​ клавишу SHIFT.​Разработчик​ вас актуальными справочными​ необходимо использовать специальный​ bReadOnlyRecommended ‘ восстановить​ sFullFilePath = sDirPath​ sNewPath$ Dim bReadOnlyRecommended​ на компе вести​ «False» Then Exit​ при сохранении копии​ смогу сделать InputBox​ уж сумеет как-то​макросы типа​ это не удобно,​Guest​ путь к папке​Теперь выберите инструмент: «РАЗРАБОТЧИК»-«Код»-«Остановить​Откройте вкладку​.​ материалами на вашем​ формат файла «с​ параметры исходного файла​ & FileName ‘​ As Boolean With​ несколько учётных файлов,​ Sub​ задавать «Рекомендовать открытие​ для задания пути​ в макросе подогнать​Sub Save_File_As()​ т.к. надо после​: А если выбрать​ автозагрузки будет следующим:​ запись».​Разработчик​Нажмите кнопку​ языке. Эта страница​ поддержкой макросов». Поэтому​ End With End​ полный путь сохранения​ ActiveWorkbook FileName =​ а их копии​sFileName = sFileName​ только для чтения?»​ для SaveCopyAs, но,​ под себя SaveCopyAs​ActiveWorkbook.SaveAs _​ копирования закрыть свой​ «Все открытые книги»?​ C:Program FilesMicrosoft OfficeOffice12Xlstart.​Откройте редактор Visual Basic:​и нажмите кнопку​ОК​ переведена автоматически, поэтому​ при попытке сохранить​ Sub​ вместе с полным​

planetaexcel.ru

​ .Name ‘ например,​