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

Як зберегти файл Excel зі значенням комірки?

Коли ви користуєтесь робочою книгою, чи замислювались ви коли-небудь зберегти файл Excel на основі вмісту комірки? Наприклад, у вас у клітинці А1 є "Ціна продажу", і ви хотіли б зберегти книгу як назву Ціна продажу. Звичайно, ви можете ввести ім’я у діалоговому вікні Зберегти як, а потім зберегти його. Але це буде неефективним методом у вашому обсязі роботи. Сьогодні я розповім про швидкий трюк для його вирішення.

Збережіть файл Excel із певним значенням комірки за допомогою коду VBA

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2021 і 365; Підтримує всі мови; Легке розгортання на вашому підприємстві чи в організації.

стрілка синя права міхур Збережіть файл Excel із певним значенням комірки за допомогою коду VBA

Наступний код VBA може допомогти вам зберегти вашу книгу із зазначеним значенням комірки, будь ласка, зробіть наступне:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Ви можете вказати будь-яке значення комірки як ім'я файлу, просто змінивши А1 на інше посилання на комірку у наведеному вище коді.

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


Статті по темі:

Як зберегти файл із датою та часом у Excel?

Як показати шлях до файлу в рядку заголовка або на панелі інструментів у Excel?


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (33)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
модуль не зберігає в .XlsX ; думаю, що це має щось відношення до рядка 7;; ".xls", FileFormat:=xlNormal; Також як я можу змінити, щоб отримати значення з 3 різних об’єднаних клітинок? наприклад: ім'я , прізвище , дата; у рядку 6 коду?
Цей коментар був мінімізований модератором на сайті
Dim ім'я файлу як рядок
Dim filename1 як рядок
Dim filename2 як рядок

