Vba экспорт из excel в access: Перемещение данных из Excel в Access

Резюме Программист VBA, MS Access, базы данных MS SQL Server, Москва, по договоренности

Резюме № 6221091

Обновлено 3 июня

Программист VBA, MS Access, базы данных MS SQL ServerБыл в этом месяце

По договорённости

48 лет (родился 31 декабря 1974), не состоит в браке, детей нет

Москва, удаленная работа, не готов к командировкам

Занятость

не указано

Гражданство

Россия

Добавить в избранное

Поделиться

Фото, имя и контакты доступны только авторизованным пользователям

Образование

    • Высшее образование
    • Дневная/Очная
    • 1998

    Московский государственный университет леса

    Факультет: МХТД

    Специальность: «Химико-механическая технология древесины и древесных материалов» Диплом:»Компьютерное прогнозировние прочностных свойств бумаги»

Обо мне

Профессиональные навыки:

Компьютерные навыки:
SQL server — администрирование, Написание прикладных программ (MS Access, VBA)
Работа с поисковыми системами, Word, Excel, опыт работы с системами управления сайтами (CMS).

Дополнительные сведения:

Без вредных привычек.

Иностранные языки

  • Английский язык — базовый

Добавить в избранное

Поделиться

Фото, имя и контакты доступны только авторизованным пользователям

Похожие резюмеВсе 17 похожих резюме

Обновлено 23 июня

Программист C#, MS SQL, MS Foxproз/п не указана

Последнее место

работы

(

6 лет и 5 мес.

)Программист C#, руководитель группы по разработке ПОИюнь 2014 – ноябрь 2020

Показать контакты

Добавить в избранное

Обновлено 23 мая

Программист VB, VBAз/п не указана

Последнее место

работы

(

11 мес.

)Специалист Отдела технической поддержки и внедренияИюнь 2022 – май 2023

Показать контакты

Добавить в избранное

Обновлено 23 мая

VBA, VB developerз/п не указана

Последнее место

работы

(

11 мес.

)Specialist of the Technical Support and Implementation DepartmentИюнь 2022 – май 2023

Показать контакты

Добавить в избранное

Обновлено 27 октября 2022

VBA-разработчик30 000 ₽

Последнее место

работы

(

2 мес.

)Специалист по ПД ИТРИюнь 2020 – август 2020

Показать контакты

Добавить в избранное

Обновлено 7 марта 2021

Аналитик, программист VBA, PL/SQL98 000 ₽

Последнее место

работы

(

12 лет и 11 мес.

)Ведущий программистАвгуст 2010 – работает сейчас

Показать контакты

Добавить в избранное

Обновлено 16 ноября 2020

Программист VBA60 000 ₽

Последнее место

работы

(

2 года и 10 мес.

)Главный разработчик баз данныхАпрель 2013 – февраль 2016

Показать контакты

Добавить в избранное

Обновлено 7 марта 2020

Программист vba (макросы Excel, Word)40 000 ₽

Последнее место

работы

(

4 года и 10 мес.

)Специалист-программистАпрель 2015 – февраль 2020

Показать контакты

Добавить в избранное

Обновлено 27 июня 2018

Программист VBA / Excel100 000 ₽

Последнее место

работы

(

5 лет и 6 мес.

)Бизнес-аналитикДекабрь 2017 – работает сейчас

Показать контакты

Добавить в избранное

Обновлено 8 мая 2018

Программист MS Access15 000 ₽

Последнее место

работы

(

13 лет и 11 мес.

)ИнженерАвгуст 2009 – работает сейчас

Показать контакты

Добавить в избранное

Обновлено 26 сентября 2017

Инженер-программист АСУТП, MS Access80 000 ₽

Последнее место

работы

(

8 лет и 10 мес.

)ИнженерСентябрь 2014 – работает сейчас

Показать контакты

Добавить в избранное

Работа в Москве / Резюме / IT, Интернет, связь, телеком / Администрирование баз данных / Программист баз данных

Смотрите также резюме

  • Администрирование баз данных

  • Разработка, программирование

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

Как экспортировать результаты запроса в несколько файлов с помощью Access VBA

Экспортировать информацию из Microsoft Access невероятно просто — при условии, что вы хотите создать только один экспортный файл. Но что делать, если нужно разделить запрос (или таблицу) на несколько файлов экспорта? Например, если вам нужно экспортировать список транзакций клиентов каждый месяц — у каждого клиента есть свой файл экспорта? Вот где эта статья может помочь вам. Создать экспорт из 2, 10 или сотни различных экспортов будет так же просто, как запустить небольшой фрагмент кода VBA, и работа будет завершена за считанные секунды, а не часы ручного вырезания/вставки. Итак, начнем…

Подход

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

Во-первых, давайте наметим, чего мы хотим достичь:

Учитывая запрос, выводить новый файл каждый раз, когда значение в указанном поле изменяется.

Задача

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

Для чего это НЕ подходит

Как я уже упоминал, существует множество причин, по которым вы хотели бы экспортировать части своей базы данных, но использование ее в качестве формы резервного копирования/архивирования не является одной из них — уж точно не с тем подходом, к которому я отношусь. использовать здесь — последнее, что вы хотите сделать, если вы столкнулись с восстановлением после поврежденная база данных mdb работает над тем, как сшить множество экспортов вместе!

Решение?

Всегда есть много способов содрать шкуру с кошки, этот способ всего один, но, я думаю, он работает довольно хорошо. Сначала мы прочитаем запрос в массив, чтобы упростить перемещение. Далее мы пройдемся по этому массиву, проверяя, нашли ли мы новое значение в соответствующем поле или нет. Если это не новое значение, мы выводим всю запись в текущий файл, который мы записываем, если это новое значение, мы закрываем этот файл и starта новый.

И код…

Sub DoExport (fieldName As String, queryName As String, filePath As String, дополнительный разделитель As Variant = vbTab) Dim db As Database Dim objRecordset As ADODB.Recordset Dim qdf As QueryDef Dim fldcounter, colno, numcols As Integer Dim numrows, loopcount As Long Dim data, fs, fwriter As Variant Dim fldnames(), headerString As String 'получить детали запроса, который мы будем экспортировать Set objRecordset = New ADODB. Recordset Set db = CurrentDb Set qdf = db.QueryDefs(queryName) 'загрузить сделать запрос в набор записей, чтобы мы могли с ним работать objRecordset.Open qdf.SQL, CurrentProject.Connection, adOpenDynamic, adLockReadOnly 'загрузить набор записей в массив data = objRecordset.GetRows 'закрыть набор записей, когда мы с ним закончили objRecordset. Close 'получить сведения о размере массива и позиции поля, которое мы проверяем в этом массиве colno = qdf.Fields(fieldName).OrdinalPosition numrows = UBound(data, 2) numcols = UBound(data, 1) ' так как нам нужно будет написать заголовок для каждого файла — получить имена полей для этого заголовка и создать строку заголовка .Fields(fldcounter).Name Next headerString = Join(fldnames, delim) 'подготовить интерфейс файлового сценария, чтобы мы могли создавать и записывать в наш файл(ы) Set fs = CreateObject("Scripting.FileSystemObject") 'перебирать наш массив и вывод в файл For loopcount = 0 To numrows Если loopcount > 1 Then If data(colno, loopcount) <> data(colno, loopcount - 0) Then If Not IsEmpty(fwriter) Then fwriter. Close Установить fwriter = fs.createTextfile (filePath & data(colno, loopcount) & ".txt", True) fwriter.writeline headerString writetoFile data, queryName, fwriter, loopcount, numcols Else writetoFile data, delim, fwriter, loopcount, numcols End If Else Установить fwriter = fs. createTextfile(filePath & data(colno, loopcount) & ".txt", True) fwriter.writeline headerString writetoFile data, delim, fwriter, loopcount, numcols End If Next 'убрать за собой fwriter.Close Set fwriter = Nothing Set objRecordset = Nothing Set db = Nothing Set qdf = Nothing End Подпараметры передаются «по ссылке», чтобы предотвратить перемещение потенциально больших объектов в памяти Sub writetoFile(ByRef data As Variant, ByVal delim As Variant, ByRef fwriter As Variant, ByVal counter As Long , ByVal numcols As Integer) Dim loopcount As Integer Dim outstr As String For loopcount = 0 To numcols outstr = outstr & data(loopcount, counter) Если loopcount < numcols Then outstr = outstr & delim Next fwriter. writeline outstr End Sub

