Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание папки при сохранении. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание папки при сохранении. (Макросы/Sub)
Создание папки при сохранении.
iWannaFly Дата: Пятница, 24.03.2017, 10:56 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день ещё раз.
Нужна правка моего кода. Изначально нужно было сохранять мои листы в папку. Но позже столкнулся с необходимостью сохранения файлов при работе с другого ПК. Нужно выполнить макросом следующее действие: создать папку на рабочем столе - допустим ТК; далее создать подпапку с именем из ячейки; а далее уже сохраняется файл с именем из ячейки и расширением, как в моём макросе.
Как работают операции создания папок и подпапок не могу понять, даже в теории.

Заранее спасибо всем откликнувшимся!

[vba]
Код
Sub СохранитьЛист1()
    [GostMater1].Font.ColorIndex = 2
    Rows.Hidden = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(0)
        .RightMargin = Application.CentimetersToPoints(0)
        .TopMargin = Application.CentimetersToPoints(0)
        .BottomMargin = Application.CentimetersToPoints(0)
    End With
Dim ActiveSht As Worksheet
Dim NewWb As Workbook
    Set ActiveSht = ActiveSheet
    Set NewWb = Workbooks.Add
    ActiveSht.Copy Before:=Workbooks(NewWb.Name).Sheets(1)
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
      For Each S In ActiveSheet.Shapes
    S.Delete
    Next S
    ActiveWorkbook.SaveAs Filename:="C:\Users\lyapi\Desktop\МК здесь!\" & [AW5] & ".xlsx"
    MsgBox "Ваша технология успешно сохранена!!! Можно начинать другую", , ""
    ActiveWorkbook.Close False
End Sub
[/vba]


Сообщение отредактировал iWannaFly - Пятница, 24.03.2017, 10:57
 
Ответить
СообщениеДобрый день ещё раз.
Нужна правка моего кода. Изначально нужно было сохранять мои листы в папку. Но позже столкнулся с необходимостью сохранения файлов при работе с другого ПК. Нужно выполнить макросом следующее действие: создать папку на рабочем столе - допустим ТК; далее создать подпапку с именем из ячейки; а далее уже сохраняется файл с именем из ячейки и расширением, как в моём макросе.
Как работают операции создания папок и подпапок не могу понять, даже в теории.

Заранее спасибо всем откликнувшимся!

[vba]
Код
Sub СохранитьЛист1()
    [GostMater1].Font.ColorIndex = 2
    Rows.Hidden = False
    With ActiveSheet.PageSetup
        .LeftMargin = Application.CentimetersToPoints(0)
        .RightMargin = Application.CentimetersToPoints(0)
        .TopMargin = Application.CentimetersToPoints(0)
        .BottomMargin = Application.CentimetersToPoints(0)
    End With
Dim ActiveSht As Worksheet
Dim NewWb As Workbook
    Set ActiveSht = ActiveSheet
    Set NewWb = Workbooks.Add
    ActiveSht.Copy Before:=Workbooks(NewWb.Name).Sheets(1)
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
      For Each S In ActiveSheet.Shapes
    S.Delete
    Next S
    ActiveWorkbook.SaveAs Filename:="C:\Users\lyapi\Desktop\МК здесь!\" & [AW5] & ".xlsx"
    MsgBox "Ваша технология успешно сохранена!!! Можно начинать другую", , ""
    ActiveWorkbook.Close False
End Sub
[/vba]

Автор - iWannaFly
Дата добавления - 24.03.2017 в 10:56
_Boroda_ Дата: Пятница, 24.03.2017, 11:02 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Почитайте
http://excelvba.ru/code/MkDir

Да и вообще вот здесь куча всего
https://yandex.ru/search....esearch


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПочитайте
http://excelvba.ru/code/MkDir

Да и вообще вот здесь куча всего
https://yandex.ru/search....esearch

Автор - _Boroda_
Дата добавления - 24.03.2017 в 11:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание папки при сохранении. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!