Доброго времени суток!
Прошу помочь с макросом. Задача следующая.
Необходимо загружать данные с Excel в Access с помощью VBA.
В документе Excel - продажи с начала месяца по вчера. Каждый день файл с данными обновляется, но изменения могут быть не только в том, что добавились продажи по следующему дню. Возможен вариант изменения даты или кол-ва продажи за предыдущий день.
В таблице Access данные сохраняются накопительно (декабрь+январь+несколько дней февраля). Необходимо прописать код на загрузку данных с условием обновления всех записей за период - этот и прошлый месяц.
Дальше файл должен быть перемещен и заархивирован.
То, что есть на сейчас:
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. Код взят с форума.