Как сохранить файл Excel со значением ячейки?

Когда вы работаете с книгой, задумывались ли вы о том, чтобы сохранить файл Excel на основе содержимого ячейки? Например, у вас есть «Цена продажи» в ячейке A1, и вы хотите сохранить книгу под именем Цена продажи. Конечно, вы можете ввести имя в диалоговое окно Сохранить как, а затем сохранить его. Но это будет неэффективный метод при большом объеме работы. Сегодня я расскажу о быстром способе решения этой задачи.

Сохранение файла Excel со значением определенной ячейки с использованием кода VBA

Сохранение файла Excel со значением определенной ячейки с использованием кода VBA

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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

Код VBA: Сохранение файла Excel со значением определенной ячейки

Private Sub filename_cellvalue()
'Updateby Extendoffice
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Затем нажмите клавишу F5 для выполнения кода, и ваша книга будет названа по содержимому ячейки A1. См. скриншот:

Примечания:

1. Вы можете указать любое значение ячейки в качестве имени файла, просто изменив A1 на другую ссылку на ячейку в приведенном выше коде.

2. Ваша активная книга будет сохранена в папку C:\Users\dt\Desktop\my information\ (последний слэш должен остаться, когда вы вставляете свое расположение вместо него), вы можете изменить путь по своему усмотрению.

Связанные статьи:

Как сохранить файл с датой и временем в Excel?

Как показать путь к файлу в строке заголовка или на панели инструментов в Excel?