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

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

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

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


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

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


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

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

 

Ветеран


Contributor


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

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


Цитата artemu88:
(и возможно ли) в vb6 сравнение двух таблиц ods (openofficecalc) »
А как в Вашем представлении должно вообще выглядеть сравнение двух таблиц (не суть чьих)?

Цитата artemu88:
или dbf»
Тот же вопрос.

Теоретически можно попробовать посмотреть, что можно сделать для доступа к OpenOffice SpreadSheet: OpenOffice SpreadSheet connection strings - ConnectionStrings.com. С доступом же к dbf проблем быть не должно в принципе, главное — знать, что это за dbf.

Отправлено: 12:31, 20-09-2018 | #2



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

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


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


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

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


Я думаю, что нужно по индексированному полю (присутствующему в двух таблицах и где, например каждой организации соответствует определенная сумма) сравнивать. И заполнять следующие ячейки недостающими значениями. Только как вывод всего этого в отдельную книгу осуществить я не знаю.
В vba более или менее понятно, нашел на просторах интернета и то понял не до конца. А как в vb6 это реализовать вообще темный лес))

Отправлено: 13:29, 20-09-2018 | #3


Ветеран


Contributor


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

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


Цитата artemu88:
А как в vb6 это реализовать вообще темный лес)) »
Да практически точно так же, как на VBA. Там разницы между языками с гулькин нос.

Отправлено: 13:36, 20-09-2018 | #4


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


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

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


точно также с указанием пути к книге и номерами листов и диапазонов? А есть что-нибудь почитать по этому вопросу? Просто ничего не нашел

Отправлено: 13:46, 20-09-2018 | #5


Ветеран


Contributor


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

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


Да практически любое пособие по VB, от 800-1200 страниц и выше, смотрите раздел по работе с базами данных.

Отправлено: 18:55, 20-09-2018 | #6


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


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

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


сравнил 2 листа в экселе при помощи модуля - все получилось
хотел спросить как подключить книгу эксель из текстового поля в vb6, чтобы пользователь указывал путь к первой книге и путь ко второй книге, нажимал кнопку "сравнить" и все сравнивалось. код сравнения есть. Не знаю как реализовать подключение книги через текстовое поле text1. Как бд подключает, но как дальше работать с синтаксисом vba в vb6 для сравнения книг?

Заранее спасибо за ответ!

Отправлено: 17:22, 04-10-2018 | #7


Ветеран


Contributor


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

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


Покажите код, опишите, что вызывает вопросы.

Отправлено: 22:25, 04-10-2018 | #8


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


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

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


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

Код прикрепил, сначала делаю соединение с бд, может как то по-другому надо?

Спасибо!

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


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


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

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


Прошу прощения, исправило код, но все равно не видит файл как рабочую книгу

Option Explicit
Dim oldRow As Integer
Dim newRow As Integer
Dim lrow_input As Integer, lrow_output As Integer
Dim WB_Input As Workbook
Dim WB_Output As Workbook
Dim WS_Input As Worksheet
Dim WS_Output As Worksheet
Dim Excel As Object, sWBName$, sFullPath As String
Dim sWBName1$, sFullPath1 As String
Dim MyFile

Private Sub Command1_Click()
Set Excel = CreateObject("Excel.Application")
sFullPath = Text1.Text
sWBName = Dir(sFullPath)
sFullPath1 = Text2.Text
sWBName1 = Dir(sFullPath1)
WB_Input = Workbooks(sWBName)
WB_Output = Workbooks(sWBName1)

Отправлено: 12:53, 05-10-2018 | #10



Компьютерный форум 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




 
Переход