Импорт данных в Excel из Access

@2887448 · Регистрация: 24.10.2015

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

Суть вопроса в том что есть клиент базы (база данных разделена) и иксель файл который используется в работе. Необходимо обеспечить подключение файла иксель к базе, при условии что оба файла находятся в той же папке.
Это необходимо сделать т.к. абсолютная ссылка подключения не работает у разных пользователей, логины не совпадают.

Макрос частично работает но вызывает ошибку. для ее решения мне нужен совет.

Вот маркос:

Visual Basic
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Макрос1()
'
' Макрос1 Макрос
'
 
'
    a = ThisWorkbook.Path
    'объявил переменную а как текущий путь к папке
    B = a + "\Database1.accdb"
    ' объявил переменную В как путь к файлу базы
    Sheets("Лист2").Select
    Cells.Select
    Selection.Clear
    'очищаю страницу от содержимого
    Range("A1").Select
    'в поле дата сурс назначаю переменную как источник данных
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin; Data Source=B; M" _
        , _
        "ode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB: Registry Path="""";Jet OLEDB: Database Password=" _
        , _
        """"";Jet OLEDB:Engine Type=6;Jet OLEDB: Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB: Global Bulk Transacti" _
        , _
        "ons=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB: Encrypt Database=False;Jet OLEDB: Don't" _
        , _
        " Copy Locale on Compact=False;Jet OLEDB: Compact Without Replica Repair=False;Jet OLEDB: SFP=False;Jet OLEDB: Support Complex Data=" _
        , _
        "False;Jet OLEDB: Bypass UserInfo Validation=False;Jet OLEDB: Limited DB Caching=False;Jet OLEDB: Bypass ChoiceField Validation=Fals" _
        , "e"), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("Таблица1")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "C:\Users\Arthur Hovhannisyan\Documents\Database1.accdb"
        .ListObject.DisplayName = "Таблица_Database1.accdb3"
        .Refresh BackgroundQuery:=False
    End With
    ActiveWorkbook.Save
End Sub

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

mobile · 23.01.2016, 18:48

Значение переменной B с именем файла надо вынести из строки подключения

Visual Basic
1
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin; Data Source=" & B & ";M" _

Добавлено через 2 минуты
Но вообще говоря, вопрос не по аксу. Спрашивать надо бы в разделе Excel или VBA. Обращаетесь ведь из екселя к Access, а не наоборот.

@2887448 · 23.01.2016, 19:00 **[ТС]**

Все работает, отлично! Спасибо большое за помощь.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@2887448 2 / 2 / 0 Регистрация: 24.10.2015 Сообщений: 7
	23.01.2016, 19:00 [ТС]
	Все работает, отлично! Спасибо большое за помощь. 1

Импорт данных в Excel из Access

Решение