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

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранение файла с созданием папки имени и даты (Макросы/Sub)

Путник

Дата: Вторник, 20.12.2016, 23:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Помогите написать макрос. суть проблемы. нужно одним нажатием сохранить лист из книги при этом он должен сохраниться в папке текущего месяца например декабрь(месяц должен меняться в зависимости от даты) с названием автомобиля и датой указанной в заявке.

К сообщению приложен файл: 07.12.16-__.xls (79.0 Kb)

Ответить

Wasilich

Дата: Среда, 21.12.2016, 00:45 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Посмотрите раздел Готовые решения

Ответить

Путник

Дата: Среда, 21.12.2016, 18:15 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

но там он не создает папку с именем текущего месяца. там просто имя папки. в общем чуток не то что хотелось бы.(((((

Ответить

Kuzmich

Дата: Среда, 21.12.2016, 18:51 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 715

Репутация: 157 ±

Замечаний: 0% ±

Excel 2003

Цитата

но там он не создает папку с именем текущего месяца

Если папки нет, то создаем ее
[vba]

Код

If Dir(iPath, vbDirectory)="" Then MkDir iPath

[/vba]

Ответить

Путник

Дата: Четверг, 22.12.2016, 18:54 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

как тогда сохранить файл с именем например камаз 22,12,2016 что бы название файлы брала из самого файла?

Ответить

gling

Дата: Четверг, 22.12.2016, 19:03 | Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2643

Репутация: 739 ±

Замечаний: 0% ±

2010

Посмотрите вариант.
[vba]

Код

Sub SohrXLS()
    Dim WbMain As Workbook
    Dim Wb As Workbook
    Dim Mesyac As String
    Dim Papka As String
    Dim MyPath As String
    Mesyac = Format(Now, "mmmm yyyy")
Set WbMain = ActiveWorkbook
    Papka = WbMain.Path & "\" & Sheets(1).Range("K13").Value & " " & Mesyac
    If Dir(Papka, vbDirectory) = "" Then MkDir Papka
    WbMain.Sheets(1).Copy
Set Wb = ActiveWorkbook
        Wb.SaveAs Papka & "\" & "Заявка " & Sheets(1).Range("A1").Value & " от " & Sheets(1).Range("M4").Value & ".xls"
        Wb.Close
    MsgBox "   Лист в виде отдельного файла сохранен в папку по адресу: " & Papka
End Sub

[/vba]

К сообщению приложен файл: 9269159.xls (90.5 Kb)

ЯД-41001506838083

Ответить

Путник

Дата: Понедельник, 26.12.2016, 19:17 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

ОГО. спасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ответить

Сохранение файла с созданием папки имени и даты (Макросы/Sub)

Страница 1 из 1
1