Excel как сохранить выделенный диапазон в отдельный файл - Word и Excel

Когда мы имеем дело с длинным листом, мы можем захотеть сохранить только выбранный диапазон, а не всю книгу в виде нового файла Excel, например, отправив разные выбранные фрагменты рабочего листа разным людям. Мы познакомим вас с методами сохранения выбранных элементов на листе в виде отдельных файлов Excel.

Сохранение выбранных элементов в виде отдельных файлов Excel с копированием и вставкой

Сохранение выделений в виде отдельных файлов Excel с помощью макроса VB

Сохранить выборку как отдельные файлы Excel с помощью Kutools for Excel

Сохранение выбранных элементов в виде отдельных файлов с копированием и вставкой

Наиболее распространенный метод — скопировать выделение, которое вы хотите сохранить как отдельный файл в Excel, создать новую книгу и вставить в нее скопированный выделенный фрагмент, а затем сохранить его.

Однако при копировании и вставке вы можете потерять некоторые стили форматирования в выделенном фрагменте, например высоту строки и т. Д.

Сохранение выделений в виде отдельных файлов с помощью макроса VB

Использование макроса — это простой способ сохранить выбранные элементы в виде отдельных файлов без копирования и вставки в новую книгу.

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Moudleи вставьте следующий код в окно Moudle.

VBA: диапазон экспорта в файл Excel

