Всем привет! Вопрос, как закрыть конкретную, открытую книгу. Делаю так. Не получается
Код |
---|
Dim sDir, sFile, sName As Variant sDir = ThisWorkbook.Path & Application.PathSeparator & "Save" sFile = sDir & Application.PathSeparator & Range("O4").Value sName = Range("O4").Value & ".csv" Columns("A:D").Select Selection.Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:=sFile & ".csv" Windows(sName).Activate ThisWorkbook.Close False '"Эта строка закрывает не sName, а файл с которого запускаем Windows("Index.xlsm").Activate Range("A1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("N4").Select ActiveCell.FormulaR1C1 = "Сохранено" Range("N5").Select End Sub |