Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / импорт с Excel в Access / 2 сообщений из 2, страница 1 из 1
08.02.2016, 10:11
    #39165284
e.zelenyj
e.zelenyj
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт с Excel в Access
Доброго времени суток!
Прошу помочь с макросом. Задача следующая.
Необходимо загружать данные с 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, 18:01
    #39165818
Анатолий ( Киев )
Анатолий ( Киев )
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
импорт с Excel в Access
Для начала вопрос - есть ли в таблице столбец с уникальными значениями (идентификатор записи)? Если есть, и в файле строки не удаляются, то запрос на обновление и запрос на добавление новых.
Если нет, то запрос на удаление записей с начала месяца и запрос на добавление.
В любом случае, если путь к свежему файлу всегда один и тот же, то есть смысл его присоединить как таблицу и работать с ней.
e.zelenyjВ документе Excel - продажи с начала месяца по вчера .
...
Необходимо прописать код на загрузку данных с условием обновления всех записей за период - этот и прошлый месяц. Где вы возьмете данные за прошлый месяц?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / импорт с Excel в Access / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 237ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1613943]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 147ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 15ms
total:  237ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]