Экспорт из Access в Excel

@VinniPuh · Регистрация: 27.03.2013

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

Всем здравия во все органы.
Ранее ни когда не делал экспорт данных из Access в Excel,
все делал для печати в отчетах самого Access.
А тут понадобилось переносить данные в Excel.
Помогите люди добрые на примере.
В форме - Средства измерения
- Выбираем - Год
- Выбираем - Лабораторию
- Нажимаем кнопку - Экспорт в Excel

на основе запроса - zСредстваИзмеренияЭкспорт, отфильтрованные данные должны вставиться
в Книгу Excel - Поверка КИПиА
в лист - Например как на картинках

Название лаборатории в шапке к примеру - ЦЭРЛ
как и соответственный год

@Eugene-LS · 12.12.2025, 16:15

VinniPuh, версия на 3 листа (по перечню Лаб (от 1 to 3))
Адаптирована под MSA 2000 с поздним связыванием (как смог без виртуалки Windows XP)
DAO - по позднему связыванию ...

У кого MSA 2007+ ... можете на этот ужас даже и не смотреть ... (писалось на MSA 2024)
...
Ни логики, ни "красоты", но зато так = "как просил Пух!" - на самом деле.
Ты! = тестовая и предварительная версия (лет на 30) жертвы ЕГЭ

(шаблон и приложение ниже)
... Умываю руки! (работа стоит)

@Eugene-LS · 12.12.2025, 17:38

VinniPuh, BTW: 1490 или манюсенький бочёнок коньяку (ну литра 2-3) будет? - нет?!
...
Предпочитаю: 1490
...
Успехов!

Добавлено через 22 минуты

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

особенно по числовым константам.

К сожалению, при более надёжном (особенно в этом случае) "позднем связывании", без подключения (ну очень капризной и громоздкой) библиотеки Excel - иначе никак!
Приходится передавать "чужие" константы их числовыми значениями, ну да = муторно ... - спасают "заготовки" и доступ к Google.

Добавлено через 45 минут
VinniPuh, Во! - Так хорошо.
Дожили! ... "Лучший Ответ" вымаливать приходиться и пугать "коньяком" ...

@VinniPuh · 12.12.2025, 17:59 **[ТС]**

Сообщение от Eugene-LS

...Лучший Ответ" вымаливать приходиться...

Во первых только на форум зашел и не видел ещё примера.
Если и не сразу, то позднее за такой пример однозначно бы поставил и Лучший ответ и Спасибку.
Ты просто - Торопыга.

На сегодня всё, ухожу на работу.

Кликните здесь для просмотра всего текста

Это как в загадке:
"Не пойму кем ваш сын работает.
Вечером ножи точит, а утром деньги считает."

@Eugene-LS · 12.12.2025, 18:10

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

Вечером ножи точит, а утром деньги считает."

Не по теме:

Ночной нарезчик мяса кенгуру?

XDlf · 12.12.2025, 18:28

Сообщение от Eugene-LS

Ну почему же - функция возвращает последнее значение нумератора записей, который начинается с 1 и если он больше 1 - то прошло, и это можно легко проверить, а это лишний код проверок ... + анализ возвращаемых ошибок ... = + пара - четвёрка десятков строк ...
А Галина и так написала что код длинный ....

Если была ошибка, то FillTemplate возвращает 0, что корректно.
Для примера и вызова ошибки, строка

Visual Basic
1
objSheet.Cells(lVal, 10) = "В.В. Соколов"

была заменена на

Visual Basic
1
objSheet.Cells(lVal, -10) = "В.В. Соколов"

Предположим, что вместо -10 может быть переменная и в своей доработке кода мы допустили ошибку при присвоении ей значения.

Как результат, после запуска "Экспорт в Excel" имеем 2 сообщения:
1) ошибка в Excel (первая картинка во вложении);
2) всё ОК в Acсess, но 0 записей (вторая картинка).

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

Чтобы в этом случае не сохранялся файл в modExportToExcel.ExportToExcel предложил внести примерно такие правки:

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
25
26
'--------------------------------------------------------------------------------------------------------
' Запуск Функции из ШАБЛОНА!
     lVal = objExcelApp.Application.Run("FillTemplate", frmMain.Form, rs)
