KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Как переименовать открытую или текущую книгу в Excel?

АвторСуньДата изменения

В некоторых ситуациях может возникнуть необходимость переименовать книгу Excel, которая в данный момент открыта. Однако Excel не позволяет напрямую переименовывать открытый файл с помощью стандартных операций файловой системы, поэтому обычно приходится сначала закрыть книгу, найти её в Проводнике и только затем переименовать. Это неудобно и нарушает рабочий процесс — особенно если вы одновременно работаете с несколькими файлами или часто меняете их названия. В этом руководстве описаны несколько практичных способов переименовать активно открытую книгу прямо в Excel, чтобы упростить задачу и свести перерывы в работе к минимуму.

Переименование открытой книги с помощью команды «Сохранить как»

Переименование открытой книги с помощью Office Tab

Переименование открытой книги с помощью кода VBA


Переименование открытой книги с помощью команды «Сохранить как»

Когда нужно переименовать текущую книгу, но при этом желательно избежать закрытия и повторного открытия файла, на помощь приходит команда Сохранить как. Этот простой способ позволяет изменить имя файла прямо во время работы с ним и поддерживается во всех версиях Excel.

1. Нажмите вкладку Файл(или кнопку)Office в Excel 2007) на ленте и выберите Сохранить как из доступных вариантов. Откроется диалоговое окно «Сохранить как», как показано ниже:

снимок экрана с выбором пункта «Сохранить как»

2. В диалоговом окне Сохранить как введите новое желаемое имя книги в поле Имя файла. Например, вы можете изменить имя, чтобы отразить текущий проект или версию. См. скриншот ниже для справки:

снимок экрана с присвоением имени файлу

Совет: В Excel 2013 или Excel 2016 после нажатия Файл > Сохранить как может потребоваться выбрать Обзор, чтобы открыть привычное диалоговое окно «Сохранить как» и получить доступ к полю имени файла.

снимок экрана, показывающий, как открыть диалоговое окно «Сохранить как» в Excel 2013 и 2016

3. Нажмите Сохранить. Книга будет сохранена под указанным новым именем. Текущий экземпляр Excel теперь будет ссылаться на книгу по её новому имени, а предыдущий файл останется без изменений в исходном расположении (если вы не решите удалить его позже).

Примечания и практические советы: Старый файл не удаляется автоматически — при необходимости его можно удалить вручную. Кроме того, если вы используете совместный доступ к файлам или системы контроля версий, убедитесь, что переименование файлов не нарушит совместную работу или существующие ссылки.

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


Переименование открытой книги с помощью Office Tab

Для пользователей, предпочитающих ещё более быстрый способ работы и регулярно использующих несколько открытых книг, надстройка Office Tab предлагает решение с улучшенным удобством использования. Office Tab позволяет работать с книгами в интерфейсе с вкладками — как в веб-браузерах, — а также предоставляет дополнительные возможности управления файлами, включая переименование.

После установкиOffice Tab выполните следующие действия:

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

снимок экрана с правым щелчком по вкладке файла и выбором пункта «Переименовать»

2. В диалоговом окне Office Tabвведите новое имя для вашей книги в предоставленное текстовое поле. Избегайте недопустимых символов (например,)/ \ : * ? " |), которые запрещены в именах файлов. См. скриншот ниже:

снимок экрана с вводом нового имени

3. Нажмите ОК. Книга будет переименована немедленно — закрывать или повторно открывать её не потребуется. Изменения отобразятся как на вкладке, так и в фактическом имени файла на компьютере, как показано здесь:

снимок экрана с новым именем книги

Преимущества: Этот метод особенно удобен для тех, кто одновременно работает с множеством файлов и часто переименовывает их вручную. Интуитивно понятный рабочий процесс с вкладками повышает эффективность и не прерывает вашу работу.

Важно: Office Tab — это сторонняя надстройка, требующая отдельной установки. Убедитесь, что она совместима с вашей версией Excel (Office Tab поддерживает большинство современных версий). Чтобы избежать проблем совместимости с новыми обновлениями Excel и добиться наилучших результатов, регулярно обновляйте надстройку.


Переименование открытой книги с помощью кода VBA

Для опытных пользователей VBA (Visual Basic for Applications) предоставляет гибкий подход к программному переименованию Текущая книга путём сохранения её под Новое имя и, при необходимости, удаления исходного файла. Это особенно полезно при автоматизации пакетного переименования или интеграции шага переименования в более длинный макрос.

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

1. Нажмите Разработчик > Visual Basic, чтобы открыть окно Microsoft Visual Basic для приложений. В открывшемся окне выберите Вставка > Модуль, затем вставьте следующий код в новый модуль:

Sub RenameActiveWorkbook()
    Dim newFullName As String
    Dim oldFullName As String
    Dim fDialog As FileDialog
    Dim response As VbMsgBoxResult
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    oldFullName = ThisWorkbook.FullName
    
    ' Prompt for new file name and location
    Set fDialog = Application.FileDialog(msoFileDialogSaveAs)
    
    With fDialog
        .Title = "Select new file name for the active workbook"
        .InitialFileName = ThisWorkbook.FullName
        
        If .Show = -1 Then
            newFullName = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' Save the workbook with the new name
    ThisWorkbook.SaveAs Filename:=newFullName, FileFormat:=xlOpenXMLWorkbook
    
    ' Ask if the old file should be deleted
    response = MsgBox("Do you want to delete the old file?" & vbCrLf & oldFullName, vbYesNo + vbQuestion, xTitleId)
    
    If response = vbYes Then
        Kill oldFullName
    End If
    
    MsgBox "Workbook renamed successfully.", vbInformation, xTitleId
End Sub

2. Чтобы запустить макрос, нажмите клавишу F5 или кнопку Кнопка запуска «Выполнить» в редакторе VBA. После этого откроется диалоговое окно «Сохранить как», где вы сможете указать новое имя и выбрать расположение для текущей книги (убедитесь, что имя файла корректно и не содержит недопустимых символов).

После сохранения появится запрос на подтверждение удаления исходного файла. Если выбрать «Да», старый файл будет удалён навсегда (это действие нельзя отменить). Если выбрать «Нет», файл останется без изменений. Текущий сеанс теперь будет ссылаться на книгу по её новому имени.

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

Этот подход идеально подходит опытным пользователям, хорошо знакомым с VBA и автоматизацией управления файлами. Если возникнут проблемы с макросом, убедитесь, что макросы включены, а в случае ошибок, связанных с разрешениями, попробуйте запустить Excel от имени администратора.


См. также:


Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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


Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек