Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: 11789
Последний выпуск: 19.06.2015

поправить Ошибку кода при сохранение листа xl в новую книгу

38K
23 апреля
assei
20 / / 03.04.2013
Добрый день господа форумчане! помогите в вопросе исправления кода: вот что у меня получается
 
Код:
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
а хотелось бы что бы закрывалась только копия А НЕ ОРИГИНАЛ!
234
24 апреля
pashulka
978 / / 19.09.2004
Цитата:
а хотелось бы что бы закрывалась только копия А НЕ ОРИГИНАЛ!

 
Код:
Private Sub Test()
    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
38K
25 апреля
assei
20 / / 03.04.2013
Спасибо огромное вопрос решен!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог