Необычный импорт таблицы в базу

@anton_anatskiy · Регистрация: 28.03.2014

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

Получаю по почте файл (во вложении), содержащий таблицу. В таблице в вертикально объединенных ячейках содержатся числовые данные (уникальный номер), который распространяется на две строки. При обычном экспорте в базу access с уникальным номером ассоциируется только верхняя строка, а нижняя не ассоциируется ни с чем. Как добится получения именно нижней строки средствами excel я понял и реализовал, но такой подход мне не подходит. Подскажите пожалуйста как можно имея какой либо номер из уникальных номеров в таблице обратится именно ко второй строке в таблице средствами access и VBA. Спасибо за любые подсказки. С уважением...

@Eugene-LS · 16.12.2016, 23:44

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

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

Старая как мир трабла.
Импортировать из Excel нужно через промежуточную таблицу - с проверкой данных на валидность и коррекцией.

@anton_anatskiy · 16.12.2016, 23:46 **[ТС]**

Eugene-LS, Eugene-LS, имеете ввиду, что каким то образом подставлять нижележащим строкам уникальные номера? не понимаю как в этом поможет промежуточная таблица

@Eugene-LS · 16.12.2016, 23:46

Ой! - посмотрел Табель.xlsx
Это не возможно вобще - никак.

@anton_anatskiy · 16.12.2016, 23:49 **[ТС]**

Eugene-LS, Eugene-LS, тоесть операция смещения при индексации как в случае написания формулы в самом excel средствами vba невозможна?

@Eugene-LS · 16.12.2016, 23:58

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

имеете ввиду, что каким то образом подставлять нижележащим строкам уникальные номера?

Я имею ввиду что Access не поймёт ЭТИ данные (в чистом виде)
Вы можете написать процедуру открытия и анализа и импорта данных из произвольно форматированного файла MS Excel - но это тяжкая работёнка требующая хорошего опыта с Application Automation.
Выход:
Для упрощения приводить данные в Excel к некоему удобоваримому формату.

Добавлено через 5 минут

Сообщение от Eugene-LS

но это тяжкая работёнка требующая хорошего опыта с Application Automation.

Если бы вы знали как это делается и имели опыт - этого вопроса не было бы!
Потому: Сложно всё.
Можно упростить данные в Excel, можно усложнить алгоритм приёма данных = Выбирайте!

@anton_anatskiy · 17.12.2016, 00:00 **[ТС]**

спасибо. буду работать над алгоритмом. опыт работы он на то и опыт, чтобы его получать.

@Eugene-LS · 17.12.2016, 00:09

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

опыт работы он на то и опыт, чтобы его получать.

Смело! -Задорно! = Мне нравиться.
Ух! - Пишите если что.

Добавлено через 4 минуты
Вообще: Быть программером = Наглость, особенно если изобретаешь "свои велосипеды"
Всё уже написано...
Но иногда ты вскакиваешь среди ночи - .... и понеслось....

@anton_anatskiy · 17.12.2016, 00:30 **[ТС]**

да. у меня лучшие решения в c++ & Qt пришли ко мне именно ночью. жаль предприятию, где я работаю такие программы не нужны... хлопотно согласовывать со службой информационной безопасности. если честно я больше люблю c++... но не в обиду прикладным приложениям, они меня всюду выручают

@Eugene-LS · 17.12.2016, 00:40

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

если честно я больше люблю c++

У C++ - свои задачки и решения.
У MS Access свои - сравнивать их не следует.
Невозможно сравнить : скальпель с перфоратором
И то и другое делает дырки - но разные - и по разным потребностям

mobile · 17.12.2016, 00:58

anton_anatskiy, посмотрите вариант. Предполагается, что файл табеля лежит в той же папке, что БД, файл называется Табель.xlsx, а лист SAP

@anton_anatskiy · 02.01.2017, 23:39 **[ТС]**

mobile, это именно то что нужно. дальше я при помощи dlookup() выбираю позицию следующую по индексу записи. круто

@anton_anatskiy · 26.01.2017, 18:47 **[ТС]**

mobile, еще раз прошу помощи.

пытаюсь импортировать таблицу в базу. если целевым столбцам на листе задаю формат ячеек "текстовый" всё работает без нареканий, но как только пытаюсь импортировать файл где на листе целевые столбцы отформатированны как "общий" после успешного получения первой строки на второй выпадает ошибка:

Run-time error '-2147352567 (80020009)': Невозможно записать внесенные изменения поскольку введенное значение противоречит параметрам, заданным для таблицы...

выложу файл. если возможно посмотрите в чем дело. в конце концов там судя по адресу просто две буквы "ТО"

P.S.: открывшаяся форма Form1 просит ввести номера целевых столбцов: У меня Таб№ - 4; Код графика - 39; Период действия - 5; Имя вкладки - ГРАФИК. Это я пытаюсь адаптировать приложение для работы с разными форматами оформления.

mobile · 26.01.2017, 20:24

anton_anatskiy, не помогает ни IMEX=1, ни ничто другое. Придумал только в начале процедуры открывать файл .xlsx, записывать в первую строку набор символов. Тогда идет без ошибок.

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

@anton_anatskiy · 26.01.2017, 22:08 **[ТС]**

Н-да. Наверное придется забить и грузить с текстовым форматом ячеек в целевых столбцах. Благо никто не возражает. Спасибо за помощь

@anton_anatskiy · 26.01.2017, 22:17 **[ТС]**

mobile, я этот анализатор вымучил в помощь своим коллегам по шахте. думаю никто не умрет если придется менять формат ячеек. тем более, что в папку с базой они выкладывают копию. а кому не нравится - пусть выбирают свои отклонения от стандарта ручками. это их изврат и не мне им указывать как его отследить и зафиксировать.
Во вложении полный архив со всеми файлами программулины. Я располагаю папку по адресу С:\ФАЙЛЫ ДЛЯ ВСЕХ\ и тут распаковываю архив.
Может и вам на что пригодится )))

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера 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, то после закрытия окошка. . .

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	16.12.2016, 23:46 [ТС]
	Eugene-LS, Eugene-LS, имеете ввиду, что каким то образом подставлять нижележащим строкам уникальные номера? не понимаю как в этом поможет промежуточная таблица 0

@Eugene-LS 12070 / 5851 / 1496 Регистрация: 05.10.2016 Сообщений: 16,447
	16.12.2016, 23:46
	Ой! - посмотрел Табель.xlsx Это не возможно вобще - никак. 0

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	16.12.2016, 23:49 [ТС]
	Eugene-LS, Eugene-LS, тоесть операция смещения при индексации как в случае написания формулы в самом excel средствами vba невозможна? 0

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	17.12.2016, 00:00 [ТС]
	спасибо. буду работать над алгоритмом. опыт работы он на то и опыт, чтобы его получать. 0

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	17.12.2016, 00:30 [ТС]
	да. у меня лучшие решения в c++ & Qt пришли ко мне именно ночью. жаль предприятию, где я работаю такие программы не нужны... хлопотно согласовывать со службой информационной безопасности. если честно я больше люблю c++... но не в обиду прикладным приложениям, они меня всюду выручают 0

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	02.01.2017, 23:39 [ТС]
	mobile, это именно то что нужно. дальше я при помощи dlookup() выбираю позицию следующую по индексу записи. круто 0

@anton_anatskiy 6 / 6 / 2 Регистрация: 28.03.2014 Сообщений: 74
	26.01.2017, 22:08 [ТС]
	Н-да. Наверное придется забить и грузить с текстовым форматом ячеек в целевых столбцах. Благо никто не возражает. Спасибо за помощь 0