Note: The other languages of the website are Google-translated. Back to English

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

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

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

Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу ...
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
  • Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
  • Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
  • Инструменты слияния: Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
  • Разделить инструменты: Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
  • Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона; Отправляйте персонализированные электронные письма нескольким получателям массово.
  • Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий ...
  • Более 300 мощных функций; Работает с Office 2007-2021 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

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

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

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

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

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

Private Sub filename_cellvalue()
'Update 20141112
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. Смотрите скриншот:

doc-save-with-cell-value-1

Ноты:

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

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


Статьи по теме:

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (33)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
модуль не сохраняется в .XlsX ; думаю, что это как-то связано со строкой 7;; ".xls", формат файла:=xlNormal; Также, как я могу изменить, чтобы взять значение из 3 разных объединенных ячеек? например: имя, фамилия, дата; в строке 6 кода?
Этот комментарий был сведен к минимуму модератором на сайте
Уменьшить имя файла как строку
Dim filename1 как строка
Dim filename2 как строка

Путь = "C:\Users\dt\Desktop\моя информация\"
имя файла = Диапазон ("A1")
имя_файла1 = Диапазон ("A2")
имя_файла2 = Диапазон ("A3")
ActiveWorkbook.SaveAs имя файла: = Путь и имя файла & "-" и имя файла1 & "-" и имя файла2 ".xls", FileFormat: = xlNormal
Этот комментарий был сведен к минимуму модератором на сайте
Крис. Вы можете объединить его в отдельной ячейке, а затем сослаться на эту ячейку как на значение имени вашего файла.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, мой сохранит только путь и имя файла. Я только хочу, чтобы имя файла, указанное в ячейке, сохранялось только. Не могли бы вы мне помочь?
Этот комментарий был сведен к минимуму модератором на сайте
Это довольно круто... но, кажется, есть ошибка, которую я не знаю, как исправить. Я использую это в шаблоне с поддержкой макросов. Я открываю шаблон, вношу изменения/обновления, нажимаю F5, чтобы запустить макрос... и... появляется диалоговое окно "Перейти", ожидая, что я введу "ссылку". Однако, если я нажму ALT F11, а ЗАТЕМ нажмите F5, новый файл .xls будет сохранен, как и ожидалось. Нужно ли мне всегда открывать модуль Visual Basic для запуска этой процедуры «сохранения»?
Этот комментарий был сведен к минимуму модератором на сайте
У меня есть шаблон, который я не хочу переписывать, поэтому пользователю необходимо сохранить файл с именем по дате, введенной в одно из полей. Я не хочу, чтобы пользователю приходилось открывать инструменты, а затем выбирать/запускать макрос. С таким же успехом они могут ввести имя файла.
Этот комментарий был сведен к минимуму модератором на сайте
вы можете добавить =NOW() в качестве параметра к вашему имени файла в ячейке, прежде чем вы извлечете его в макросе (а также поместите стандартную кнопку в угол страницы, чтобы сотруднику не пришлось открывать какие-либо инструменты
Этот комментарий был сведен к минимуму модератором на сайте
Вы, ребята, спасатели. Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Мне нужно сохранить как файл .csv. как мне изменить это, чтобы сохранить его как файл .csv? Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" имя_файла = Range("AC2") ActiveWorkbook.SaveAs имя_файла:=Путь и имя файла & ".xls ", FileFormat:=xlNormal End Sub Заранее спасибо за помощь!
Этот комментарий был сведен к минимуму модератором на сайте
Я думаю, что я сделал что-то не так здесь ...

Это дает мне ошибку в строке Sheets ("shitname"). Выберите

Наверное, я сделал что-то не так, когда назвал «дерьмо», например, ячейку K10.

я хочу изменить лист на другой лист, который называется точно так же, как ячейка K10


' gisel макрос
'
' Сочетание клавиш: Ctrl+Shift+C
'
Selection.Copy
Листы("дебагат").Выбрать
Строки("8:8").Выбрать
ActiveSheet.Paste
Тусклый путь как строка
Путь = "C:\cgxml\"
Уменьшить имя файла как строку
имя файла = Диапазон ("A8")
Dim shitname As String
имя_дерьма = Диапазон ("K10")
Sheets("shitname").Выбрать
Application.CutCopyMode = False
ActiveWorkbook.SaveAs имя файла:=Путь и имя файла & ".xml", FileFormat:=xltxt, CreateBackup:=False
Листы("ВСЕГО").Выбрать
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Это прекрасно работает... Спасибо, но мне нужно сохранить в формате PDF... Есть мысли?

Спасибо

Крис
Этот комментарий был сведен к минимуму модератором на сайте
то же, что и выше, но замените ActiveWorkbook.SaveAs на: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filename.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties: = True, IgnorePrintAreas: = False, _
OpenAfterPublish:=Истина
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за ваш отзыв, мне очень помог.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Что мне добавить, если я хочу сохранить активный рабочий лист, но используя значение ячейки листа 1?
Этот комментарий был сведен к минимуму модератором на сайте
Помогите пожалуйста... У меня все получилось. Но он сохраняет документы в «Мои документы», а не на указанный сервер...



Private Sub CommandButton1_Click ()
Тусклый путь как строка
Dim FileName1 как строка
Dim FileName2 как строка
Dim FileName3 как строка
Dim FileName4 как строка
Dim FileName5 как строка
Путь = "J:\Protection Services\Documents\Booysendal security"
ИмяФайла1 = Диапазон ("A2")
ИмяФайла2 = Диапазон ("B2")
ИмяФайла3 = Диапазон("C2")
ИмяФайла4 = Диапазон ("D2")
ИмяФайла5 = Диапазон ("E2")
ActiveWorkbook.SaveAs Имя файла:=ИмяФайла1 & "-" & ИмяФайла2 & "-" & ИмяФайла3 & "-" & ИмяФайла4 & "-" & ИмяФайла5 & ".xls", Формат Файла:=xlNormal
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Добавьте обратную косую черту после безопасности и перед кавычками... ...безопасность\"
Этот комментарий был сведен к минимуму модератором на сайте
Что, если вы хотите, чтобы вы просто хотели определить имя файла, но иметь возможность выбирать путь к файлу при каждом сохранении?

Также вы можете указать несколько ячеек для имени файла. Ячейки также объединяются.

Каждый раз сохранять по разным путям к файлам

Используйте несколько ячеек для имени файла
Этот комментарий был сведен к минимуму модератором на сайте
Хорошо, так что я получил это хорошо, используя кнопку в листе. Теперь я хотел бы, чтобы он просто нормально сохранялся после первоначального сохранения как. Можно ли это сделать? Используя ту же кнопку сохранения?
Спасибо, Брюс
Этот комментарий был сведен к минимуму модератором на сайте
как создать макрос для сохранения нескольких листов со значениями их ячеек в качестве имен файлов
Благодаря,
Раджив
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем!

Как сохранить повторяющийся ввод в одних и тех же ячейках, в других ячейках с помощью макроса?

В лист1 я ввожу данные в A1, B1, C1 n раз в день. На листе 2 мне нужно сохранить все эти записи в форматах A2, B2, C2, A3, B3, C3 и т. д. Tnx!
Этот комментарий был сведен к минимуму модератором на сайте
Привет друзья,
У меня есть проблема, и я был бы рад, если бы кто-нибудь мне помог.
У меня есть файл на диске "F" и в папке "ABS" - мое имя файла "Listdata"
В файле Excel на моем рабочем столе я хочу, чтобы ячейки (4,4) извлекали данные из листа «ABS» (1) и ячейки (2,2)
Код ниже
Sub Macro1 ()
activesheet.Cells(4, 4).Value = "F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
но он работает некорректно
Спасибо, друзья
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я пытаюсь использовать этот код, но когда я пытаюсь выполнить, я получаю ошибку 1004 во время выполнения, и она выделяет строку 7 как недействительную: ActiveWorkbook.SaveAs имя файла:=Путь и имя файла & ".xls", FileFormat:=xlNormal
Как я могу решить эту проблему? Я использую офис 365
Этот комментарий был сведен к минимуму модератором на сайте
Se a célula de referencia estiver em uma outra planilha já aberta? Комо фасад?
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Я очень рад, что это может сработать, но для меня в нем говорится: «Ошибка выполнения BASIC. Процедура Sob или процедура функции не определены». и стрелка, указывающая на строку 6. Что мне делать?
Этот комментарий был сведен к минимуму модератором на сайте
У меня есть кнопка управления для сохранения в формате PDF с определенным именем в определенном месте, которая уже работает, но я хочу изменить код, поскольку имя файла — это имя активного листа плюс значение определенной ячейки из другого листа. Как я могу это сделать? Это то, что у меня есть для сохранения в формате PDF:


Private Sub CommandButton1_Click ()
Приложение.ScreenUpdating = False
Тип ActiveSheet.ExportAsFixedFormat:=xlTypePDF, _
имя файла:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = True
End Sub

Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
может ли кто-нибудь помочь с решением, мне удалось правильно получить вывод, если ячейка не пуста

Частные саб-сохранения()

Dim path As String

Dim filename1 как строка



путь = "C:\Пользователь\Compwork\"



filename1 = path & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Приложение.DisplayAlerts = False

ActiveWorkbook.Saveas имя_файла1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("отчет").ExportAsFixedFormat Тип:=x1typePDF, имя файла:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Close



End Sub



Однако моя проблема в том, что я хотел бы сохранить имя файла, не оставляя пробела, если значение ячейки равно NULL, например, если значение G6 пустое, тогда мне нравится вывод «G4-H7 VTError».
Есть ли способ приблизиться к этому?


Благодарю.
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL