powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранить один лист
8 сообщений из 8, страница 1 из 1
Сохранить один лист
    #34529846
tvish_ka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Мне нужно сохранить только один лист из текущей книги в новой книге
Как это можно сделать?
...
Рейтинг: 0 / 0
Сохранить один лист
    #34529871
Koc!!!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Sheets("Лист1").Move
...
Рейтинг: 0 / 0
Сохранить один лист
    #34529876
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
    Sheets("Лист1").Select
    Sheets("Лист1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Книга2.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
...
Рейтинг: 0 / 0
Сохранить один лист
    #34530068
tvish_ka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все замечательно, работает , спасибо , но....
После копирования этого листа создается некая Книга1 с этим листом и остается на экране
а как бы так, чтобы без этой временной книги?
...
Рейтинг: 0 / 0
Сохранить один лист
    #34530082
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ActiveWorbook.close
...
Рейтинг: 0 / 0
Сохранить один лист
    #34530101
tvish_ka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Неа, не срабатывает
все равное остается да еще и ругается
...
Рейтинг: 0 / 0
Сохранить один лист
    #34530176
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Должно срабатывать:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False 'чтоб, не спрашивая, писал на место существующего файла
    ActiveWorkbook.Sheets("Лист1").Copy
    With ActiveWorkbook
        .SaveAs Filename:="C:\Лист2.xls"
        .Close SaveChanges:=True 'чтоб, не спрашивая, сохранял изменения 
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
Сохранить один лист
    #34530341
tvish_ka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
СПАСИБО!!!
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранить один лист
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]