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

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

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

mobile · 03.09.2016, 12:44

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

Visual Basic

'В 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.
По вашему способу должно все работать ) отпишусь.

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

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

Опции темы

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

Решение