Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование листа в конец другой книги
 
Добрый всем день!
необходимо ежесуточно копировать лист из одной книги в конец другой, записал через макрос команду переместить/скопировать, но на второе выполнение макрос добавляет лист не в конец, а предпоследним, далее 3-м с конца... как сделать, чтобы всегда лист копировался в конец?
Код
    Dim z As Integer
    z = ActiveWorkbook.Sheets.Count
    Sheets("Лист1").Select
    Sheets("Лист1").Copy After:=Workbooks("Книга2.xlsx"). _
        Sheets(Str(z) + 7)
    Windows("Книга2.xlsx").Activate
    ActiveWorkbook.BreakLink Name:= _
        "D:\Книга1.xlsx", Type _
        :=xlExcelLinks
    Windows("Книга1.xlsx").Activate

Изменено: Sanya4081 - 25 Мар 2015 13:00:40
 
Код
По-моему, надо как-то так:
Sheets("Лист1").Copy After:=Workbooks("Книга2.xlsx").Sheets(Workbooks("Книга2.xlsx").Worksheets.Count)
Кому решение нужно - тот пример и рисует.
 
Пытливый,спасибо! помогло!
Страницы: 1
Читают тему (гостей: 1)