Private Sub pop5_Click()
Xl.Worksheets("ОТЧЕТ").Copy 'создаю копию листа из книги
Xl.Visible = False 'делаю ее скрытой
Xl.Worksheets("ОТЧЕТ").SaveAs "H: ОТЧЕТ " & Date & ".xlsx " 'открывается для сохранения НО НЕ ЗАКРЫВАЕТСЯ!
'Xl.Workbooks("ПКО_РКО").Close SaveChanges:=False ' этот код закрывает все книги главная и копию И РУГАЕТСЯ ИМЕННО НА ЭТОМ КОДЕ
Shell ("taskkill /F /IM excel.exe") 'а этот код закрывает все книги оригинал и копию
MsgBox "файл отчет выгружен и сохранен!", vbInformation, "ИНФОРМАЦИЯ!"
End Sub
а хотелось бы что бы закрывалась только копия А НЕ ОРИГИНАЛ!
поправить Ошибку кода при сохранение листа xl в новую книгу
Добрый день господа форумчане! помогите в вопросе исправления кода: вот что у меня получается
Код:
Код:
Private Sub Test()
Worksheets("ОТЧЕТ").Copy
ActiveWorkbook.SaveAs "H:\ОТЧЕТ_" & Date & ".xlsx", xlOpenXMLWorkbook '51
ActiveWorkbook.Close False
End Sub
Worksheets("ОТЧЕТ").Copy
ActiveWorkbook.SaveAs "H:\ОТЧЕТ_" & Date & ".xlsx", xlOpenXMLWorkbook '51
ActiveWorkbook.Close False
End Sub
Код:
Private Sub Test2()
Worksheets("ОТЧЕТ").Copy
ActiveWorkbook.Close True, "H:\ОТЧЕТ_" & Date & ".xls"
End Sub
Worksheets("ОТЧЕТ").Copy
ActiveWorkbook.Close True, "H:\ОТЧЕТ_" & Date & ".xls"
End Sub
Спасибо огромное вопрос решен!