Перенос данных из Excel с использованием диалога выбора файла

@Braser · Регистрация: 16.03.2013

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

Всем здравствуйте!
Подскажите пожалуйста по коду следующее.
Есть таблица Access "Заявки", данные в которую подгружаются через шаблонный файл Excel используя связанные источники данных, при этом приходится вставлять данные из исходного файла екселя в шаблонный файл екселя, связанный с БД и затем только уже переносить в Access, решил немного модернизировать это действо, убрать это "лишнее" звено, тем более что структура файлов екселя - шаблона и источника абсолютно одинаковая. Данный существующий вариант переноса применяется потому, что каждый день плановый -диспетчерский отдел скидывает заявки в производство в виде графика производства (он же файл источник) наименованный в виде сегодняшней даты, например "6112017" и такая дребедень каждый день.
В связи с чем возникла мысль, реализовать это дело через прямой переброс данных из новой таблицы екселя в ацесс методом выбора нужного файла и загрузки его содержимого в ацесс минуя шаблон.
Диалог открытия файла на кнопку навесил,

Visual Basic

Dim nFile DAO.Recordset
        With Application.FileDialog(3) 'msoFileDialogFilePicker
            .Title = "Выбрать график производства 1С для загрузки в работу "
            .InitialFileName = CurrentProject.Path
            .Filters.Add "Excel files", "*.xls*", 1
            .InitialFileName = "L:\Цех\Заявки ПДО"
            .AllowMultiSelect = False
            If .Show And .SelectedItems.Count > 0 Then
         Else
                MsgBox "Файл не выбран"
                Exit Sub
            End If
        End With

далее нужно реализовать загрузку данных из этого графика в таблицу.Как в моем случае лучше и проще это сделать?

Файл источник екселя имеет столбцы: [ДатаЗаявки][Изделие][Деталь][Количество][ДатаГотовности]
Табица access имеет точно такие же наименования столбцов.
Подскажите пожалуйста как описать далее в коде процедуру перемещения данных из екселя в ацесс, чтобы вновь переносимые данные добавлялись к уже имеющимся в таблице.
Спасибо.

@Kkarn · 07.11.2017, 11:43

)) Хорошо, что хорошо кончается.
А если серьезно, то выходит, что мы остановились на варианте импорта ДИАПАЗОНА ячеек. Как-то мне это не очень нравится... Конечно, если диапазоны будут оставаться строго фиксированными, и, например, данные не превысят 300 строк, то все по идее будет правильно работать... Но все равно какой-то у меня "осадок остался")).
Почему-то кажется более логически правильным все-таки вариант, когда из экселевского файла мы вытягиваем ВСЕ данные, которые есть на листе (а для этого таки придется удалять временную таблицу, каждый раз создавая ее заново), затем запросами "отфильтровываем" только нужные данные и уже именно их вбрасываем в итоговую таблицу. И в принципе, для этого даже не понадобятся еще какие-то промежуточные таблицы, если правильно построить запрос на добавление...
Ну да ладно, раз работает и устраивает именно так, как работает - значит так тому и быть). А идеалы оставим для учебников.

@Kkarn 902 / 292 / 50 Регистрация: 02.12.2014 Сообщений: 1,229
	07.11.2017, 11:43	21
	)) Хорошо, что хорошо кончается. А если серьезно, то выходит, что мы остановились на варианте импорта ДИАПАЗОНА ячеек. Как-то мне это не очень нравится... Конечно, если диапазоны будут оставаться строго фиксированными, и, например, данные не превысят 300 строк, то все по идее будет правильно работать... Но все равно какой-то у меня "осадок остался")). Почему-то кажется более логически правильным все-таки вариант, когда из экселевского файла мы вытягиваем ВСЕ данные, которые есть на листе (а для этого таки придется удалять временную таблицу, каждый раз создавая ее заново), затем запросами "отфильтровываем" только нужные данные и уже именно их вбрасываем в итоговую таблицу. И в принципе, для этого даже не понадобятся еще какие-то промежуточные таблицы, если правильно построить запрос на добавление... Ну да ладно, раз работает и устраивает именно так, как работает - значит так тому и быть). А идеалы оставим для учебников. 1