[Iska]

artemu88, я посмотрел на Ваш код, но так и не понял, что Вы хотите получить в целом. Если код в:

сравнил 2 листа в экселе при помощи модуля - все получилось »

был аналогичен — то Вы явно делаете что-то не то, поскольку Вы создаёте соединение, которое потом никак не используется в принципе, а дальше Вы начинаете работать с рабочими книгами и рабочими листами посредством Automation напрямую через Excel.Application. Понимаете?

Если выбросить всё относящееся к OLE DB, то для работы посредством Automation напрямую через Excel.Application должно быть примерно так:

Код:

…
' Если в проекте задана ссылка на библиотеку типов Microsoft Excel,
            
            

                
Скрытый текст
                
                

                    
                
                
            
                               
            
' используем раннее связывание:
Dim objExcel As New Excel.Application
' Минус такого подхода — мы привязаны к конкретной версии библиотеки (читай — Microsoft Office).

' Если в проекте не задана ссылка на библиотеку типов Microsoft Excel,
' используем позднее связывание:
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
…
' В Text1.Text и Text2.Text должны быть полные пути к Рабочим книгам
Set WB_Input = objExcel.Workbooks.Open(Text1.Text)
Set WB_Output = objExcel.Workbooks.Open(Text2.Text)
' По-хорошему, перед их открытием ещё надо бы проверить, что файл Рабочей книги, указанный в Text1.Text, существует, и что он, как минимум, имеет расширение .xls/.xlsx.
…

[artemu88]

СПАСИБО ОГРОМНОЕ!!!!!!!
Все работает, теперь вопрос, как эти изменения сохранить. SaveAs не работает, можно ли как-то сохранить изменения во второй книге?

[Iska]

artemu88, а в каком месте Вы добавляли .SaveAs? Что значит «не работает» — как это выглядит? Почему не просто .Save?

[artemu88]

Все подправил, просто не разобрался сначала, все сохраняет в отдельную книгу!!!!!!!!!

MsgBox ("процедура закончена!")
ActiveWorkbook.SaveAs "C:\Users\Documents\бд\baza.xls"

Все работает

еще делал сейвом и тоже все работало, прошу прощения. СПАСИБО БОЛЬШОЕ ЗА ПОМОЩЬ!

[Iska]

в отдельную книгу!!!!!!!!! »

В отдельную — да, .SaveAs.

[artemu88]

Спасибо за помощь, очень вам благодарен!))