Функция создать файл excel

Как создать файл Excel с помощью VBA

Что делает макрос: Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу.

Код макроса

Как работает этот код

1. Копируем данные из ячеек B4:С15. Обратите внимание, что мы указываем полный адрес с именем листа и диапазона. Это позволит не допустить ошибки, если у Вас открыто несколько файлов Excel одновременно.
2. Используем метод Add объекта Workbook, чтобы создать новую рабочую книгу. Это тоже самое, если бы мы вручную нажали Файл➜Создать➜Новый документ
3. На этом этапе используется метод Paste, чтобы отправить данные, которые вы скопировали в ячейку А1 новой книги. Обратите внимание на то, что код ссылается на объект ActiveSheet. При создании новой книги она тут же становится активной. Если быть точнее, то становится активный лист в новой (только что созданной) книге.
4. Далее используем метод DisplayAlerts. Используя свойство False — отключаем системные предупреждения Excel. Можно этого не делать, но мы можем запустить этот макрос несколько раз, и в этом случае Excel будет пытаться сохранить один и тот же файл несколько раз. Что происходит, когда вы пытаетесь сохранить книгу несколько раз? Правильно — Excel предупреждает, что в папке уже есть файл с таким же именем и спрашивает: «Хотите ли вы переписать ранее существующий файл?». Если мы не хотим, чтобы Excel при каждом сохранении спрашивал нас — подавляем это предупреждение.
5. Сохраняем файл с помощью метода SaveAs. Обратите внимание, что мы пишем полный адрес, включая имя файла с расширением (при сохранении на рабочий стол
   ActiveWorkbook.SaveAs CreateObject(«WScript.Shell»). SpecialFolders(«Desktop») & «Отчет на 2016.xlsx»).
6. Поскольку мы запретили показывать системные сообщения в пункте 4, мы должны включить их обратно. Если этого не сделать Excel будет подавлять все предупреждения, что не
   допустимо.

Как использовать

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11.
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта.
3. Выберите Insert➜Module.
4. Введите или вставьте код во вновь созданном модуле.
5. Измените имя листа, диапазон ячеек, и место сохранения файла.

Источник

Метод CreateTextFile

Создает указанное имя файла и возвращает объект TextStream , который можно использовать для чтения или записи в файл.

Синтаксис

object. CreateTextFile (имя файла, [ перезапись, [ юникод ]])

Синтаксис метода CreateTextFile состоит из следующих частей:

Part	Описание
object	Обязательно. Всегда имя объекта FileSystemObject или Folder .
Имени файла	Обязательно. Строковое выражение, определяющее файл, который требуется создать.
Перезаписать	Необязательный параметр. Значение Boolean, указывающее, требуется ли перезаписывать существующий файл. Имеет значение True, если файл можно перезаписать, и False в противном случае. Если этот параметр опущен, существующие файлы могут быть перезаписаны.
Юникода	Необязательный параметр. Значение Boolean, указывающее, будет ли файл создан в формате Юникод или ASCII. Значение True, если файл будет создан в формате Юникод, значение False, если требуется создать ASCII-файл. Если этот элемент опущен, создается ASCII-файл.

Замечания

В следующем коде показано, как использовать метод CreateTextFile для создания и открытия текстового файла. Если аргумент overwrite имеет значение False или не задан, то значение атрибута filename, указывающее на существующий файл, приведет к возникновению ошибки.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Vba access создать файл excel

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Answered by:

Question

I want to create an Excelfile with Colume names and three named sheets. Is it possible?

The file should be created in a certain folder:
Like:

Dim filefolder as String
filefolder = [Forms]![Alla Val]![EgenPathAnnat]

All cells but Antal and Leverensdag as text

Antal as Integer
Leveransdag as date.

The look of the new file as below

Best // Peter Forss Stockholm GMT +1.00

Answers

This should be what you’re after.

The above is general code, but I wasn’t sure if the Excel should remain open and display the file or close down. But this definitely should get you going in the right direction. You can also use .NumberFormat to format the ranges as you need (Text, Numbers, Date/Time, . ).

Daniel Pineault, 2010-2017 Microsoft MVP
Professional Support: http://www.cardaconsultants.com
MS Access Tips and Code Samples: http://www.devhut.net

• Edited by Daniel Pineault (MVP) MVP Monday, October 2, 2017 7:46 PM
• Marked as answer by ForssPeterNova Tuesday, October 3, 2017 1:31 PM

You can use Excel Automation to create the Workbook and save it to a file. Below is a link to an example:

Once the Workbook has been created you can use the SaveAs method of the Workbook object to save it to a file.

Microsoft MVP (Visual Basic)

Just a thought (I can’t test the idea right now). You can also try creating three empty queries named as the tabs in the spreadsheet and then use the TransferSpreadsheet method for each query to save the empty data into the same file name.

A couple of weeks ago, I spent quite some time trying to make a highly customized excel file for my database with similar idea to what you’re doing. I needed separate tabs and specific formatting. In my case, I needed a different tab per field in a query/table. I think if you create a Table just called tblExcelTabs and you can have a field called «TabNAMES» then type out a record per tab you want. for example «Tab 1», «Tab 2», and «Tab 3.» Then you can do a button to create your Excel like. not tested, but it’s a snippet of the code I’m using air typed with what you need (I think).

EDIT: Fixed a couple of typos and tested this, it works! Just modify it to add your file path and save it instead of just opening. Also format to your preference as described in your post. You can even color code it and set the lengths of each column.

This should be what you’re after.

