Макрос: обновление одного файла данными из другого

[R Dmitry]

Можно конечно и так сделать, подожду старттопика )
вечерком набросаю.

[darthraziel]

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

Может, конечно скажу глупость,(вы уж простите я не отношусь к программистам или просто не правильно понял задание), но если нужно перенести повторяющиеся данные из одного вручную заполняемого файла в другой автоматически, то почему бы с помощью строки формул не воспользоваться обычной ссылкой, ведь порядок цифр всегда сохраняется.

Никаких ссылок не приемлится, файл-источник после занесения в основной будет удален.

R Dmitry, спасибо за респонс! Увы, не получается запустить код - выдает ошибку "Недопустимое имя 'Лист1$'". Референс на АДО подключил.

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

Я понял задачу так - нужно и обновить/заменить, и добавить новые данные по датам и столбцам.
Если даты ещё нет - то добавить, если есть - заменить то, что есть.

Да, задача именно такая.

[R Dmitry]

Ловите
ОбновлениеXLS.zip

[Hugo121]

Классно.
А почему код в source? Ведь по логике процесса его нужно в main держать?
Или код в main нельзя, т.к. этот файл обновляется?
Тогда может быть иметь третий файл-инструмент, где выбирать эти два файла (или main можно там жёстко прописать)?
И как я понял, имена столбцов нельзя сразу забить с запасом, на все?
Хотя эту строку можно и динамически собирать - после выбора файла его открыть, прочитать заголовки столбцов, закрыть. Или как?

[R Dmitry]

Привет,

А почему код в source? Ведь по логике процесса его нужно в main держать?

По логике в БД доступ должен быть закрыт .
Код все равно где держать, ADO работает нормально и с открытыми файлами.... но есть нюанс, если данные удалить ручками, последующий insert будет начинаться не с последней строки, а со следующей после удаленной.
Так же вопрос возникает с типами данных, не получиться добавить строку со значением текст если первые строки идут числа, ну и тому подобные закавыки

Тогда может быть иметь третий файл-инструмент, где выбирать эти два файла (или main можно там жёстко прописать)?

Можно и так

Хотя эту строку можно и динамически собирать - после выбора файла его открыть, прочитать заголовки столбцов, закрыть. Или как?

Да ты прав имена забить с запасом нельзя, формировать их можно динамически, можно загрузить рекордсет с одной записью

select top 1 * from tbl

и считать название полей, а можно циклом и финдом
Сначала находим нужную запись, затем
в цикле добавляем или удаляем

Do While Not rs.EOF
   Urs.AddNew
   For i = 0 To rs.Fields.Count - 1
    Urs.Fields(rs.Fields(i).Name) = rs.Fields(i).Value
    Next
   Urs.Update
   rs.MoveNext
   Loop

Ну как то так.......
_____________________
Ну и напоследок, я бы не хранил данные в excel(как в БД) используя ADO. Да и обновление поддерживает только .xls , что тоже накладывает свои ограничения.

[Hugo121]

Спасибо.
Про xls не знал, это важно.

[Казанский]

Сделал средствами Excel. Применил редко используемый параметр
.PasteSpecial xlPasteValues, SkipBlanks:=True
Если проходить по шагам, то все понятно.

[darthraziel]

Господа, всем огромное спасибо! Надеюсь, вам было не в тягость решать данную проблему

Оба макроса отлично работают, теперь буду их изучать, выбирать один и прикручивать его к актуальным файлам.

[Казанский]

А вот "ленивый" способ привести столбцы в Source в тот же порядок, что в Main - расширенный фильтр!
Фильтр требует, чтобы в фильтруемом диапазоне были все заголовки, которые есть в диапазоне выгрузки.
Поэтому надо приписать заголовки из Main к заголовкам в Source.
Когда есть повторяющиеся заголовки, фильтр использует первый из них.

Sub merge2()
Dim mainHdr As Range, srcSheet As Worksheet, iSrc

Set mainHdr = ActiveSheet.UsedRange.Rows(1)
iSrc = Application.GetOpenFilename("Excel Files(*.xls*),*.xls*", , "Выбрать файл для обновления данных")
If iSrc = False Then Exit Sub
Set srcSheet = Workbooks.Open(iSrc, ReadOnly:=True).Worksheets(1)
mainHdr.Copy Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
With Workbooks.Add(xlWBATWorksheet).Sheets(1)
    mainHdr.Copy .[A1]
    srcSheet.UsedRange.AdvancedFilter xlFilterCopy, CopyToRange:=.UsedRange
    srcSheet.Parent.Close 0
End With
End Sub

Если даты в Main и в Source всегда идут подряд, то вставить данные можно одним действием (если в Source есть более ранние данные, чем в Main, то предварительно вставить пустые строки в Main). Тогда код получится не длиннее, чем на SQL

[darthraziel]

Казанский, еще раз хочу вас поблагодарить за макрос, я решил ваш использовать, потому что он гораздо более "резиновый", на мой взгляд.
Начал прикручивать к рабочим файлам, возник один нюанс, который я после проверил в файлах-примерах: при вставке значений из Source, если какие-то значения по датам уже есть в Main, то макрос вставляет обновленные значения, не нарушая формат.
Если же дат таких в Main еще нет, то эти строки вставляются именно с тем самым форматом, который определен в Source, даже несмотря на то, что в коде вставка прописана как .PasteSpecial xlPasteValues. А это, конечно, мелочи, но как-то нехорошо.

Как этот нюанс поправить, может, я что-то упустил из виду?