' ----------------------------------------------------------------------------------------/
    DoCmd.Hourglass False 'Вернуть нормальный курсор
    ' Проверка заполнения шаблона
    If lVal = 0 Then
        ' Ошибка
        MsgBox "Что-то пошло не так." & vbCrLf & "Ошибка при заполнении шаблона =(" & vbCrLf & "Проверяйте!", vbCritical
    Else
        ' Успех. Доклад (сильно опционально):
        MsgBox "Готово!" & vbCrLf & "Успешно экспортировано: " & lVal & " записей." & vbCrLf & _
            "Файл: " & sVal, vbInformation, "Экспорт в шаблон Excel"
        objExcelApp.WindowState = -4137    ' -4137 = xlMaximized (во весь экран)
        
        ' Сохранение файла на диске.
         sVal = CurrentProject.Path & "\Export_" & Format(Now, "yyyy-mm-dd hh-nn-ss")
         objExcelApp.DisplayAlerts = False               ' Отмена сообщений совместимости и прочего
         objWBook.SaveAs sVal, 56                     ' 56 = xlExcel8 = Книга Excel 97–2003
         objExcelApp.DisplayAlerts = True                ' вкл. сообщений совместимости и прочего
        
         AppActivate objExcelApp.Caption    ' Делает активным окно приложения
    End If
  
MakeReport_Bye:
...

Тогда файл с пустым шаблоном не будет создаваться и в Access будет просто ошибка (~~третья~~ четвертая картинка).

Всё это написал, чтобы было правильно понято моё первое сообщение.
Как уже говорил, это мелочи. И даже вкусовщина.
Ничего страшного не будет, если во время отладки будут создаваться файлы с "пустым шаблоном".
Единственное, если это уйдёт пользователям. И ошибка не будет проявляться при первом же запуске. То некоторым из них явная надпись об ошибке может быть более понятна. В сообщении также можно будет указать к кому обращаться в этом случае.

Если эту тему с юзабилити для пользователей развивать дальше, то да, мы приходим к "пробрасыванию" ошибки из Excel в Access.
И раз Application.Run возвращает Variant, то проблем с этим не вижу (но допускаю что они есть) (~~последняя~~ третья картинка).
Объём кода практически не меняется:

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
25
26
27
28
29
30
31
Dim vFRes As Variant ' Имя сильно сокращено. Лучше так не делать
...
'--------------------------------------------------------------------------------------------------------
' Запуск Функции из ШАБЛОНА!
     vFRes = objExcelApp.Application.Run("FillTemplate", frmMain.Form, rs)
' ----------------------------------------------------------------------------------------/
    DoCmd.Hourglass False 'Вернуть нормальный курсор
    ' Проверка заполнения шаблона
    If IsNumeric(vFRes) = True Then
        ' Успех. Доклад (сильно опционально):
        lVal = CLng(vFRes)
        MsgBox "Готово!" & vbCrLf & "Успешно экспортировано: " & lVal & " записей." & vbCrLf & _
            "Файл: " & sVal, vbInformation, "Экспорт в шаблон Excel"
        objExcelApp.WindowState = -4137    ' -4137 = xlMaximized (во весь экран)
        
        ' Сохранение файла на диске.
         sVal = CurrentProject.Path & "\Export_" & Format(Now, "yyyy-mm-dd hh-nn-ss")
         objExcelApp.DisplayAlerts = False               ' Отмена сообщений совместимости и прочего
         objWBook.SaveAs sVal, 56                     ' 56 = xlExcel8 = Книга Excel 97–2003
         objExcelApp.DisplayAlerts = True                ' вкл. сообщений совместимости и прочего
        
         AppActivate objExcelApp.Caption    ' Делает активным окно приложения
    
    Else
        ' Ошибка
        MsgBox "Что-то пошло не так." & vbCrLf & "Ошибка при заполнении шаблона =(" & vbCrLf & vbCrLf & _
            "Сообщите это по секрету разработчику (!только тихо!):" & vbCrLf & vFRes, vbCritical
    End If
  
MakeReport_Bye:
...

Также в FillTemplate будут минимальные правки:
- "Function FillTemplate ... As Variant";
- в FillTemplate_Err вместо MsgBox будет "FillTemplate = "Error " & ..."

Не по теме:

По плюсикам чрезмерный буст! Это законно вообще? :D
Но спасибо