The above is general code, but I wasn’t sure if the Excel should remain open and display the file or close down. But this definitely should get you going in the right direction. You can also use .NumberFormat to format the ranges as you need (Text, Numbers, Date/Time, . ).

Источник

Выгрузка данных из Access в шаблон Word и Excel

Всем привет, сегодня мы поговорим о том, как можно выгрузить данные из Access в такие приложения как Word и Excel. Но не о стандартном способе, который есть в Access (связь с Office), а о способе, который позволяет выгружать данные в заданный шаблон как в Word, так и в Excel.

Другими словами, это нужно тогда, когда создать отчет в Access по шаблону, который уже существует, например, в Word, невозможно или слишком трудоемко. Как Вы знаете, отчет в Access может выводиться просто коряво или, самый распространенный вариант, это когда много текста, который в отчете Access не так хорошо форматируется как в Word, а данных не так много, но отчет необходимо автоматизировать, например это какие-то договора, заявления и так далее.

Использование слияния из самого Word-а не очень удобно, поэтому сегодня я расскажу, как можно заполнять такие шаблоны напрямую из Access, путем нажатия на одну кнопку.

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

Экспорт данных из Access в шаблон Word

Вся разработка делится на две части, это:

• Настройка шаблона Word;
• Настройка выгрузки данных в шаблон.

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

Примечание! Я использую Microsoft Word 2003.

Открываем шаблон Word, для начала добавим необходимую панель инструментов, для этого нажимаем «Вид -> Панель инструментов» и ставим галочку «Формы». Теперь у Вас отобразилась панель инструментом «Формы». Все, что осталось сделать — это вставить в местах, в которых необходимо выводить данные, элементы «Текстовое поле», которые доступны на только что добавленной панели инструментов.

После добавления поля, у Вас появится серая область, которая свидетельствует о том, что поле добавлено. Теперь необходимо задать имя этого поля, для того чтобы потом из access вставлять в него значения (стандартное названия не очень удобное). Для этого щелкните правой кнопкой мыши по полю и нажмите «Свойства». В поле закладка напишите желаемое имя этого поля, я в примере назвал его MyTestPole.

Создайте столько полей, сколько Вам нужно.

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

Переходим к более интересной задачи, это к реализации самой выгрузки из Access в этот шаблон на VBA.

Примечание! Я использую Access в связке с MS SQL 2008, поэтому и данные буду брать от туда.

Код VBA для выгрузки данных в шаблон Word

Допустим, у Вас есть форма, сделайте на ней кнопку (я назвал ее testbutton) и в событие нажатие кнопки вставьте следующий код VBA:

Код прокомментирован, поэтому сложностей возникнуть не должно. Здесь весь смысл сводится к созданию объекта word.document и word.application. А после мы уже работаем с нашими объектами, т.е. заполняем их.

Экспорт данных из Access в шаблон Excel

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

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

Код VBA для выгрузки данных в шаблон Excel

Сначала добавьте кнопку на форму (я ее назвал testexcel) и вставьте следующий код в событие «Нажатие кнопки».

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

Источник

Как создать файл Excel с помощью VBA

01 Что делает макрос

Следующий макрос копирует диапазон ячеек из активного листа и вставляет данные в новую книгу.

1. Sub SozdatFajl()
2. ‘Шаг 1 — копируем данные с листа
3. Sheets( «Продажи» ).Range( «B4:C15» ).Copy
4. ‘Шаг 2 — создаем новую книгу
5. Workbooks.Add
6. ‘Шаг 3 — вставляем данные
7. ActiveSheet.Paste Destination:=Range( «A1» )
8. ‘Шаг 4 — отключаем системные сообщения
9. Application.DisplayAlerts = False
10. ‘Шаг 5 — сохраняем по нужному адресу
11. ActiveWorkbook.SaveAs _ Filename:= «C:ОтчетыПродажиМесяц.xlsx»
12. ‘Шаг 6 — включаем системные сообщения
13. Application.DisplayAlerts = True
14. End Sub

03 Как работает макрос

1. Копируем данные из ячеек B4:С15. Обратите внимание, что мы указываем полный адрес с именем листа и диапазона. Это позволит не допустить ошибки, если у Вас открыто несколько файлов Excel одновременно.

2. Используем метод Add объекта Workbook, чтобы создать новую рабочую книгу. Это тоже самое, если бы мы вручную нажали Файл➜Создать➜Новый документ

3. На этом этапе используется метод Paste, чтобы отправить данные, которые вы скопировали в ячейку А1 новой книги. Обратите внимание на то, что код ссылается на объект ActiveSheet. При создании новой книги она тут же становится активной. Если быть точнее, то становится активный лист в новой (только что созданной) книге.

4. Далее используем метод DisplayAlerts. Используя свойство False — отключаем системные предупреждения Excel. Можно этого не делать, но мы можем запустить этот макрос несколько раз, и в этом случае Excel будет пытаться сохранить один и тот же файл несколько раз. Что происходит, когда вы пытаетесь сохранить книгу несколько раз? Правильно — Excel предупреждает, что в папке уже есть файл с таким же именем и спрашивает: «Хотите ли вы переписать ранее существующий файл?». Если мы не хотим, чтобы Excel при каждом сохранении спрашивал нас — подавляем это предупреждение.

5. Сохраняем файл с помощью метода SaveAs. Обратите внимание, что мы пишем полный адрес, включая имя файла с расширением (при сохранении на рабочий стол ActiveWorkbook.SaveAs CreateObject(«WScript.Shell»). SpecialFolders(«Desktop») & «Отчет на 2016.xlsx»).

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

Источник