Sub ExportRangetoExcel()
'Update 20130916
Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
Dim address As String
Dim defult As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
defult = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set wb = Application.Workbooks.Add
Application.SheetsInNewWorkbook = defult
WorkRng.Copy
wb.Worksheets(1).Paste
address = Replace(WorkRng.address, ":", "-")
address = Replace(address, "$", "")
address = Replace(address, ".", "")
saveFile = Application.GetSaveAsFilename(InitialFileName:=address, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx")
wb.SaveAs Filename:=saveFile
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 нажмите клавишу для выполнения операции, и появится диалоговое окно с напоминанием о выборе диапазона, который вы хотите сохранить как отдельный файл Excel. Смотрите скриншот:

4. Затем нажмите OKи укажите папку, в которой будет находиться этот новый файл, а затем введите имя файла в поле Сохранить как диалоговое окно, см. снимок экрана:

5, Затем нажмите Сохраните , выбранный диапазон был сохранен как новая книга Excel.

Использование макросов может быть немного сложным для начинающих Microsoft Excel, и мы представим еще один простой и удобный способ, предоставляемый Kutools for Excel.

Сохранить выборки как отдельные файлы с помощью Kutools for Excel

Kutools for Excel‘s Диапазон экспорта в файл Инструмент может помочь нам быстро сохранить выбранные элементы в виде отдельных файлов.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

Если вы установили Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Предприятие > Импорт / Экспорт > Диапазон экспорта в файл, см. снимок экрана:

2. В Диапазон экспорта в файл диалогового окна, нажмите кнопку, чтобы выбрать диапазон, который вы хотите сохранить как отдельный файл, а затем установите флажок Книга Excel вариант в Формат файла раздел, наконец, вы можете проверить параметры книги по мере необходимости.

3. Нажмите OK, то появится Выберите имя и местоположение для экспортируемого диапазона в диалоговом окне введите имя этого нового файла и выберите папку, в которой вы его сохраните. А затем щелкните Сохраните кнопку.

Заметки:

1. Диапазон экспорта в файл инструмент Kutools for Excel может сохранить все форматирование в выборе.

2. Kutools for Excel’s Диапазон экспорта в файл Инструмент позволяет легко экспортировать диапазон дат в файл, будь то книга Excel, CSV, простой HTML или полностью форматируемый HTML.

3. Если вы проверите Открыть файл после экспорта в диалоговом окне, новый файл будет запущен автоматически после его успешного экспорта.

Чтобы узнать больше об этой функции, нажмите Диапазон экспорта в файл.

Статьи по теме

Экспорт данных Excel в формате HTML
Сохранить выделение или всю книгу как PDF
Экспорт данных Excel в файлы CSV в Excel
Экспорт данных Excel в текстовые файлы Excel

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Источник

yulilntv

0 / 0 / 0

Регистрация: 06.02.2020

Сообщений: 16

Excel

Сохранение диапазона ячеек по кнопке в новый файл

12.05.2020, 14:07. Показов 5929. Ответов 8

Метки нет (Все метки)

Добрый день!
Создаю макрос к кнопке, которая выделяет диапазон с A2 до крайней левой и крайней нижней, копирует его в новую книгу и сохраняет ее в формате .xlsx и .pdf.

Код который у меня сейчас есть:

Visual Basic

Sub VoronkaSaveAsDocument()
    Dim M As String
    Dim S As String
    Dim x As Long
    
    M = Range("N1").Value
    
   
    Worksheets("Воронка кандидатов").Activate
    
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.ColumnWidth = 12.9
    Selection.Rows.AutoFit
        
    
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & M & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
   ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
   Filename:=ThisWorkbook.Path & "" & M & ".pdf"
  
    ActiveWindow.Close
      Windows("Новый дизайн профилей.xlsm").Activate
 
    Application.ScreenUpdating = True
End Sub

В данном случае он выдает следующую ошибку:

При этом, если заменить :

Visual Basic

1 2	Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False

на:

Visual Basic

1 2	ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & M & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

То код работает, но мне необходимо сохранить исходное форматирование, но преобразовать все имеющиеся формулы в значения (в приведенном файле все уже преобразовано в значения, так как вычищена конфи инфа). Количество выводимых строк-динамическое, может быть 5, а может 555.

На всякий случай файл прикрепляю. https://yadi.sk/d/gInQqQV2DeAIBw. Код находится в 4 модуле.

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

12.05.2020, 14:42

У меня отработало.
Правда строк там не 555, а 1048575, может поэтому у Вас и глючит — вычистите весь мусор под таблицей.

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

12.05.2020, 15:16

Сообщение было отмечено yulilntv как решение

Решение

yulilntv, Если данные под таблицей копировать не нужно и в таблице нет полностью пустых строк, то без проверки корректности указания имени файла (ячейка N1 активного раб.листа) можно и так :

Visual Basic

Private Sub Test()
    Dim wb As Workbook, ws As Worksheet, r As Range
    Dim p$: p = ThisWorkbook.Path & "" & CStr(Range("N1"))
    
    Set r = ThisWorkbook.Worksheets("Воронка кандидатов").Range("A1").CurrentRegion
    Set wb = Workbooks.Add(xlWBATWorksheet)
    Set ws = wb.Worksheets(1)
    
    r.Copy ws.Range("A1") 'ws.Range(r.Address)
    With ws.Range(r.Address)
         .Value = r.Value
         .ColumnWidth = 12.9
    End With
    
    wb.SaveAs p & ".xlsx", xlOpenXMLWorkbook ', CreateBackup:=False
    ws.ExportAsFixedFormat xlTypePDF, p & ".pdf"
End Sub

Если с определением диапазона вышла промашка, то можно еще протестировать .UsedRange (на замену .Range(«A1»).CurrentRegion)

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

12.05.2020, 16:01

Да, имя файла в переменную M = Range(«N1»).Value я естественно ставил.

0 / 0 / 0

Регистрация: 06.02.2020

Сообщений: 16

12.05.2020, 17:10

[ТС]

pashulka, спасибо, макрос отрабатывает сохранение, но при таком раскладе он некрасиво сохраняет в PDF. Есть ли возможность сохранить либо с вмещением хотя бы всех столбцов? Сейчас он обрезает на 6 столбце и сохраняет на разные листы.

Можно ли сделать нечто похожее на эти выборы:

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

12.05.2020, 17:32

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

Есть ли возможность сохранить либо с вмещением хотя бы всех столбцов?

Есть, но как увидеть данные без мелкоскопа в таких умещённых столбцах

Visual Basic

With ws.PageSetup
     .LeftMargin = 0 'Application.InchesToPoints(0)
     .RightMargin = 0 'Application.InchesToPoints(0)
     .Zoom = False
     .FitToPagesWide = 1
End With
ws.ExportAsFixedFormat xlTypePDF, p & ".pdf"

yulilntv

0 / 0 / 0

Регистрация: 06.02.2020

Сообщений: 16

12.05.2020, 17:35

[ТС]

И еще, пыталась адаптировать Ваш код под еще один макрос для другого листа, но с фиксированным диапазоном, получилось следующее:

Visual Basic

Sub SaveAsDocument()
    
     Dim wb As Workbook, ws As Worksheet, r As Range
    Dim p$: p = ThisWorkbook.Path & "" & CStr(Range("E1")) - изменила ячейку, из которой берется название документа
    
    Set r = ThisWorkbook.Worksheets("Подбор под профиль").Range("A1:D64").CurrentRegion - изменила название листа и пыталась зафиксировать диапазон
    Set wb = Workbooks.Add(xlWBATWorksheet)
    Set ws = wb.Worksheets(1)
    
    r.Copy ws.Range("A1:D64") 'ws.Range(r.Address) - пыталась зафиксировать диапазон
    With ws.Range(r.Address)
         .Value = r.Value
         .ColumnWidth = 32.91
    End With
    
    wb.SaveAs p & ".xlsx", xlOpenXMLWorkbook ', CreateBackup:=False
    ws.ExportAsFixedFormat xlTypePDF, p & ".pdf"
    
End Sub

Но он все равно доходит до первой пустой ячейки и сохраняет лишь часть. Подскажите пожалуйста, что я упустила? В каком месте фиксируется копируемый диапазон?

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

12.05.2020, 18:15

У меня нет фиксированного диапазона. У меня используется CurrentRegion, а это выделить ячейку A1 (можно и другую), затем F5, Выделить, Текущую область — Ок. Если такой диапазон определяется правильно, то ничего менять не надо, если нет, повторюсь, сначала пробуйте .UsedRange

А с фиксированным, наоборот, CurrentRegion не нужен. Ничего более менять не нужно.

Visual Basic

1	Set r = ThisWorkbook.Worksheets("Подбор под профиль").Range("A1:D64")

0 / 0 / 0

Регистрация: 06.02.2020

Сообщений: 16

12.05.2020, 18:21

[ТС]

pashulka, в любом случае, спасибо Вам большое за помощь, это именно то, что мне было необходимо.
Пойду разбираться и адаптировать)

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.05.2020, 18:21

