Сохранение файла с заданным именем

В VBA решается парой строк:

Sub SaveAs()
ThisFile = ThisWorkbook.Path & "\" & "Проверка операций внутренние перемещения" & " " & Range("A2").Value & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Можно подробнее раскрыть строку с именем файла ThisFile
ThisWorkbook.Path & "\" & - эта строка указывает на то, что файл нужно сохранить в той же папке, что и открытий текущий файл

& " " & - конкатенация - вставляет пробел после основного имени файла и последующих добавлений (не обязательно)
Range("A2").Value & - в имя файла часто нужно включить содержимое какой либо ячейки
".xlsm" - и в конце добавить нужное расширение (обычно .xlsx или .xls).
Если добавлений не использовать строка сократиться до:
ThisFile = ThisWorkbook.Path & "\" & "Проверка операций внутренние перемещения.xlsm"

Комментарии

Отправить комментарий

Популярные сообщения из этого блога

Запуск макросов в автоматическом режиме по расписанию

Изображение
При наличии множества пакетных обработок файлов может быть очень удобным назначить им автоматическое выполнение по расписанию. Пакетные обработки могут выполняться через интервалы, друг за другом, без участия пользователей (в ночное время при включенном ПК). Это избавляет от необходимости присутствия оператора для запуска обработок, экономит время на их ожидание. Можно сделать так, что к началу рабочего дня обработчики уже создадут готовые отчеты и пользователям останется только проверить их. Автоматический запуск из закрытого Excel не возможен. Из ситуации есть два выхода - оставить открытой книгу Excel из которой будут вызываться обработки по расписанию либо воспользоваться внешним vbs-скриптом для этой задачи. который сам по сути является макросом. Макросы для планировщика придется немного изменить - нужно создавать их так, чтобы макрос не запрашивал никаких дополнительных окон и не просил от пользователя никаких действий. Т.е. если применяется пакетная обработка, то в коде макрос
Далее...

Пакетная обработка отчетов

Изображение
В задачах автоматизации массовых обработок часто стоит задача обработки множества отчетов однотипным образом (разные подразделения, филиалы). Чтобы не обрабатывать каждый такой отчет отдельно можно создать типовой обработчик одного файла, а затем вставить его в процедуру обработки множества файлов. Приведем пример. Нам нужно обработать файлы Продажи блюд производства с отгрузками по 20-ти ГМ. Их можно выгрузить в одну папку, добавив в конце имени файла название города или ГМ и запустить макрос, который обработает все 20 файлов без участия пользователя. Ранее мы уже разработали обработчик одного файла под названием Simple_Relise. Теперь Необходимо вставить его в макрос, который пройдет по всем файлам в папке и применит к ним этот обработчик. Приведем код. Запускать его нужно из любого файла НЕ находящегося в этой папке. Sub ГрупповаяОбработка()     ' запрашиваем пути к папкам с файлами, функция открывает окно выбора папки     InvoiceFolder$ = GetFolderPath     Dim coll A
Далее...

Отправка отчетов по электронной почте

Несмотря на широкую распростаненность и популярность Excel отправка электронных писем из него весьма не типична и не удобна. Без MS Outlook очень ограниченна. Есть некоторые устаревшие методы полноценной отправки, правда они не оставляют копий таких писем, требуют указания в коде программы личных данных почты и паролей, что может быть небезопасно. Поэтому рассмотрим только один подходящий пример отправки письма через используемый нами Mozilla Thunderbird (в VBA нет понятия почтового клиента по умолчанию в отличие от OOO, поэтому отправка из него настолько затруднена). Sub SMail() Dim addrRassl ' Пишем адрес, на который хотим отправить, можно указать несколько через массив или 'оставить поле пустым addrRassl = "example@mail.ru" Dim oShell Dim oThisBook As Workbook Set oThisBook = ThisWorkbook 'Определяем полный адрес вызова программы почтового клиента 'На вашем компьютере (в вашей системе) он может быть другим ' Указываем тему сообщения с текуще
Далее...