Импорт таблицы Excel в БД Access через VBA через кнопку в Excel

@vikun · Регистрация: 26.06.2018

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

Форумчане, помогите, пожалуйста с кодом макроса в excel.
Задача состоит в следующем:в файле обработчик через кнопку импортировать данные с листа excel в базу данных access. При чем должен импортироваться файл, путь которого указывается в файле "обработчик".

Сейчас у меня есть такая операция, только в базе access, а надо сделать то же самое, только через excel.
Пробовала код из access прогнать в excel, но не получается.
Помогите, пожалуйста, все файлы прикладываю

@alvk · 26.10.2018, 02:11

Запускать запрос в Акцесс через макрос экселя?
это запуск:
Изменить размер поля таблицы присоединенной БД
это запрос, один из многих
Перенос данных из Excel с использованием диалога выбора файла

@commun · 28.10.2018, 00:56

Сообщение от vikun

импортировать данные с листа excel в базу данных access

Файл делайте сами, предлаг импорт табл

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Dim appAccess As Object
Sub Кнопка2_Щелчок()
On Error GoTo Err_Кнопка2
Dim strDB As String
Dim strExc As String
Const SamplesDB = "e:\Картинки\"
Const SamplesExc = "e:\"
    ' Initialize string to database path.
    strDB = SamplesDB & "График.accdb"
    strExc = SamplesExc & "Ошибка.xlsm" 'текущий файл
    Set appAccess = Nothing
    ' Create new instance of Microsoft Access.
    Set appAccess = CreateObject("Access.Application")
    With appAccess
    ' Open database in Microsoft Access window.
    .OpenCurrentDatabase strDB
Err_contin:
    .DoCmd.RunSQL ("Delete * FROM Table1")
    .DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Table1", strExc, True, "Table1"
    .DoCmd.Quit acSave
    End With
    Set appAccess = Nothing
    
Exit_Кнопка2:
    Exit Sub
Err_Кнопка2:
    If Err.Number = 7867 Then 'уже имеется открытая база данных
        GoTo Err_contin
    Else
        MsgBox (Err.Number & " " & Err.Description)
        GoTo Exit_Кнопка2
    End If
End Sub

@vikun · 31.10.2018, 16:08 **[ТС]**

Спасибо большое!

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	26.10.2018, 02:11
	Запускать запрос в Акцесс через макрос экселя? это запуск: Изменить размер поля таблицы присоединенной БД это запрос, один из многих Перенос данных из Excel с использованием диалога выбора файла 0

@vikun 0 / 0 / 0 Регистрация: 26.06.2018 Сообщений: 11
	31.10.2018, 16:08 [ТС]
	Спасибо большое! 0

Импорт таблицы Excel в БД Access через VBA через кнопку в Excel

Решение