Код VBA для экспорта данных Access в Excel

Код VBA для экспорта данных Access в Excel
Оглавление

Экспорт данных Access в Excel с помощью VBA (с изображениями и кодом)

Что это такое?

Этот код VBA поможет вам экспортировать данные в Доступ Таблица в Excel в один клик.

Почему?

Вы можете загрузить или экспортировать данные Access в Excel, даже не открывая книгу Excel.

Как экспортировать данные Access в Excel

Шаг 1: Откройте базу данных Access, перейдите к построителю кода VBA (Alt + F11) и откройте новый модуль.


Экспорт данных доступа в ExcelPin

Шаг 2: Скопируйте и вставьте в него приведенный ниже код.

				
					Sub ExportToXl() При ошибке GoTo ErrorHandler Dim dbTable As String Dim xlWorksheetPath As String xlWorksheetPath = "C:" 'Укажите путь к xlWorkbook xlWorksheetPath = xlWorksheetPath & "xlWorkbookName.xlsx" 'Замените 'xlWorkbookName.xlsx' на имя вашей книги dbTable = "tblMaster" 'Замените 'tblMaster' таблицей в базе данных Access, из которой вы хотите экспортировать данные. DoCmd.TransferSpreadsheet Transfertype:=acExport, SpreadsheetType:=acSpreadsheetTypeExcel12, tablename:=dbTable, FileName:=xlWorksheetPath, hasfieldnames:= True ErrorHandlerExit: Exit Sub ErrorHandler: MsgBox "Номер ошибки: " & Err.Number & ";Description: " & Err.Description Resume ErrorHandlerExit End Sub
				
			

Шаг 3: нажмите кнопку «Выполнить», F5 или кнопку «Команда», с которой вы связали этот код!

Если вы назначаете код командной кнопке, убедитесь, что код находится внутри Private/Public Sub_Event(); Что-то вроде ниже

Частный субэкспортToXl_Click()

Экспорт данных доступа в Excel

Записи базы данных Access были успешно загружены в Excel. Откройте книгу Excel и проверьте данные.

Примечание: Убедитесь, что 'Microsoft ActiveX Data Objects Library' включена в меню Инструменты – Ссылки (используйте последнюю версию [6.1 на момент публикации]).

Экспорт данных доступа в Excel_AdodbPin

Я уверен, что вы работаете с большим количеством данных Excel, MS Access и VBA, поэтому я Сильно Рекомендуем вам присоединиться к нижеприведенному Ultimate Excel VBA Userform с базой данных Access! Это достойная инвестиция в себя! СДЕЛАЙТЕ ЭТО ПРЯМО СЕЙЧАС!

Создайте свою собственную программу в реальном мире, изучите настоящий Excel VBA(макросы), превзойдите границы Excel с помощью полного проекта

Энсон Энтони
Энсон Энтони
Энсон — соавтор и основатель компании www.askeygeek.com. Изучение чего-то нового всегда было его страстью, а ASKEYGEEK.com — результат его страсти к технологиям и бизнесу. Он имеет десятилетний разносторонний опыт в области аутсорсинга бизнес-процессов, финансов и бухгалтерского учета, информационных технологий, операционного совершенствования и бизнес-аналитики. За время своего пребывания в должности он работал в таких организациях, как Genpact, Hewlett Packard, M*Modal и Capgemini, занимая различные должности и обязанности. Помимо бизнеса и технологий, он любитель кино, который часами вместе смотрит и изучает кино, а также кинорежиссер!

3 ответа

  1. Спасибо за код VBA. Но на один раз это сработало. Я получаю следующую ошибку: «Ошибка №. 3027. Невозможно обновить. База данных или объект доступны только для чтения.

  2. Я хочу добавлять данные в таблицу ежемесячно. Данные должны иметь определенный формат. Я думал, что есть команда с аргументами строки/столбца. Однажды использовал рабочую область для перебора записей, пошагового адреса ячейки. мне снилось? Спасибо

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Поздравляем!
Ты сделал это,
Не закрывайтесь!
Введите свой шанс на победу 100 000 кредитов персонажей UberTTS
Спасибо Вам за Ваш визит!

Это всплывающее окно не покажет вам решать снова!!!

Пасхальное яйцо UberTTS 100K
Share to...