@Eugene-LS · 12.12.2025, 20:09

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

Единственное, если это уйдёт пользователям

Вот и ответ!
Каким пользователям?

Пуху? - который .Requery не знает куда девать ... и использует текстовые значеня поиска при наилчии возможности цифровых?
...

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

По плюсикам чрезмерный буст!

Законно.

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

Также в FillTemplate будут минимальные правки:
- "Function FillTemplate ... As Variant";
- в FillTemplate_Err вместо MsgBox будет "FillTemplate = "Error " & ..."

А это вы уже "загнули", нет не так!
Повторяю:
"Вылизывание" кода и обработка всех вариаций поведения пользователя и значений - это многие часы работы.
...
Но!
Пух посмотрел v09 - и сказал что "Так и хотел!"

Предотвращение ошибок и поддержание стабильности это = комплексное решение!
... А вы посмотрите на таблицу "МесяцыГода" или "Главная" = "Каменный век!"

- по применению ...
НО!
ЕГО ЭТО устраивает!
А если усложнять - он вообще не поймёт.
Тут нужен баланс между сложностью и минимаистью.

Полностью с вами согласен!
Я чайник, и написал "по чайникофски" - даже ни одного модуля класса не применил, а суб классинг = это наше ФСЁ!

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

мы приходим к "пробрасыванию" ошибки из Excel в Access.

Довольно легко решается перехватом и генерированием если нужно - но опять ... = длинный Select Case ...

Добавлено через 5 минут
XDlf, давайте договоримся так:
Если у Пуха будут траблы с приложением - он меня наберёт (по Max) - и мы с ним всё порешаем.
А если я буду занят - отправлю его к вам , как эксперту по ошибкам.
Пойдёт?!

Предупреждаю: Пух старый, не очень смазливый (но красивее меня), и главное: ЖЕНАТЫЙ!
Так что ... увы ..

Добавлено через 10 минут

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

Всё это написал, чтобы было правильно понято моё первое сообщение.
Как уже говорил, это мелочи. И даже вкусовщина.

Короче:
Вам нечего делать - и вы решили высказаться ...

Предложите свой вариант решения (лучше) - и я буду первым кто вставит вам в карму плюсиков.
А пока - рассуждения ...
"А что будет если во время Update при использовании DAO - по кабелю проскочит искра?"
Хм ... - Ничего хорошего ...

Добавлено через 4 минуты
VinniPuh, ты чего сотворил!
Ну казалось бы - Экспорт в ексель - чё мы тут не видели ... тыщу лет экспортируем - никто не жаловался ...
А тут "на тебе!" - копья сломаны ... кровища рекой ...

@VinniPuh · 13.12.2025, 11:41 **[ТС]**

Сообщение от Eugene-LS

...VinniPuh, ты чего сотворил!...

Чтоб не скучно было.
Помнится не менее чем по 1000 сообщений в сутки было (и это только по делу), не то что сейчас 2-3 (максимум десяток).

shanemac51 · 13.12.2025, 14:06

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

не то что сейчас 2-3 (максимум десяток).

увы, это так - даже почитать нечего

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

@VinniPuh · 13.12.2025, 15:00 **[ТС]**

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

...причин конечно несколько...
- ИИ

...
Слышал, что даже те, кто программирует на С++, создают программки за еду.
ИИ всё под себя подгрёб.

shanemac51 · 13.12.2025, 15:19

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

ИИ всё под себя подгрёб.

естественно, ведь 90+ % вопросов на форуме - студенческие, а значит стандартные, многократно повторяющиеся

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

сейчас же они получают только упреки
- не соблюдение новичками многостраничных правил
- явное или неявное требование СПАСИБОК, хотя новички даже не в состоянии их дать
- прямое обвинение в некомпетентности и лени
- .....

ответы в лучшем случае они получают через 2-3 дня, чистый студент за это время найдет другой источник решения и больше на форум не придет

@Eugene-LS · 14.12.2025, 01:16

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

была заменена на ...

Visual Basic
1
objSheet.Cells(lVal, -10) = "В.В. Соколов"

С какого перепугу оно там заменится?
Эдак вы просто можете, ради развлечения, поставить в коде Err.Raise ... (... = код ошибки который нужен) - и ошибка возникнет!
Не понимаю я вас ...

XDlf · 15.12.2025, 11:55

