The_Prist,
Спасибо Вам большое! У меня получилось, почитала в Вашей ссылочке))) Только вот срабатывает как-то медленно... Ускорить этот процесс можно как-нибудь?
Код вот такой получился:
Спасибо Вам большое! У меня получилось, почитала в Вашей ссылочке))) Только вот срабатывает как-то медленно... Ускорить этот процесс можно как-нибудь?
Код вот такой получился:
Код |
---|
Sub Main() Const strRootFolder As String = "M:\Production\Мастера\2017\Нормализация" Dim strFolder As String strFolder = "M:\Production\Мастера\2017\Нормализация\" & Range("имя_папки").Value If Dir(strFolder, vbDirectory) = "" Then MkDir strFolder End If Dim New_Wb As Workbook Set New_Wb = Workbooks.Add New_Wb.Activate New_Wb.SaveAs "M:\Production\Мастера\2017\Нормализация\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("имя_папки").Value & "\" & Workbooks("Расчет.xlsm").Worksheets("1 норм").Range("Книга") & ".xlsm", 52 Windows("Расчет.xlsm").Activate End Sub |