Сохранение листа в из книги как отдельный файл.xls

@Klim_ul · Регистрация: 23.01.2012

Студворк — интернет-сервис помощи студентам

Процедура по нажатию кнопки-сохранить к примеру лист3 из текущей книги как отдельный файл.xls с названием текущей даты в отдельную папку. А также если файл с таким названием уже существует, тогда перезаписать! Подскажите пожалуйста! Заранее спасибо!

@Hugo121 · 15.04.2020, 10:18

Ну всё ведь до буквы расписал вроде...

Visual Basic
1
2
Application.GetSaveAsFilename InitialFileName:="D:\" & Format(Date, "yyyy/mm/dd") & " " & Range("N13") & " - " & Range("M30") & ".xlsx"
Application.Dialogs(xlDialogSaveAs).Show

Засада может скрываться только в Range("N13") & " - " & Range("M30"), я бы все же делал через переменную и проверил её на запрещённые для имени файла символы.

@cxgeser · 15.04.2020, 10:36

пробовал, не ест при таком варианте не имя не тип
имя файла загонял в переменную, тоже не ест...

@Hugo121 · 15.04.2020, 10:55

Да, проверка показала что и у меня тоже так не работает.

@kul.73 · 29.03.2025, 15:51

Сообщение от SlavaRus

Код для копирования области печати. Область печати должна быть установлена.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim wbTarget As Workbook
Dim rngTarget As Range
 
Set wsSource = ActiveWorkbook.ActiveSheet               'Ëèñò èñòî÷íèê, ïîñòàâèøü íóæíûé
 
If wsSource.PageSetup.PrintArea <> "" Then              'Ïðîâåðÿåì îáëàñòü ïå÷àòè
        Set wbTarget = Workbooks.Add
        Set wsTarget = Worksheets(1)                    'Ëèñò êóäà êîïèðóåì, ïîñòàâèøü íóæíûé
        
        wsSource.Range(wsSource.PageSetup.PrintArea). _
        SpecialCells(xlCellTypeVisible).Copy            'êîïèðóåì âèäèìûå ÿ÷åéêè
 ' Âìåñòî wsSource.PageSetup.PrintArea ìîæíî çàäàòü ñâîé äèàïàçîí, íàïðèìåð UsedRange.Address
 
        Set rngTarget = wsTarget.Range("a1")                'Íà÷àëî äèàïàçîí êóäà âñòàâëÿåì
        rngTarget.PasteSpecial Paste:=xlPasteColumnWidths   'Óñòàíàâëèâàåì øèðèíó ñòîëáöëâ îðèãèíàëà
        rngTarget.PasteSpecial Paste:=xlPasteValues         ' Êîïèðóåì çíà÷åíèÿ è ôîðìàòû
        rngTarget.PasteSpecial Paste:=xlPasteFormats
'        wbTarget.SaveAs ("MyCopySheet")
Else
        MsgBox "Óñòàíîâèòå îáëàñòü ïå÷àòè" & vbCrLf & _
        "Ðàçìåòêà ñòðàíèöû->Ïå÷àòàòü çàãîëîâêè->Âûâîäèòü íà ïå÷àòü äèàïàçîí"
End If

Доброго дня. Тема живая нет?
Сделал экспорт по Вашему макросу. Все супер!!!
Вопрос можно ли сохранить формулу в конкретных ячейках при экспорте?

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Klim_ul 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 6

	Сохранение листа в из книги как отдельный файл.xls 23.01.2012, 17:07. Показов 97851. Ответов 83 Метки нет (Все метки) Процедура по нажатию кнопки-сохранить к примеру лист3 из текущей книги как отдельный файл.xls с названием текущей даты в отдельную папку. А также если файл с таким названием уже существует, тогда перезаписать! Подскажите пожалуйста! Заранее спасибо! 0

@cxgeser 0 / 0 / 0 Регистрация: 04.01.2016 Сообщений: 22
	15.04.2020, 10:36
	пробовал, не ест при таком варианте не имя не тип имя файла загонял в переменную, тоже не ест... Миниатюры 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	15.04.2020, 10:55
	Да, проверка показала что и у меня тоже так не работает. 0