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

[darthraziel]

Ясно, спасибо большое за ответы, буду тогда копать в эту сторону. Хотя все-таки хотелось бы сделать это в экселе 8)

Пока вопрос остается открытым, так что, если кто-то будет смотреть этот топик, не стесняйтесь предлагать

[Hugo121]

Так я ведь не говорил, что это нельзя сделать в Экселе.
Вернее я не говорил, что нужно уйти из Экселя.
Вернее я вообще на эту тему не говорил
Я сказал, что нужно использовать SQL - 'это вполне можно сделать в макросе прямо на месте в Экселе.
Правда вот как через SQL обновить таблицу Экселя - я не знаю. Возможно, придётся перезаписать все данные таблицы из запроса, не знаю...

Я думаю, нужно разобраться с имхо лучшим вариантом - на SQL.
Ну а если специалисты скажут, что нельзя, или плохо - тогда уже другие варианты можно рассматривать.

[darthraziel]

Как-то это не весело через sql делать. Update, насколько я понял, обновляет значения, а добавляет их Insert, но, так или иначе, нужно указывать весь набор столбцов, которые нужно обновить, вручную, а это совсем не вариант. Если я, конечно, понял правильно принцип работы этих команд.


А что если в макросе попробовать сначала в Source расставить столбцы аналогично порядку в Main, т.е. чтобы столбец под нужным кодом находился в точно той же самой колонке, что и в основной книге, а после этого перенести весь блок данных с нужной даты (или с первой даты в Source) в соответствующее место в Main? Насколько это упростит задачу для vba? (Не то, чтобы я знал, как это технически осуществить , но у меня уже есть готовый инструмент по определению номера столбца в Main по коду из названий столбцов).

[drimdonetsk]

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

[Hugo121]

Если столбцы переставить аналогично, то для VBA всё равно, а программисту будет полегче
Но для SQL важно название столбцов, а оно у Вас всюду одинаковое.
Так что думаю с SQL сделать просто. Только вот спецы молчат что-то...
Может быть Вам стОит в ветке Access или SQL вопрос задать? Хоть просто ссылку на эту тему - пусть посмотрят... выскажут мнение...

[R Dmitry]

Sub Add_Value_Close_file()
Dim Fl$, strSqlADD$
Fl = Application.GetOpenFilename("XLS Files(*.xls*),*.xls*", , "Выбрать  файл XLS", "Выбрать")
Dim cn As ADODB.Connection
Dim sCon As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set Urs = New ADODB.Recordset
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
& ";Extended Properties=""Excel 8.0;HDR=Yes"";"
cn.Open sCon

If Not cn.State = 1 Then Exit Sub
sSql = " SELECT Sourse.дата, Sourse.JKL, Sourse.SDF, Sourse.GHJ, Sourse.HJK" _
& " FROM [Лист1$] as Sourse LEFT JOIN `" & Fl & "`.[Лист1$] as main ON Sourse.дата = main.дата" _
& " WHERE main.дата Is Null"

 rs.Open sSql, cn, adOpenKeyset, adLockPessimistic
 Urs.CursorType = 3
 Urs.LockType = 3
   Urs.Open "Select * from `" & Fl & "`.[Лист1$]", cn
   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
  
 Urs.Close: rs.Close:cn.Close
Set cn = Nothing: Set rs = Nothing: Set Urs = Nothing
End Sub

ссылка на ADO должна быть подключена
файл main в формате xls

[R Dmitry]

Лучше так
ссылка на ADO должна быть подключена
файл main в формате xls

Sub Add_Value_Close_file()
Dim Fl$, sSql$
Fl = Application.GetOpenFilename("XLS Files(*.xls*),*.xls*", , "Выбрать  файл XLS", "Выбрать")
Dim cn As ADODB.Connection
Dim sCon As String
Set cn = New ADODB.Connection
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
& ";Extended Properties=""Excel 8.0;HDR=Yes"";"
cn.Open sCon
If Not cn.State = 1 Then Exit Sub
sSql = "INSERT INTO `" & Fl & "`.[Лист1$]( дата, JKL, SDF, GHJ, HJK ) SELECT Sourse.дата, Sourse.JKL, Sourse.SDF, Sourse.GHJ, Sourse.HJK" _
& " FROM [Лист1$] as Sourse LEFT JOIN `" & Fl & "`.[Лист1$] as main ON Sourse.дата = main.дата" _
& " WHERE main.дата Is Null"
cn.Execute sSql
cn.Close
Set cn = Nothing
End Sub

[Hugo121]

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

[R Dmitry]

Игорь привет, я сделал добавление новых данных. Если даты нет в mail, а она есть в sourse, тогда данные добавляются. путь указываем к файлу main.
_______
Возможно я не до конца понял задачу ???
=====================
Да еще, я бы не использовал xls в качестве бд, лучше бы хранил данные в access, тогда все будет значительно надежнее и стабильнее

[Hugo121]

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