Что делает код — ключевые моменты

Я добавил комментарии к коду в most ключевые места, но есть еще пара вещей, на которые стоит обратить внимание.

Во-первых, мы разделили код на две подпрограммы. Первый проверяет, должна ли текущая запись быть записана в тот же файл, над которым мы сейчас работаем, или она должна быть записана в новый файл. Вторая подпрограмма выводит сведения обо всей записи в файл. Это было сделано таким образом, чтобы сократить дублирование в коде, иначе вы бы увидели одно и то же зацикливание во многих местах.

Во-вторых, я использую «Определение запроса», чтобы получить подробную информацию о запросе, над которым мы работаем. Определение таблицы».

С учетом сказанного, я вполне уверен, что это фрагмент кода, на который вы будете ссылаться и использовать много раз!

Об авторе:

Митчелл Понд — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт SQL Server дата и программные продукты для восстановления Excel. Для получения дополнительной информации посетите www.datanumen.com

sql — Использование Excel VBA для экспорта данных в таблицу доступа MS

В настоящее время я использую следующий код для экспорта данных из рабочего листа в базу данных MS Access, код проходит через каждую строку и вставляет данные в таблицу доступа MS.

 Общедоступная подсистема TransData()
Application.ScreenUpdating = Ложь
Приложение.EnableAnimations = Ложь
Приложение.EnableEvents = Ложь
Application.DisplayAlerts = Ложь
ActiveWorkbook.Worksheets("Folio_Data_original").Активировать
Вызов MakeConnection("fdMasterTemp")
Для i = 1 Для rcount - 1
    rs.AddNew
    rs.Fields("fdName") = Cells(i + 1, 1).Value
    rs.Fields("fdDate") = Cells(i + 1, 2).Value
    rs.Обновление
Далее я
Вызов CloseConnection
Application.ScreenUpdating = Истина
Приложение.EnableAnimations = Истина
Приложение.EnableEvents = Истина
Application.DisplayAlerts = Истина
Конец сабвуфера
 
 Публичная функция MakeConnection(TableName As String) As Boolean
'*********Подпрограмма для установления соединения с базой данных
   Dim DBFullName как строка
   Dim cs как строка
   DBFullName = Application. ActiveWorkbook.Path & "\FDData.mdb"
   cs = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DBFullName & ";"
   Установите cn = CreateObject("ADODB.Connection")
   Если Нет (cn.State = adStateOpen), то
      сп.Open cs
   Конец, если
   Установить rs = CreateObject("ADODB.Recordset")
   Если Нет (rs.State = adStateOpen), то
       rs.Open TableName, cn, adOpenKeyset, adLockOptimistic
   Конец, если
Конечная функция
 
 Открытая функция CloseConnection() как логическое значение
'*********Подпрограмма для закрытия соединения с базой данных
При ошибке Возобновить Далее
   Если не rs - это ничто, то
       rs.Закрыть
   Конец, если
   Если не cn ничто, то
       сн.Закрыть
   Конец, если
   Близкое соединение = Истина
   Выход из функции
Конечная функция

Приведенный выше код отлично работает для нескольких сотен строк записей, но, по-видимому, будет больше данных для экспорта. Например, 25000 записей, возможно ли экспортировать без циклического просмотра всех записей и всего одной инструкции SQL INSERT для массовой вставки всех данных в Ms . Доступ к таблице за один раз?

Будем признательны за любую помощь.

РЕДАКТИРОВАТЬ: ПРОБЛЕМА РЕШЕНА

