Экспорт записей из таблиц access в excel и наоборот

@katrina-n · Регистрация: 29.11.2009

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

Здравствуйте, уважаемые участники!
Стоит такая задача:
Необходимо экспортировать записи из таблиц Access в Excel, а затем из Excel в экранную форму Access.
Подскажите, пожалуйста, как это возможно реализовать?

@Сергей1980 · 10.03.2011, 18:35

Вам как, макросом или VBA?

@katrina-n · 10.03.2011, 19:06 **[ТС]**

Нужно VBA

@Сергей1980 · 10.03.2011, 19:26

Ну в общем так....:
Чистоганом в VBA:

Visual Basic

Sub exportirovanie()
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim exl1 As Excel.Application
Dim sSQL As String
 
Set db = DBEngine.Workspaces(0).Databases(0)
 
sSQL = " SELECT * FROM имя_вашей_таблицы "
 
Set rs = db.OpenRecordset(sSQL, DB_OPEN_DYNASET)
 
Set exl1 = New Excel.Application
 
exl1.Workbooks.Add
 
Set the_range = exl1.Worksheets("Лист1").Range("A1")
 
the_range.CopyFromRecordset rs
 
exl1.Application.Visible = True
 
End Sub

А если не хотите мучиццо, то как вариант можно взять макрос распотрошенный в VBA

Visual Basic

1	docmd.outputTo итд итп......

Одной строчкой можно все забабахать во втором случае, но это все равно макрос, хоть и в VBA коде.

Выбирайте..

@katrina-n · 10.03.2011, 20:12 **[ТС]**

Спасибо!

можно уточнение: данный код только экспорт из Access производит?

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

Сообщение от Сергей1980

docmd.outputTo * итд итп......

можно поподробней?

@Сергей1980 · 11.03.2011, 08:59

Второй вариант производит вывод нужных вам объектов в нужных для вас форматах, ворд, эксель, хтмл, тхт, рng. Вывод осуществляется на экран, печать, в папку нужную - в зависимости от свойств, которые вы назначите данному макросу в VBA. Docmd.outputTo очень универсальный макрос.

@Сергей1980 · 11.03.2011, 10:45

Вот конкретно такой вариант:

Visual Basic

1	DoCmd.OutputTo acOutputTable, "Таблица1", acFormatXLS, "C:\documents\xxxx.xls", 1

Выводит в экселе и сохраняет файл по указанному пути C:\documents\xxxx.xls

Приложил небольшой образец, там показал как это работает

@katrina-n 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 19
		1
	Экспорт записей из таблиц access в excel и наоборот 10.03.2011, 18:24. Показов 4246. Ответов 6 Метки нет (Все метки) Здравствуйте, уважаемые участники! Стоит такая задача: Необходимо экспортировать записи из таблиц Access в Excel, а затем из Excel в экранную форму Access. Подскажите, пожалуйста, как это возможно реализовать? 0

@Сергей1980 545 / 375 / 16 Регистрация: 17.12.2009 Сообщений: 986
	10.03.2011, 18:35	2
	Вам как, макросом или VBA? 0

@katrina-n 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 19
	10.03.2011, 19:06 [ТС]	3
	Нужно VBA 0

@katrina-n 0 / 0 / 0 Регистрация: 29.11.2009 Сообщений: 19
	10.03.2011, 20:12 [ТС]	5
	Спасибо! можно уточнение: данный код только экспорт из Access производит? Добавлено через 21 минуту Сообщение от Сергей1980 docmd.outputTo * итд итп...... можно поподробней? 0

@Сергей1980 545 / 375 / 16 Регистрация: 17.12.2009 Сообщений: 986
	11.03.2011, 08:59	6
	Второй вариант производит вывод нужных вам объектов в нужных для вас форматах, ворд, эксель, хтмл, тхт, рng. Вывод осуществляется на экран, печать, в папку нужную - в зависимости от свойств, которые вы назначите данному макросу в VBA. Docmd.outputTo очень универсальный макрос. 0

	11.03.2011, 10:45