Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/34: Рейтинг темы: голосов - 34, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 26.06.2018
Сообщений: 11
1

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

25.10.2018, 09:31. Показов 6258. Ответов 3

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

Сейчас у меня есть такая операция, только в базе access, а надо сделать то же самое, только через excel.
Пробовала код из access прогнать в excel, но не получается.
Помогите, пожалуйста, все файлы прикладываю
Вложения
Тип файла: zip импорт.zip (1.41 Мб, 43 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2018, 09:31
Ответы с готовыми решениями:

Импорт данных из Excel в Access через кнопку?
Всем привет! Задача такая: Есть таблица в Excel с тремя полями П1,П2,П3. Есть три кнопки: запись,...

Импорт текстовых файлов в таблицы Access через VBA
При создании базы данных столкнулся с проблемой... С импортом текстовых файлов в таблицы Access....

Импорт данных из Excel в Access через Delphi7
Есть такой вопрос как осуществить загрузку в таблицу БД Access из Excel через Delphi7? Короче есть...

Импорт Excel в базу Access через интерфейс HTA
Ребята доброго времени суток. Кто подскажет? А то ума не хватает немного ) Набросал скриптик и...

3
Эксперт MS Access
6794 / 4383 / 282
Регистрация: 12.08.2011
Сообщений: 12,966
26.10.2018, 02:11 2
Запускать запрос в Акцесс через макрос экселя?
это запуск:
Изменить размер поля таблицы присоединенной БД
это запрос, один из многих
Перенос данных из Excel с использованием диалога выбора файла
0
449 / 237 / 14
Регистрация: 29.10.2014
Сообщений: 954
28.10.2018, 00:56 3
Лучший ответ Сообщение было отмечено vikun как решение

Решение

Цитата Сообщение от 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
1
0 / 0 / 0
Регистрация: 26.06.2018
Сообщений: 11
31.10.2018, 16:08  [ТС] 4
Спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.10.2018, 16:08

Импорт данных в access 2007 из Excel через макрос
Доброе утро. нужно сделать импорт данных из Excel в access. сделал вот это: Dim FName As String...

Импорт данных с таблицы Paradox в Excel через ODBC
Какие классы используються в C++ Builder для роботы с ODBC, и как можна организовать передачу...

Работа с БД Access через VBA Excel
Добрый день! Суть проекта: необходим макрос в Excel, который бы добавлял/изменял строки в...

Подключение к БД access через VBA excel
Private Sub CommandButton1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru