Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Экспорт листа Эксель в таблицу Access
 
Всем привет.

Задачка - с помощью макроса надо экспортировать данные из эксель в уже существующую таблицу  в Access. (набор полей одинаковый).

Обновление напрямую из Access не подходит, нужно не открывая Access сделать экспорт из Эксель.
Ничего путного по темам не нашел.
 
Код
Sub DoTrans()

  Set cn = CreateObject("ADODB.Connection")
  dbPath = "C:\**s\Database1.accdb"
  dbWb = Application.ActiveWorkbook.FullName
  dbWs = Application.ActiveSheet.Name
  scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
  dsh = "[" & Application.ActiveSheet.Name & "$]"
  cn.Open scn

  ssql = "INSERT INTO table1 SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh

  cn.Execute ssql

End Sub
 
Привет, в конце кода выскакивает ошибка "RUN TIME ERROR....AUTOMATION ERROR....
Изменено: Powerline - 28 Мар 2018 17:49:08
 
Код рабочий, ищите ошибку у себя.
Страницы: 1
Читают тему (гостей: 1)