Помогаю со студенческими работами здесь

Составить новый файл, где класс с максимальным количеством школьников будет записан в новый файл и рассортирован по возрасту.
Решите)))
Сформировать файл из школьников: ФИО, дата рождения (дд, мм, гг), класс. Составить новый…

Сохранение листа книги в новый файл с определенным названием в новую папку с таким же названием в определенной папке
Привет всем профи и любителям!
Прошу помочь с написанием макроса.

Имеется книга с 2 листами….

Копирование диапазона ячеек
Уважаемые форумчане, подскажите, пожалуйста. Хочу скопировать диапазон ячеек с одного листа на…

суммирование диапазона ячеек
Всем добрый день. Столкнулся с такой проблемой. Есть набор данных в строках со значением к/* (* -…

Удаление диапазона ячеек
Добрый день, форумчане! Как из DataGridView удалить диапазон ячеек, если известен номер начальной и…

Выбор диапазона ячеек
Что-то совсем все подзабыл… в общем есть отчет для подсчета стажа сотрудников, который в свою…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Zinoviy

Пользователь

Сообщений: 4
Регистрация: 01.01.1970

Для решения производственных задач понадобилось эта самая заморочка. Копировать и т.д. не очень удобно и долго.Хотелось бы либо формулой, либо макросом.
Задача:
Выделенный диапазон сохранить в отдельном файле с расширением .nc

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Включите макрорекордер и запишите действия: 1. Выделение диапазона. 2. Копирование. 3. Вставка на другой лист. 4. Сохранение в текстовом формате. Макрос готов.

Zinoviy

Пользователь

Сообщений: 4
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=15.03.2010 11:42}{thema=}{post}Включите макрорекордер и запишите действия:
1. Выделение диапазона.
2. Копирование.
3. Вставка на другой лист.
4. Сохранение в текстовом формате.
Макрос готов.{/post}{/quote}
Спасибо!
Сохраняет как глухонемой, нужно чтобы имя на сохранение файла запрашивал.

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

Примерно так. Только добавьте Ваши фрагменты копирования-вставки.
Sub Txt_Save()
Dim Nam As String
Nam = InputBox(Prompt:=»Укажите имя файла», Title:=»Выбираем имя»)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=»D:Tmp» & Nam & «.txt», FileFormat:= _
xlText, CreateBackup:=False
Application.DisplayAlerts = True
End Sub

Zinoviy

Пользователь

Сообщений: 4
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=16.03.2010 12:47}{thema=}{post}Примерно так. Только добавьте Ваши фрагменты копирования-вставки.
Sub Txt_Save()
Dim Nam As String
Nam = InputBox(Prompt:=»Укажите имя файла», Title:=»Выбираем имя»)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=»D:Tmp» & Nam & «.txt», FileFormat:= _
xlText, CreateBackup:=False
Application.DisplayAlerts = True
End Sub{/post}{/quote}
Есть одно но…
Range(«E16»).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets(«Лист2»).Select
Range(«A1»).Select
ActiveSheet.Paste Link:=True
«Лист2» переименовывается в название сохраненного файла. Дальше макрос не работать если только не переименовать снова в «Лист2».

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Дело в том, что в таком виде будет сохраняться активная книга. Посмотрите пример. Выделяем нужный диапазон и нажимаем кнопку. Будет создан НОВЫЙ текстовый файл. Исходная книга останется без изменений.

Zinoviy

Пользователь

Сообщений: 4
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=16.03.2010 08:02}{thema=}{post}Дело в том, что в таком виде будет сохраняться активная книга. Посмотрите пример. Выделяем нужный диапазон и нажимаем кнопку. Будет создан НОВЫЙ текстовый файл. Исходная книга останется без изменений.{/post}{/quote}
Огромное вам спасибо за помощь! Пытаюсь доработать,но не выходит. А не выходит следующее: как быть с ячейками, содержащими формулы?

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	#8 18.03.2010 21:56:02 Заменить формулы на значения.

Источник

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация:
23
±

Замечаний:
0% ±

Excel 2010

Доброй всем пятницы.
Подскажите код макроса, который бы сохранял диапазон AJ3:BU36 в новый файл с запросом папки сохранения.
На форуме есть примеры, но не хватает опыта настроить под работу своего файла.

К сообщению приложен файл:

0475381.xlsm
(39.8 Kb)

Всем удачного дня!

Сообщение отредактировал VIDEO56 — Пятница, 24.07.2015, 09:44

Источник

На пересечении строк и столбцов образуются ячейки, каждая из которых имеет название: адрес столбца + адрес строки. Например, A3, G22, D11 и т.д.

В окне программы есть поле имени ячейки (выделено на скриншоте). В этом поле отображается адрес активной (выделенной) ячейки. Обратите внимание, что при выделении ячейки названия ее столбца и строки меняют свой цвет.

Чтобы перейти к нужной ячейке, достаточно в поле имени ячейки ввести ее адрес (например, C2) и нажать Enter.

Как выделить ячейки в Excel

Выделение одной ячейки

Чтобы выделить одну ячейку, нужно щелкнуть по ней левой кнопкой мыши. Появится черная рамка (табличный курсор), ячейка станет активной.

Выделение диапазона смежных (соседних) ячеек

Чтобы выделить диапазон смежных ячеек (прямоугольную область), нужно щелкнуть левой кнопкой мыши по первой ячейке диапазона и, удерживая кнопку, переместить указатель мыши в последнюю ячейку.

Как выделить несмежные ячейки?

Для выделения несмежных ячеек нужно выделить первую ячейку, нажать на клавиатуре клавишу Ctrl и, удерживая ее, щелкать по остальным ячейкам, которые нужно выделить. После выделения всех ячеек клавишу Ctrl нужно отпустить. Можно использовать для заливки ячеек цветом, выбора границ ячеек и т.д.

Как выделить весь столбец или строку в Excel?

Чтобы выделить весь столбец (строку), нужно щелкнуть по его (ее) названию.

Выделение нескольких столбцов (строк)

Для выделения нескольких смежных столбцов (строк) нужно щелкнуть мышкой по начальному столбцу и, не отпуская кнопки мыши, переместить курсор к конечному столбцу.

Если столбцы (строки) несмежные, необходимо использовать клавишу Ctrl.

Как выделить все ячейки (всю таблицу) Excel?

Для выделения всех ячеек на листе нужно щелкнуть на прямоугольнике, который расположен между названиями столбца A и строки 1.

Как присвоить имя ячейки или диапазону в Excel

Присвоить имя отдельной ячейке (диапазону ячеек) можно несколькими способами:

выделить ячейку (диапазон), в поле имени щелкнуть два раза левой кнопкой мыши по названию ячейки (название выделится) и ввести новое (например, ИТОГО);

выделить ячейку (диапазон), перейти на ленте на вкладку Формулы, выбрать Присвоить имя и в диалоговом окне Создание имени ввести имя ячейки (диапазона) (например, ИТОГО) и нажать OK;

выделить ячейку (диапазон), щелчком правой кнопки мыши по ней вызвать контекстное меню, в нем выбрать Имя диапазона, создать имя и нажать ОК.

Примечание: в имени ячейки не должно быть пробелов.

Поиск ячеек с именами

Чтобы найти ячейки, которым присвоены имена, нужно перейти на вкладку Формулы, выбрать Диспетчер имен. Откроется диалоговое окно Диспетчер имен, в котором будет список всех ячеек и диапазонов, которым присвоены имена. В этом окне можно удалять, изменять и создавать имена.

Переход между ячейками с помощью клавиатуры

Если нужно перейти от активной ячейки в соседнюю ячейку, можно использовать клавиши (сочетания клавиш) на клавиатуре. Для перехода

вправо — Tab
влево — Shift + Tab
вниз — Enter
вверх — Shift + Enter

Настройка клавиши Enter

Можно настроить действие клавиши Enter (на клавиатуре). Для этого выберем Файл (или кнопку Офис на ленте) — Параметры Excel.

В диалоговом окне Параметры Excel на вкладке Дополнительно должен стоять флажок Переход к другой ячейке после нажатия ВВОД. Направление можно выбрать из списка. По умолчанию задано Вниз.

Как сохранить таблицу Excel?

Чтобы сохранить книгу Excel, нужно нажать Файл (или кнопку Офис на ленте). Если файл создан впервые или нужно сохранить ранее созданный файл после внесенных изменений, нужно выбрать Сохранить. В первом случае необходимо указать имя файла и путь его сохранения. Во втором файл будет сохранен автоматически. Если же требуется сохранить копию книги Excel, выбрать Сохранить как и указать имя и путь сохранения.

Автосохранение

Часто при аварийном завершении работы программы не удается сохранить внесенные изменения и приходится заново проводить работу с файлом. Чтобы избежать таких проблем, существует функция автосохранения.

Можно настроить время, через которое документ будет автоматически сохраняться без вмешательства пользователя.

Для этого нужно нажать Файл (или кнопку Офис на ленте), выбрать Параметры Excel, открыть Сохранение, установить флажок Автосохранение каждые… и время (например, 1 минута), нажать ОК.

Более подробно об автосохранении читайте здесь.

Кратко об авторе:

Шамарина Татьяна Николаевна — учитель физики, информатики и ИКТ, МКОУ «СОШ», с. Саволенка Юхновского района Калужской области. Автор и преподаватель дистанционных курсов по основам компьютерной грамотности, офисным программам. Автор статей, видеоуроков и разработок.

Спасибо за Вашу оценку. Если хотите, чтобы Ваше имя
стало известно автору, войдите на сайт как пользователь
и нажмите Спасибо еще раз. Ваше имя появится на этой стрнице.

Источник

На чтение 2 мин. Просмотров 194 Опубликовано 29.05.2021

В Microsoft Excel пользователи могут экспортировать данные в файл .csv. Это простой формат файла, который используется для хранения электронных таблиц и баз данных и может быть открыт во множестве операционных систем и программ. Этот простой формат файла разделяет значения запятыми (отсюда и название значения, разделенные запятыми ).

При создании .csv в Microsoft Excel пользователь может захотеть выбирать только данные из определенных столбцов. Один плакат superuser.com объяснил:

«Я хочу экспортировать определенное количество столбцов из Excel в файл .csv. У меня около 10 столбцов, таких как lname, fname, phone, address, email и так далее. Что мне делать, чтобы экспортировать только определенные столбцы, такие как lnam, email и т. Д.? »

Можно выбрать единственные столбцы, которые вы собираетесь экспортировать, и создать из них файл .csv, используя следующий метод.

Метод 1. Создание новой книги

Самый простой способ создания файла .csv – начать с выбор первого столбца, который вы собираетесь экспортировать. Вы можете сделать это, нажав букву, которая представляет столбец вверху страницы. Так, например, если пользователь намеревается экспортировать столбцы F, G, и L , они должны начать с нажатия F столбец вверху.

Затем пользователь должен, удерживая клавишу Ctrl на клавиатуре, выбрать G и Л. Это позволяет выбрать несколько столбцов. Вы должны увидеть выделение вокруг каждого полного столбца данных. Затем нажмите Ctrl и C , а затем нажмите Ctrl и N.

Первая команда клавиатуры скопирует все столбцы вы выделили, и вторая команда откроет новую книгу. После открытия новой книги. Нажмите любую ячейку внутри листа, а затем нажмите Ctrl и V, которые вставят данные, которые вы скопировали из первого wookbook.

Затем нажмите Ctrl и S на клавиатуре и в поле в нижней части открывшегося окна выберите имя для вашего файла в диалоговое окно с меткой Имя файла . Под диалоговым окном имени находится поле с надписью Сохранить как тип. Щелкните это раскрывающееся меню и выберите .csv. Затем нажмите

Метод 2: используйте CSV, экспортированный VBA

Щелкните ( здесь ) и загрузите VBA.
И установите его. Затем загрузите форму, одновременно нажав CTRL + SHIFT + C.
Затем выделите диапазон, который вы хотите экспортировать.
Затем выберите папку, в которую вы хотите экспортировать сохранен как CSV.
Назовите файл, формат и укажите разделитель.
И нажмите “Экспорт”.

Источник

Вот пример, позволяющий сохранить определённый диапазон, а именно диапазон смежных ячеек «A1:D1000» активного рабочего листа в выбранную Вами папку и с введённым именем файла.

Private Sub DiapazonSaveInXLFile()
Dim iSource As Range, iFileName ‘As Variant
Set iSource = ActiveSheet.Range(«A1:D1000»)

With Application
iFileName = .GetSaveAsFilename( _
FileFilter:=»Excel Files (*.xls), *.xls», _
Title:=»Введите имя файла и выберите место его сохранения»)
If iFileName <> False Then
.ScreenUpdating = False
.DisplayAlerts = False ‘
With .Workbooks.Add(xlWBATWorksheet)
iSource.Copy Destination:=.Worksheets(1).Range(«A1»)
.Close FileName:=iFileName, saveChanges:=True
End With
.DisplayAlerts = True ‘
.ScreenUpdating = True
Else
MsgBox «Для сохранения данных необходимо указать файл», , «»
End If
End With
End Sub

P.S. Обратите внимание на то, что здесь нет проверки существования файла с указанным именем и если Вы введёте имя уже существующего файла, то старый будет «удалён»

Источник

MulTEx »

1 Май 2011 13780 просмотров

Сохранить в графический файл

Данная функция является частью надстройки MulTEx

Вызов команды:
MulTEx -группа Ячейки/Диапазоны —Диапазоны —Сохранить в графический файл

С помощью этой команды Вы можете сохранить в графический файл выделенный на листе диапазон, все объекты на листе и в книге или только выделенный объект.
Для чего это надо? Иногда бывает необходимо сделать скриншот листа, вставить в редактор и обрезать его до нужных размеров. Воспользовавшись данной командой Вы сможете сделать это быстрее и проще. Вам надо только выделить диапазон на листе(хоть одну, хоть 50 ячеек), нажать кнопку и выбрать формат создаваемого файла — JPEG, GIF, BMP, PNG, TIFF, WMF.
Так же просто можно сохранить выделенный объект, все объекты на листе или в книге.

Диапазон — сохраняет выделенный на листе диапазон в графический файл. Имя созданного файла будет состоять из имени книги, имени листа и адреса выделенного диапазона: Книга1.xls_Лист1_G3-I8.

Объекты:

Выделенные объекты — сохраняет в отдельный графический файл каждый выделенный на листе объект(Рисунок, Автофигура, объект WordArt, Диаграмма)
Все объекты на активном листе — будут сохранены все объекты на активном листе
Все объекты на всех листах — будут сохранены все объекты на каждом листе книги.
Только картинки — из всех объектов будут сохранены только те, тип которых «Картинка» (объекты, созданные через Вставить-Картинка или Рисунок)

Имя каждого созданного файла будет состоять из имени книги, имени листа и имени объекта: «Книга1_Лист1_Rounded Rectangle 1, Книга1_Лист2_Rounded Picture 2«.

Произвольная область — при нажатии появится «затуманенный» прямоугольник:

ЗАКРЫТЬ

СОХРАНИТЬ

Папка для сохранения файлов: нажатием кнопки с тремя точками выбирается папка, в которую необходимо сохранить графические файлы. Если папка для сохранения файла не указана, то появится окно с предупреждением и предложением сохранить файл в папку с активной книгой.

Так же см.:
PrintScreen выделенного диапазона
Как сохранить картинки из листа Excel в картинки JPG
Диаграмма в графический файл

Расскажи друзьям, если статья оказалась полезной:

Видеоинструкции по использованию надстройки MulTEx

Источник

Сохранить каждую строку как отдельный файл

Автор scrackan, 02.02.2012, 23:07

« назад — далее »

Имеется экселевская таблица. Прикладываю образец (lines-file.xls).

Собственно, в файл можно не заглядывать — табличка там очень простая:
Ляляля1   Ляляля2   Ляляля3   Ляляля4
Хрюхрю5   Хрюхрю6   Хрюхрю7   Хрюхрю8
Кококо9   Кококо10   Кококо11   Кококо12

Требуется каждую строку сохранить как отдельный текстовый файл с каждой ячейкой на отдельной строке.

Т.е. конкретно в этом случае должно получиться 3 файла:

Ляляля1 Ляляля2 Ляляля3 Ляляля4

Хрюхрю5 Хрюхрю6 Хрюхрю7 Хрюхрю8

Кококо9 Кококо10 Кококо11 Кококо12

Видимо, для начала мою таблицу следует транспонировать, но как потом автоматически превратить каждый столбец в отдельный текстовый файл — я всё равно не знаю. Подскажите, пожалуйста.

Имена файлов не принципиальны, но лучше, конечно, чтобы они подчинялись какой-нибудь системе (порядковые номера, например).

Пробуйте. Транспонирование не используется. Файлы создаются в той же папке.

Цитата: exceleved от 03.02.2012, 10:28
Пробуйте. Транспонирование не используется. Файлы создаются в той же папке.

А можно ли модифицировать макрос? Чтобы текстовые файлы сохранялись не в кодировке ANSI, а в UTF-8.

Или надо прибегать к сторонней софтине, которая пакетно преобразует все файлы в другую кодировку?

exceleved, спасибо большое!

Цитата: exceleved от 03.02.2012, 12:31
Пробуйте.

Обнаружил небольшой баг. Если строка таблицы не содержит ни одного кириллического символа, соответствующий файл сохранится в ANSI. Это можно исправить? Т.е. чтобы всегда сохранялось в UTF.

Профессиональные приемы работы в Microsoft Excel
►
Обмен опытом
►
Microsoft Excel
►
Сохранить каждую строку как отдельный файл

Источник

Содержание

Как сохранить выделенный диапазон в отдельный файл?
Экспорт диапазона ячеек в файл
Как сохранить выделенные диапазоны изображениями?
Как сохранить выделенный диапазон отдельной книгой?
Как сохранить диапазон документом Word?
Как сохранить диапазон в pdf-файл
Советы чайника
Приветствие
Страницы
понедельник, 28 января 2013 г.
Сохранение рабочей области Excel
Как сохранить выделенный фрагмент в excel
Как сохранить выделенный диапазон в отдельный файл?
Экспорт диапазона ячеек в файл
Как сохранить выделенные диапазоны изображениями?
Как сохранить выделенный диапазон отдельной книгой?
Как сохранить диапазон документом Word?
Как сохранить диапазон в pdf-файл
Как сохранить выделенный фрагмент в excel
Как файл из Эксель сохранить в ПДФ: 4 основных способа
Конвертация в программе Excel

Как сохранить выделенный диапазон в отдельный файл?

Могут возникать ситуации, при которых необходимо отправить кому-либо определенную информацию, например, небольшую часть большого отчета и сделать это таким образом, чтобы не посвящать получателя в лишние детали – расчеты, итоги, показатели и так далее.

Обычно, у пользователей не возникает проблем с тем, чтобы скопировать диапазон ячеек и вставить либо в отдельную рабочую книгу при помощи специальной вставки значений, чтобы заменить формулы результатами вычислений, либо в документ приложения Word. Даже такая простая операция требует от пользователя выполнения целого ряда определенных действий: скопировать диапазон, создать новый файл в нужном формате, вставить диапазон, сохранить новый файл. Если возникает необходимость проделывать такую операцию по несколько раз в день, стоит задуматься об автоматизации этого процесса.

Экспорт диапазона ячеек в файл

При помощи надстройки для Excel можно сохранять выделенные диапазоны ячеек в отдельные файлы выбранного формата, причем делать это быстро и удобно.

Надстройка – это дополнительные функциональные возможности для приложения. Чтобы воспользоваться такими возможностями, надстройку необходимо установить. При этом, как правило, создается новая вкладка на ленте Excel и создается кнопка вызова диалогового окна.

При вызове диалогового окна все поля автоматически заполняются значениями, а пользователю оставляется возможность внести в них свои изменения, после чего запустить программу.

В поле «Выбор диапазона» автоматически подставляется адрес выделенного на листе диапазона ячеек, либо несколько адресов через знак-разделитель «;» (точка с запятой), если выделено несколько диапазонов.

В поле «Выбор папки» автоматически подставляется путь к папке, в которой находится рабочая книга с копируемым диапазоном. При помощи кнопки рядом с полем можно выбрать любую другую папку.

В поле «Выбор имени» автоматически подтягивается имя активной рабочей книги, то есть той, которая открыта в момент вызова диалогового окна. Имя также можно изменить на любое другое.

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

Как сохранить выделенные диапазоны изображениями?

Обычно, делается скриншот, то есть снимается изображение с экрана кнопкой «Print Screen» на клавиатуре, после этого изображение из буфера обмена вставляется в графический редактор и уже там вырезается нужный фрагмент изображения. При помощи надстройки всего этого можно не делать, достаточно выделить диапазон ячеек, выбрать формат «JPG» и запустить программу. Изображение выделенного диапазона будет сохранено в заданную папку с заданным именем в формате JPG.

Как сохранить выделенный диапазон отдельной книгой?

Исходный диапазон ячеек может быть определенным образом отформатирован, иметь определенные шрифты, ширины столбцов и так далее, кроме этого в ячейках диапазона могут содержаться формулы со ссылками на ячейки в других листах и других рабочих книгах. Чтобы скопировать такой диапазон в другую книгу, необходимо проделать ряд операций: скопировать диапазон, вставить диапазон, для вставки ширин столбцов вставить диапазон еще раз при помощи специальной вставки, для переноса форматов вставить диапазон еще раз при помощи специальной вставки форматов, заменить формулы значениями ячеек. При помощи надстройки все эти операции выполняются автоматически.

Как сохранить диапазон документом Word?

Выделенный диапазон можно сохранить документом Word, при этом, при копировании и вставки диапазона из Excel в Word, таблица может не поместиться на странице по ширине. В надстройке для таких случаев предусмотрено автоматическое изменение ориентации страницы с книжной на альбомную. Разворот страницы тоже не всегда может помочь, поэтому после вставки диапазона в документ Word необходимо убедиться полностью ли помещается вставленная таблица в размеры страницы.

Как сохранить диапазон в pdf-файл

При сохранении диапазонов ячеек в pdf-формат, также есть возможность изменения ориентации страницы, но все-таки после создания файла лучше убедиться, что область выделения из Excel помещается на одну страницу в горизонтальном измерении, иначе часть данных из выделенного диапазона в pdf-файле будет не видна.

Источник

Советы чайника

Простые советы, представляющие собой пошаговые инструкции по оптимизации и работе в операционных системах Win7, Vista, Win XP. Описание и работа популярных программ. Безопасность ПК. Советы не переполнены терминологией и доступны для повторения даже начинающему пользователю.

Приветствие

Страницы

понедельник, 28 января 2013 г.

Сохранение рабочей области Excel

Программа Excel входящая в состав офисного пакета Microsoft Office предназначена для работы с электронными таблицами. Программа позволяет создавать и форматировать наборы листов (книги) для анализа данных, создавать формулы для вычислений данных, сводить данные разными способами, а затем отобразить данные на диаграммах различных видов.

Зачастую необходимые для работы данные требующиеся пользователю расположены в разных таблицах и для их отображения нужно открыть поочередно несколько файлов документа Excel. Это несколько неудобно, особенно если файлы расположены в разных местах, поэтому в программе Excel 20072010 предусмотрена функция сохранения рабочей области. При использовании данной функции впоследствии все необходимые файлы Excel открываются одновременно двойным щелчком.

Для этого следует сохранить рабочую область таблиц Excel. Откройте файлы Excel предназначенные для сохранения в виде рабочей области, затем на ленте перейдите на вкладку «Вид» и щелкните по кнопке «Сохранить рабочую область».

Откроется окно сохранения, где укажите место сохранения и имя файла рабочей области. Пункт «Тип файла» оставьте без изменения. Нажмите кнопку сохранить, а затем закройте все файлы, щелкнув по очереди крестики в каждом.

В выбранном месте появится значок.

Теперь для одновременного открытия выбранных вами файлов Excel, определенных в виде рабочей области достаточно выполнить двойной щелчок по значку.

Источник

Как сохранить выделенный фрагмент в excel

Как сохранить выделенный диапазон в отдельный файл?

Экспорт диапазона ячеек в файл

Как сохранить выделенные диапазоны изображениями?

Как сохранить выделенный диапазон отдельной книгой?

Как сохранить диапазон документом Word?

Как сохранить диапазон в pdf-файл

Как сохранить выделенный фрагмент в excel

Добрый день, есть список, его сотрудники пополняют и в конце рабочего дня они выделяют все записи за день и нажимаю кнопку, запись выделенного (на нем макрос)
суть макроса копирование выделенной области на др лист (уже сделал) и копирование выделенных данных в отдельный файл и его пополнение (не сделал) и хочу еще отчищать раб область (лист куда сотрудники в течение дня вводят записи). Очень нужна ваша помощь Макросы эксель только начал изучать.

вот код макроса, копия на др лист

Сообщение Добрый день, есть список, его сотрудники пополняют и в конце рабочего дня они выделяют все записи за день и нажимаю кнопку, запись выделенного (на нем макрос)
суть макроса копирование выделенной области на др лист (уже сделал) и копирование выделенных данных в отдельный файл и его пополнение (не сделал) и хочу еще отчищать раб область (лист куда сотрудники в течение дня вводят записи). Очень нужна ваша помощь Макросы эксель только начал изучать.

вот код макроса, копия на др лист

понял вас, значит так по скрипту вашему

копирует замечательно, но копирует всю строку а не выделенную область.

хотел объединить мое копирование в лист и ваше в файл не получилось

Sub ЗаписьВОбщийЖурнал()
‘
‘ Макрос2 Макрос
‘ Макрос записан 15.10.2007 (VladimirovAV)
‘

Selection.Copy
Sheets(«База данных»).Select
Range(«A1″).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveWorkbook.Save
Sheets(«Исходные данные»).Select
Selection.ClearContents
Range(«A3″).Select

If Not TypeName(Selection) = «Range» Then Exit Sub
Dim lr&, wb As Workbook, lb As Workbook
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
Set wb = GetObject(«c:test.xls») ‘путь к файлу-накопителю
Set lb = ThisWorkbook
lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1)
wb.Close (True) ‘ закрыть с сохранением
With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
Set wb = Nothing: Set lb = Nothing

понял вас, значит так по скрипту вашему

копирует замечательно, но копирует всю строку а не выделенную область.

хотел объединить мое копирование в лист и ваше в файл не получилось

Sub ЗаписьВОбщийЖурнал()
‘
‘ Макрос2 Макрос
‘ Макрос записан 15.10.2007 (VladimirovAV)
‘

Сообщение понял вас, значит так по скрипту вашему

копирует замечательно, но копирует всю строку а не выделенную область.

хотел объединить мое копирование в лист и ваше в файл не получилось

Sub ЗаписьВОбщийЖурнал()
‘
‘ Макрос2 Макрос
‘ Макрос записан 15.10.2007 (VladimirovAV)
‘

отказывается копировать Автор — aydar
Дата добавления — 22.03.2013 в 13:43

убрал, не получилось

Сообщение убрал, не получилось

Sub ЗаписьВОбщийЖурнал()
‘
‘ Макрос2 Макрос

Selection.Copy
Sheets(«База данных»).Select
Range(«A1»).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveWorkbook.Save
Sheets(«Исходные данные»).Select
Selection.ClearContents
Range(«A3»).Select

‘это часть работает замечательно

‘ это копирования выделения в другой файл
If Not TypeName(Selection) = «Range» Then Exit Sub
Dim lr&, wb As Workbook, lb As Workbook
With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
Set wb = GetObject(«c:test.xls») ‘путь к файлу-накопителю
Set lb = ThisWorkbook
lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Selection.Copy wb.Sheets(1).Cells(lr + 1, 1)
wb.Close (True) ‘ закрыть с сохранением
With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
Set wb = Nothing: Set lb = Nothing

копирование в другой файл работает криво, копируется вся строка а не выделение,иногда не все данные копируются

Sub ЗаписьВОбщийЖурнал()
‘
‘ Макрос2 Макрос

‘это часть работает замечательно

копирование в другой файл работает криво, копируется вся строка а не выделение,иногда не все данные копируются aydar

Sub ЗаписьВОбщийЖурнал()
‘
‘ Макрос2 Макрос

‘это часть работает замечательно

копирование в другой файл работает криво, копируется вся строка а не выделение,иногда не все данные копируются Автор — aydar
Дата добавления — 26.03.2013 в 11:36

Ну вот, зарегистрировались, теперь можно и попытаться разобраться.

У меня на моих файлах работает. Но у меня макрос уже «допиленный»
Проблема может быть в структуре данных.
Например, в приведённом Вами фрагменте кода
lr = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row определяет ряд с первой пустой ячейкой В ПЕРВОМ СТОЛБЦЕ.
Поэтому если Вы копируете диапазон, где в ячейках первого столбца есть пустые, то lr определится не правильно и следующая запись наложится на предыдущую. Об этом, к стати, всё расписано в том топике, откуда Вы брали фрагмент. Вы дальше первого топика читали? Ну, например, ЭТО.

Приложите пример. Тогда кто-нибудь попробует разобраться почему у Вас не работает. (Я не смогу — на работе завал, да ещё и сисадмины закрыли скачивание файлов с макросами, собаки!)

Ну вот, зарегистрировались, теперь можно и попытаться разобраться.

Сообщение Ну вот, зарегистрировались, теперь можно и попытаться разобраться.

Как файл из Эксель сохранить в ПДФ: 4 основных способа

Способов, как сохранить Эксель в ПДФ, так много, что воспользоваться ими может и владелец компьютера с современным программным обеспечением, и пользователь старого ПК, на котором даже нет пакета MS Office.

Программа Excel предназначена для работы с электронными таблицами, с помощью которых можно проводить расчеты, создавать и редактировать графики или просто хранить информацию. Однако структура получаемых документов получается достаточно сложной, а размеры файлов — большими.

Для упрощения документооборота и ускорения их отправки по электронной почте таблицы Эксель можно сохранить в формате PDF. Полученный документ не только уменьшится в размере, но и будет одинаково отображаться в разных программах и на всех устройствах, включая телефоны.

Конвертация в программе Excel

Разработчики офисного пакета приложений MS Office постоянно добавляют в него новые функции. И в современных версиях, начиная с 2010 года, с помощью редактора Excel можно сразу переводить документы в множество различных форматов, без применения дополнительных приложений.

Источник