Добрый день ещё раз.
Нужна правка моего кода. Изначально нужно было сохранять мои листы в папку. Но позже столкнулся с необходимостью сохранения файлов при работе с другого ПК. Нужно выполнить макросом следующее действие: создать папку на рабочем столе - допустим ТК; далее создать подпапку с именем из ячейки; а далее уже сохраняется файл с именем из ячейки и расширением, как в моём макросе.
Как работают операции создания папок и подпапок не могу понять, даже в теории.
Заранее спасибо всем откликнувшимся!
[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]