Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] можно ли реализовать в vb6 сравнение 2 таблиц odt?

Ответить
Настройки темы
VBA - [решено] можно ли реализовать в vb6 сравнение 2 таблиц odt?

Пользователь


Сообщения: 105
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: artemu88
Дата: 20-09-2018
добрый день! Как реализовать (и возможно ли) в vb6 сравнение двух таблиц ods (openofficecalc) или dbf? Просто даже пока не знаю куда копать))
Заранее спасибо!

Отправлено: 09:39, 20-09-2018

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


artemu88, я посмотрел на Ваш код, но так и не понял, что Вы хотите получить в целом. Если код в:
Цитата 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. …
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:01, 06-10-2018 | #11



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 105
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: rar Новая папка.rar
(1.6 Kb, 6 просмотров)

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

Отправлено: 11:30, 08-10-2018 | #12


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


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

Отправлено: 13:54, 08-10-2018 | #13


Пользователь


Сообщения: 105
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

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

Все работает

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

Отправлено: 16:50, 08-10-2018 | #14


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата artemu88:
в отдельную книгу!!!!!!!!! »
В отдельную — да, .SaveAs.

Отправлено: 21:29, 08-10-2018 | #15


Пользователь


Сообщения: 105
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Отправлено: 09:36, 09-10-2018 | #16



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBA - [решено] можно ли реализовать в vb6 сравнение 2 таблиц odt?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
MSFT SQL Server - Сравнение и синхронизация таблиц dosperados Программирование и базы данных 0 19-10-2017 13:15
2003/XP/2000 - Сравнение двух таблиц и получение результирующей IvarM Microsoft Office (Word, Excel, Outlook и т.д.) 15 07-03-2012 22:40
[решено] Можно ли реализовать следующую схему WSUS? flower WSUS 3 09-02-2012 16:09
2007 - Сравнение таблиц. a715 Microsoft Office (Word, Excel, Outlook и т.д.) 1 16-06-2011 22:52
Сравнение таблиц в Excel'e xkspy Хочу все знать 1 04-01-2007 10:42




 
Переход