Шлях = "C:\Users\dt\Desktop\моя інформація\"
ім'я файлу = Діапазон ("A1")
filename1 = Діапазон ("A2")
filename2 = Діапазон ("A3")
ActiveWorkbook.SaveAs filename:=Шлях ​​і ім'я файлу & "-" & filename1 & "-" & filename2 ".xls", FileFormat:=xlNormal
Цей коментар був мінімізований модератором на сайті
Кріс Ви можете об’єднати його в окрему комірку, а потім посилатися на цю клітинку як значення імені файлу.
Цей коментар був мінімізований модератором на сайті
Привіт, Mine збереже лише як шлях та ім'я файлу. Я хочу лише зберегти ім’я файлу, на яке посилається клітинка. Чи можете ви мені допомогти?
Цей коментар був мінімізований модератором на сайті
Це дуже круто... але, здається, є помилка, яку я не знаю, як виправити. Я використовую це в шаблоні з підтримкою макросів. Я відкриваю шаблон, вношу зміни/оновлення, натискаю F5, щоб запустити макрос... і... з’являється діалогове вікно "Перейти до", яке очікує, що я введу "посилання". Однак, якщо я натисну ALT F11, ПІДТІ натисніть F5, новий файл .xls буде збережено, як очікувалося. Чи завжди мені потрібно відкривати модуль Visual Basic, щоб запустити цю процедуру «збереження»?
Цей коментар був мінімізований модератором на сайті
У мене є шаблон, який я не хочу переписувати, щоб користувач повинен був зберегти файл, названий за датою, введеною в одне з полів. Я не хочу, щоб користувач відкривав інструменти, а потім вибирав / запускав макрос. Вони також можуть ввести ім’я файлу.
Цей коментар був мінімізований модератором на сайті
ви можете додати =NOW() як параметр до імені файлу в комірці, перш ніж витягти його в макросі (а також розмістити стандартну кнопку в кутку сторінки, щоб співробітнику не доводилося відкривати будь-які інструменти
Цей коментар був мінімізований модератором на сайті
Ви, хлопці, рятувальники. Спасибі!
Цей коментар був мінімізований модератором на сайті
Мені потрібно зберегти як файл .csv. як я можу змінити це, щоб зберегти його як файл .csv? Private Sub filename_cellvalue() 'Оновлення 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Шлях ​​і ім'я файлу & ".xl ", FileFormat:=xlNormal End Sub Наперед дякуємо за допомогу!
Цей коментар був мінімізований модератором на сайті
Я думаю, що я зробив щось не так тут...

Це дає мені помилку в рядку Sheets("shitname").Виберіть

Ймовірно, я зробив щось не так, коли назвав "shitname" як клітинку K10

я хочу змінити аркуш на інший аркуш, який називається точно так само, як клітинка K10


' gicsel Макрос
'
' Комбінація клавіш: Ctrl+Shift+C
'
Вибір. Копіювати
Листи("дебагат").Виберіть
Рядки("8:8").Виберіть
ActiveSheet.Paste
Смутний шлях як рядок
Шлях = "C:\cgxml\"
Dim ім'я файлу як рядок
ім'я файлу = Діапазон ("A8")
Dim shitname As String
shitname = Діапазон ("K10")
Sheets("shitname").Виберіть
Application.CutCopyMode = Неправда
ActiveWorkbook.SaveAs filename:=Шлях ​​і ім'я файлу & ".xml", FileFormat:=xltxt, CreateBackup:=False
Sheets("TOTAL").Виберіть
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Цей коментар був мінімізований модератором на сайті
Це чудово працює... Дякую, але мені потрібно зберегти як PDF... Є думки?

Дякую

Кріс
Цей коментар був мінімізований модератором на сайті
те саме, що вище, але замініть ActiveWorkbook.SaveAs на: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Правда
Цей коментар був мінімізований модератором на сайті
Дякую за ваш відгук, мені дуже допомогли.
Цей коментар був мінімізований модератором на сайті
привіт,
Що мені додати, якщо я хочу зберегти активний аркуш, але використовуючи значення клітинки аркуша 1?
Цей коментар був мінімізований модератором на сайті
Допоможіть будь ласка... Я все встиг. Але він зберігає документи в Мої документи замість зазначеного сервера...



Приватна підкоманда CommandButton1_Click()
Смутний шлях як рядок
Приглушити ім'я файлу1 як рядок
Приглушити ім'я файлу2 як рядок
Приглушити ім'я файлу3 як рядок
Приглушити ім'я файлу4 як рядок
Приглушити ім'я файлу5 як рядок
Шлях = "J:\Protection Services\Documents\Booysendal security"
FileName1 = Діапазон ("A2")
FileName2 = Діапазон ("B2")
FileName3 = Діапазон ("C2")
FileName4 = Діапазон ("D2")
FileName5 = Діапазон ("E2")
ActiveWorkbook.SaveAs FileName:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Цей коментар був мінімізований модератором на сайті
Додайте зворотну косу риску після безпеки та перед лапкою... ...безпека\"
Цей коментар був мінімізований модератором на сайті
Що робити, якщо ви хочете просто визначити ім’я файлу, але маєте можливість вибирати шлях до файлу під час кожного збереження?

Також ви можете вказати кілька клітинок для імені файлу. Клітини також об’єднані.

Кожного разу зберігати в різних шляхах до файлів

Використовуйте кілька клітинок для імені файлу
Цей коментар був мінімізований модератором на сайті
Гаразд, тож я добре працював за допомогою кнопки на аркуші. Тепер я хотів би, щоб після початкового збереження як. Чи можна це зробити? Використовувати ту саму кнопку збереження?
Дякую, Брюс
Цей коментар був мінімізований модератором на сайті
як створити макрос для збереження кількох аркушів із значеннями їх клітинок як іменами файлів
Спасибі,
Раджив
Цей коментар був мінімізований модератором на сайті
Усім привіт!

Як можна зберегти повторюване введення в тих самих клітинках, в інших клітинках за допомогою макросу?

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


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

Дякую!
Цей коментар був мінімізований модератором на сайті
чи може хтось допомогти з рішенням, мені вдалося правильно отримати вихід, якщо клітинка не порожня

Приватні допоміжні збереження()

Смутний шлях Як рядок

Dim filename1 як рядок



шлях = "C:\User\Compwork\"



filename1 = шлях & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas filename1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Закрити



End Sub



Однак моя проблема полягає в тому, що я хотів би зберегти ім’я файлу, не залишаючи пробілу, якщо значення комірки дорівнює NULL, наприклад, якщо значення G6 порожнє, мені подобається виводити «G4-H7 VTERror».
Чи є спосіб підійти до цього?


Завдяки.
There are no comments posted here yet
Load More
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL