Выгрузка всех данных строки таблицы Access в файл Excel

@farmat · Регистрация: 03.10.2014

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

Приветствую!
Подскажите пожалуйста как сделать:
Есть форма для заведения информации.
Нужна кнопка, нажав которую все данные строки таблицы соответствующие текущему ключевому полю экспортировались в файл Excell с пути сохранения и именем файла = "поле1+поле2", н-р "Фамилия Имя".
Спасибо!!!

mobile · 03.09.2016, 12:44

Не все ясно в ТЗ. Например какой источник формы - таблица, сохраненный запрос? Или что-то иное? Форма простая, ленточная? Есть ли подформа? Неизвестна версия екселя.
Но предположим форма ленточная или простая, источник таблица или сохраненный запрос. Без подформы с данными. И ексель 12 (*.xlsx). Попробуйте функцию

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'В Excel вывести текущую запись из активной формы
Sub ToExcelActiveRecord(nameKeyField, nameTable, path, ParamArray fld())
'nameKeyField - имя ключевого поля
'nameTable - имя таблицы/запроса источника формы
'path - путь сохранения файла
'в массиве fld() имена полей служащих названием выходного файла
    Dim nf, keyValue, s, f, i
    nf = Screen.ActiveForm.Name   'Имя активной формы
    keyValue = Forms(nf).Controls(nameKeyField) 'значение ключевого поля
    s = "select * from [" & nameTable & "] " _
    & " where [" & nameKeyField & "]='" & keyValue & "'"
    CurrentDb.QueryDefs("Temp").SQL = s 'формирование запроса Temp для вывода
    
    For i = 0 To UBound(fld)  'цикл генерации имени файла
        f = f & Forms(nf).Controls(fld(i))
    Next
    
    'Вывод в Excel
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Temp", _
    path & Chr(92) & f & ".xlsx", True
End Sub

Пример обращения

Visual Basic
1
ToExcelActiveRecord "ИмяКлючевогоПоля", "ИмяТаблицыЗапросаИсточника", "c:\МояПапка", "ПолеФамилии", "ПолеИмени"

@farmat · 03.09.2016, 19:17 **[ТС]**

СПАСИБО!
В вс попробую.
Вы правы: источник данных - таблица, форма простая, подформы нет. Excell 2010.
По вашему способу должно все работать ) отпишусь.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@farmat 0 / 0 / 0 Регистрация: 03.10.2014 Сообщений: 191

	Выгрузка всех данных строки таблицы Access в файл Excel 03.09.2016, 10:49. Показов 2003. Ответов 2 Метки нет (Все метки) Приветствую! Подскажите пожалуйста как сделать: Есть форма для заведения информации. Нужна кнопка, нажав которую все данные строки таблицы соответствующие текущему ключевому полю экспортировались в файл Excell с пути сохранения и именем файла = "поле1+поле2", н-р "Фамилия Имя". Спасибо!!! 0

@farmat 0 / 0 / 0 Регистрация: 03.10.2014 Сообщений: 191
	03.09.2016, 19:17 [ТС]
	СПАСИБО! В вс попробую. Вы правы: источник данных - таблица, форма простая, подформы нет. Excell 2010. По вашему способу должно все работать ) отпишусь. 0

Выгрузка всех данных строки таблицы Access в файл Excel

Решение