Сообщение от Eugene-LS

Эдак вы просто можете, ради развлечения, поставить в коде Err.Raise ...(... = код ошибки который нужен) - и ошибка возникнет!
Не понимаю я вас ...

Можно и Err.Raise, не суть. Сделал как мне было удобнее и быстрее.
Вы дали решение, поправили ошибки, всё работает, ОК.

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

2) Когда с БД будет работать не только её разработчик, но и другие пользователи. При этом код после доработки (для этого или нового шаблона) будет содержать ошибку, которая не возникает при первом же экспорте. Тогда при возникновении ошибки пользователь будет скорее озадачен, если ранее с таким не сталкивался. Т.к. первичная информация об ошибке появится не в Access, из которого был запущен экспорт, а в другом окне (Excel). А после этого ещё и успешно создаётся файл шаблона без данных.

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

Если ТС это сейчас не нужно, то хорошо. Но он будет знать о наличии такой возможности. И про это будут проинформированы все новички в разработке, кто в дальнейшем набредёт на эту тему.

Блоки доработанного кода приводил (возврат текста ошибка через результат функции с типом Variant). Если это решение не тянет на "нормальное", то ничего поделать с этим не могу. Понятно, что оно "костыльное", но конкретно в этом случае оно работает.

Надеюсь, всё таки смог прояснить свою позицию

Не по теме:

За минус спасибо.
Так лучше.
А то много было :D

@Eugene-LS · 16.12.2025, 01:23

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

Я же рассматривал дальнейшее возможное развитие жизненного цикла этого решения

Это уже не ко мне, это в "эксплуатационный отдел" , т.е. к ув. VinniPuh.

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

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

Правильный у вас взгляд.

@VinniPuh · 17.12.2025, 12:22 **[ТС]**

Eugene-LS, Приветствую тебя великий Архимагистр програмирования Access!!!

Тут у меня скоропостижно вскочил, этот как его, а вспомнил вопрос, точнее просьба.
Пример на экспорт сразу 3-х отчетов в - Excel содержит процедурки в шаблоне Excel, а
начальник в отличии от меня боится снижать уровень безопасности в - Excel.
Соответственно - можно ли сделать, что бы в шаблоне не было ни каких процедур, а только в модуле - Access.
Сам попытался, но ни чего не получилось, только запутался.
Если не сложно, то как будет свободное время, исправь как надо на этом примере.
Заранее благодарен, твой поклонник и почитатель - Пух.

@Eugene-LS · 17.12.2025, 13:40

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

Архимагистр програмирования Access!!!

А где "великий и всемогущий" ??? - я ведь и обидеться могу ...

что бы в шаблоне не было ни каких процедур, а только в модуле - Access

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

@VinniPuh · 17.12.2025, 13:59 **[ТС]**

Сообщение от Eugene-LS

...может на конкурс красоты кода и не потянет, но работает....

Тостер - Пух протестировал.
Если по мне, то ВСЁ просто замечательно, как я возжелал и возжаждал.

Ты просто скромный и прибедняешься.
Миллиард тебе плюсиков к карме - добрый человек.

@Eugene-LS · 17.12.2025, 14:39

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

ВСЁ просто замечательно

Не совсем.
Заметил: Номера записей больше 99 - не влезают в отведённое им пространство шаблона.

И... Зачем в шаблоне (нужные для центровки) колонки "A" и "K" - если мы и так всю ширь страницы выжимаем?
Причем столбец "А" практически уже не виден, а "K" вылетает за область печати ...

@VinniPuh · 17.12.2025, 17:23 **[ТС]**

Сообщение от Eugene-LS

...Причем столбец "А" практически уже не виден, а "K" вылетает за область печати ...

Это не моя прихоть, так повелели.
Всё влезает, как раз по колонкам, как дома, так и на работе. Нумерация тоже, а больше 999, там точно ни когда не будет.
Видимо это зависит от принтера.
Ещё раз огромное спасибо, всё в лучшем виде, именно как нужно.

@Eugene-LS · 17.12.2025, 17:35

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

Видимо это зависит от принтера.

Очень даже может быть.

@alvk · 23.12.2025, 08:25

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

чистый студент за это время найдет другой источник решения

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

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр 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) активировать флаг. . .

Экспорт из Access в Excel

Решение

Решение