можно ли реализовать в vb6 сравнение 2 таблиц odt?
добрый день! Как реализовать (и возможно ли) в vb6 сравнение двух таблиц ods (openofficecalc) или dbf? Просто даже пока не знаю куда копать))
Заранее спасибо! |
Цитата:
Цитата:
Теоретически можно попробовать посмотреть, что можно сделать для доступа к OpenOffice SpreadSheet: OpenOffice SpreadSheet connection strings - ConnectionStrings.com. С доступом же к dbf проблем быть не должно в принципе, главное — знать, что это за dbf. |
Я думаю, что нужно по индексированному полю (присутствующему в двух таблицах и где, например каждой организации соответствует определенная сумма) сравнивать. И заполнять следующие ячейки недостающими значениями. Только как вывод всего этого в отдельную книгу осуществить я не знаю.
В vba более или менее понятно, нашел на просторах интернета и то понял не до конца. А как в vb6 это реализовать вообще темный лес)) |
Цитата:
|
точно также с указанием пути к книге и номерами листов и диапазонов? А есть что-нибудь почитать по этому вопросу? Просто ничего не нашел
|
Да практически любое пособие по VB, от 800-1200 страниц и выше, смотрите раздел по работе с базами данных.
|
сравнил 2 листа в экселе при помощи модуля - все получилось
хотел спросить как подключить книгу эксель из текстового поля в vb6, чтобы пользователь указывал путь к первой книге и путь ко второй книге, нажимал кнопку "сравнить" и все сравнивалось. код сравнения есть. Не знаю как реализовать подключение книги через текстовое поле text1. Как бд подключает, но как дальше работать с синтаксисом vba в vb6 для сравнения книг? Заранее спасибо за ответ! |
Покажите код, опишите, что вызывает вопросы.
|
Вложений: 1
Код прикрепил, сначала делаю соединение с бд, может как то по-другому надо?
Спасибо! |
Прошу прощения, исправило код, но все равно не видит файл как рабочую книгу
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) |
artemu88, я посмотрел на Ваш код, но так и не понял, что Вы хотите получить в целом. Если код в:
Цитата:
Если выбросить всё относящееся к OLE DB, то для работы посредством Automation напрямую через Excel.Application должно быть примерно так: Код:
… |
Вложений: 1
СПАСИБО ОГРОМНОЕ!!!!!!!
Все работает, теперь вопрос, как эти изменения сохранить. SaveAs не работает, можно ли как-то сохранить изменения во второй книге? |
artemu88, а в каком месте Вы добавляли .SaveAs? Что значит «не работает» — как это выглядит? Почему не просто .Save?
|
Все подправил, просто не разобрался сначала, все сохраняет в отдельную книгу!!!!!!!!!
MsgBox ("процедура закончена!") ActiveWorkbook.SaveAs "C:\Users\Documents\бд\baza.xls" Все работает еще делал сейвом и тоже все работало, прошу прощения. СПАСИБО БОЛЬШОЕ ЗА ПОМОЩЬ! |
Цитата:
|
Спасибо за помощь, очень вам благодарен!))
|
Время: 22:06. |
Время: 22:06.
© OSzone.net 2001-