Страницы: 1
RSS
Закрыть предыдущую книгу
 
Добрый день, из книги макросом копируются данные в новую книгу, нужен код закрывающий предыдущую книгу из которой были скопированы данные
 
nicex,    
Код
Windows(Имя_книги с расширением).Activate
ActiveWorkbook.Close SaveChanges:=False
Изменено: Mershik - 27.02.2020 18:02:32
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, проблема в том что закрываемая книга называется каждый раз по разному
 
nicex, ну значит нужно может цикл по книгам и закрыть все кроме той в которую копируется
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, все бы закрывать не хотелось, когда то попадался код запоминающий предыдущую книгу
 
Если код в надстройке и активная книга может отличаться от книги, в которой сам код:
Код
Dim wb As Workbook
Set wb = ActiveWorkbook
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
wb.Close True 'если сохранять изменения не надо - то False

если код в той книге, которую надо закрыть - все гораздо проще:
Код
Cells.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ThisWorkbook.Close True 'если сохранять изменения не надо - то False
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Дмитрий(The_Prist) Щербаков, Спасибо!
Страницы: 1
Наверх