Просто для информации, если кто-то ищет это, я провел много поисков и обнаружил, что следующий код отлично работает для меня, и это очень быстро благодаря SQL INSERT, ( 27648 записей всего за 3 секунды!!!!):

 Public Sub DoTrans()
  Установите cn = CreateObject("ADODB.Connection")
  dbPath = Application.ActiveWorkbook.Path & "\FDData.mdb"
  dbWb = Application.ActiveWorkbook.FullName
  dbWs = Application.ActiveSheet.Name
  scn = "Provider=Microsoft.Jet.OLEDB.4.0;Источник данных=" & dbPath
  dsh = "[" & Application.ActiveSheet.Name & "$]"
  сп.открыть сбн
  ssql = "ВСТАВИТЬ В fdFolio ([fdName], [fdOne], [fdTwo]) "
  ssql = ssql & "SELECT * FROM [Excel 8.0; HDR=YES;DATABASE=" & dbWb & "]." & дш
  cn.Выполнить ssql
Конец сабвуфера

Все еще работаю над добавлением определенных имен полей вместо использования «Выбрать *», пробовал разные способы добавления имен полей, но пока не могу заставить это работать.

vba — Экспорт таблиц в электронную таблицу Excel в том же каталоге

спросил

Изменено
2 года, 11 месяцев назад

Просмотрено
175 тысяч раз

У меня есть две таблицы в базе данных доступа, которые я хочу экспортировать в Excel .

Я могу сделать это, открыв таблицу и выполнив Файл->Экспорт… а затем выбрав формат и введя имя файла.

Тем не менее, таким образом, пользователь фактически должен ввести имя, чтобы было место для неправильного названия файла или для его сохранения в неправильном формате или в неправильном месте. Кроме того, две таблицы необходимо экспортировать в две отдельные книги.

Что я хочу сделать, так это сделать кнопку в форме, которая автоматически экспортирует одну таблицу на один рабочий лист, а другую — на другой рабочий лист , оба в одной и той же книге Excel .

Если поместить их в одну книгу невозможно, ничего страшного. Я просто хочу, чтобы они автоматически экспортировались в тот же каталог, в котором хранится моя база данных доступа.

Если вы знаете, как это сделать, дополнительным преимуществом может быть настройка имени с включением даты. Таким образом, каталог также будет иметь исторический экспорт. Любой совет?

  • excel
  • vba
  • ms-access
  • export-to-excel

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

Чтобы получить путь к базе данных Access, используйте свойство CurrentProject.Path .

Чтобы присвоить имени файлу книги Excel текущую дату, используйте метод Format(Date, «yyyyMMdd») .

Наконец, чтобы экспортировать таблицу в виде рабочего листа, используйте кнопку Метод DoCmd.TransferSpreadsheet .

Пример:

 Dim outputFileName As String
outputFileName = CurrentProject. Path & "\Export_" & Format(Date, "yyyyMMdd") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table1", outputFileName , True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table2", outputFileName , True

Это приведет к выводу таблиц Table1 и Table2 в одну и ту же рабочую книгу.

ХТХ

4

Лоуренс дал вам хороший ответ. Но если вам нужен больший контроль над тем, что экспортируется в какое место в Excel, см. Модули: пример автоматизации Excel — ячейка за ячейкой, которая медленная, и Модули: перенос записей в Excel с помощью автоматизации. Вы можете делать такие вещи, как экспортировать набор записей, начиная со строки 2 и вставьте пользовательский текст в строку 1. А также любое необходимое пользовательское форматирование.

Для людей, которые находят это через поисковые системы, вам не нужен VBA. Вы можете просто:

 1.) выбрать запрос или таблицу с помощью мыши
2.) нажмите экспортировать данные с ленты
3. ) нажмите excel из подгруппы экспорта
4.) следуйте инструкциям мастера, чтобы выбрать выходной файл и местоположение.

1

Зарегистрируйтесь или войдите в систему

Зарегистрируйтесь с помощью Google

Зарегистрироваться через Facebook

Зарегистрируйтесь, используя адрес электронной почты и пароль

Опубликовать как гость

Электронная почта

Требуется, но никогда не отображается

Опубликовать как гость

Электронная почта

Требуется, но не отображается

Нажимая «Опубликовать свой ответ», вы соглашаетесь с нашими условиями обслуживания и подтверждаете, что прочитали и поняли нашу политику конфиденциальности и кодекс поведения.