импорт с Excel в Access / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / импорт с Excel в Access

2 сообщений из 2, страница 1 из 1

импорт с Excel в Access

#39165284

e.zelenyj

Гость

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

В таблице Access данные сохраняются накопительно (декабрь+январь+несколько дней февраля). Необходимо прописать код на загрузку данных с условием обновления всех записей за период - этот и прошлый месяц.

Дальше файл должен быть перемещен и заархивирован.

То, что есть на сейчас:

Код: vbnet

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.

Function DoImportFirstSales()

Dim strPathFile As String, strFile As String, strPath As String, sFileName As String, sNewFileName As String
 Dim strTable As String
 Dim blnHasFieldNames As Boolean

 blnHasFieldNames = True

 strPath = "\\WF-01\WorkFolders$\e.zelenyj@NSUA\Report\MyReport\Fact\First\"


 strTable = "ФактПервичка"

 strFile = Dir(strPath & "*.xlsx")
 
 Do While Len(strFile) > 0
       strPathFile = strPath & strFile
       DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
             strTable, strPathFile, blnHasFieldNames
             
    strFile = Dir()

 Loop
 
End Function

Буду очень благодарен за помощь.

P.S. Код взят с форума.

...

Рейтинг:

0 / 0

08.02.2016, 10:11

| Ответить | Цитировать | Написать

импорт с Excel в Access

#39165818

Анатолий ( Киев )

Гость

Для начала вопрос - есть ли в таблице столбец с уникальными значениями (идентификатор записи)? Если есть, и в файле строки не удаляются, то запрос на обновление и запрос на добавление новых.
Если нет, то запрос на удаление записей с начала месяца и запрос на добавление.
В любом случае, если путь к свежему файлу всегда один и тот же, то есть смысл его присоединить как таблицу и работать с ней.
e.zelenyjВ документе Excel - продажи с начала месяца по вчера .
...
Необходимо прописать код на загрузку данных с условием обновления всех записей за период - этот и прошлый месяц. Где вы возьмете данные за прошлый месяц?

...

Рейтинг:

0 / 0

08.02.2016, 18:01

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / импорт с Excel в Access

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=113&tid=1613943]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	31ms
get topic data:	11ms
get forum data:	2ms
get page messages:	60ms
get tp. blocked users:	1ms
others:	14ms

total:	154ms