Как связать программу с базой в Excel?

[kminas]

Я пишу программу на VB для заполнения таблиц Word текстовой информацией. Недавно выяснил, что базу для этих таблиц можно подключить из Excel. Разобрался как можно извлекать информацию, но как заставить при этом эту информацию взаимодействовать с компонентами VB не знаю. Ведь в зависимости от вида оборудования, его марки, исполнения и других параметров должен подключаться контейнер кнопок выбора, заполняться список Combobox-ов и т.д. Как это все подсоединить? Может ли кто-нибудь дать ссылку на примеры исходников?

[dr.MIG]

Не понял... Проблема в чём - в динамическом создании и добавлении контролов на форму?

[kminas]

Не понял... Проблема в чём - в динамическом создании и добавлении контролов на форму?

Конечно и .additem тоже динамично и как это все динамично увязать с данными из Excel, ну, дальше-то будет полегче

[dr.MIG]

Непонятно всё равно как-то. Какая проблема добавить элементы в список (Combo1.AddItem "text")? Если по поводу добавления контролов, то почему их обязательно добавлять динамически - пока мне это непонятно. Одним словом анамнез какой-то запутанный...
То есть хотелось бы от автора услышать что-то вроде - извлекаю данные из Excel при помощи ... Надо с ними сделать то-то и то-то. Не получается сделать вот это. И побольше конкретики - что за данные, зачем и каким образом они должны взаимодействовать с элементами управления. В чём вообще заключается конкретная цель.

[kminas]

dr.MIG
Цель, как я уже сказал, заполнение таблиц в Word подготовленным в VB тексте. Так вот мне подсказали, что можно хранить данные в Excel.
Сейчас же я сам напихиваю эти данные в чистый VB и оттуда вставляю в Word. К примеру, в данный момент завершая работу над данными о вентиляторах. Вентиляторы бывают радиальные и осевые, при это в обычном и взрывоопасном исполнении, разные заводы-изготовители и т.д. Так вот при нажатии на одни контролы, открываются одни контейнерами с контролами и в Combo накачивается один текст, при нажатии на другие - другой и контролы другие. В обычной Бейсике все идет более менее нормально. Но мне подсказали, что я буду каждый раз лазить в прогу и редактировать, добавлять новое оборудование и т.д. А если, мол в Экселе создать таблицы, то можно как-то из них извлекать инфу и постоянно там данные редактировать, не трогая прогу. Но как это сделать, умишка не хватает.

[EUGY]

Код: Выделить всё


Private Sub Command1_Click()
'ADD reference MS EXCEL OBJECT LIBRARY
Dim exl As Excel.Application
Dim wbx As Excel.Workbook
Dim stx As Excel.Worksheet

Set exl = New Excel.Application
Set wbx = exl.Workbooks.Open("C:\mybase.xls")
Set stx = wbx.Worksheets(1)
Debug.Print stx.Range("A1").Value
stx.Range("A1").Value = "qwerty"
wbx.Save
wbx.Close
Set exl = Nothing
End Sub


хотя конечно лучше бы Access.

[Денис]

[quote=kminas]А если, мол в Экселе создать таблицы, то можно как-то из них извлекать инфу и постоянно там данные редактировать, не трогая прогу. Но как это сделать, умишка не хватает.[/quote]

Да. И я тебе больше скажу - я на работе постоянно создаю таблицы в экселе. Заполняю их данными. Извлекаю по необходимости и (^C - ^V) в Word - без проблем... И УМИШКА хватило делать все это не используя программирование вообще!!!

[kminas]

VB_D3D_Денис
Знаешь, представь себе и ятак делаю, уже последних лет 12. Но задооолго до этого выучил русский язык и тоже пользуюсь им БЕЗ программирования и внимательно читаю о чем речь в теме, а потом умничаю.

[igolka]

Мне показалось, что Вам подойдет связка Access с Word! Используя механизмы слияния.

Если есть время "рожать" методы работы с вашими вентиляторами в VB, то в принципе тоже работать будет! ,)

[kminas]

Мне показалось, что Вам подойдет связка Access с Word! Используя механизмы слияния.

Если есть время "рожать" методы работы с вашими вентиляторами в VB, то в принципе тоже работать будет! ,)

Конечно отлично бы подошла, но, во-первых, надо изучать Access, правда я небольшую программку написал на нем лет 5 назад, да сильно подзабыл, надо покупать полный Офис, а у нас и стандартный надо докупить, чтобы мою программу ставить. Кроме того, сейчас сайтом фирменным занимаюсь и времени не хватает. В общем спасибо за совет.

[Денис]

igolka
Никакого Worda! Только Access! В нем прекрасно все можно сделать. Автор ветки видит проблему не с того конца. Он думает что его проблема в заполнении таблиц ворда, а на самом деле - проблема в создании упорядоченных данных и последующей печати любых отчетов по выборкам из нее.

[kminas]

igolka
Никакого Worda! Только Access! В нем прекрасно все можно сделать. Автор ветки видит проблему не с того конца. Он думает что его проблема в заполнении таблиц ворда, а на самом деле - проблема в создании упорядоченных данных и последующей печати любых отчетов по выборкам из нее.

Я с Вами СОГЛАСЕН! Но только надо убедить наше руководство купить ПОЛНЫЙ Офис хотя бы тем юзерам, что будут заполнять такие таблицы, а у многих только OpenOfice. Кроме этого надо переубедить руководство, вопреки работникам нашей комп. слудбы сделать сеть в фирме. Кроме того, надо убедит руководство купить полную версию чертежной программы. И прочее и прочее.... например, можете почитать здесь http://forum.ixbt.com/topic.cgi?id=4:82375

[SSecurity]

Код: Выделить всё

Private Sub Command1_Click()
'ADD reference MS EXCEL OBJECT LIBRARY
Dim exl As Excel.Application
Dim wbx As Excel.Workbook
Dim stx As Excel.Worksheet

Set exl = New Excel.Application
Set wbx = exl.Workbooks.Open("C:\mybase.xls")
Set stx = wbx.Worksheets(1)
Debug.Print stx.Range("A1").Value
stx.Range("A1").Value = "qwerty"
wbx.Save
wbx.Close
Set exl = Nothing
End Sub


хотя конечно лучше бы Access.

в принципе .... могу добавить вот что.
1. Обычно если я работаю с Office 2003, то случайно оказывается что у клиента Оffice 2000 или и того подавно 97
Тогда оптимальнее использовать позднее связывание. (так больше шансов что ты вообще Эксель запустишь) или таскать за собой Excel.exe с набором всего необходимого:)

2. Нас странице Excel лучше взять формат CSV. Если офис не потянет, ты хоть сможешь одну страницу считать через обычные текстовые файлы

3. при вызове Экселя лучше его делать Невидимым, т.ею Exl.Visible = False, этим ты хоть время сэкономишь поскольку прорисовываться ничего не будет при загрузке.

4. Грабля 2. Когда работаешь с экселем Лучше всего по моему мнению Задать параметр Exl.DisplayAlerts = False тогда всякие месаги которые тебе эксель захочет задать не будут тебя беспокоить.

5. В предложеном примере Excel закрывается через Set Exl = Nothing как показала практика, не всегда такой вызов этот самый эксель закрывает. Exl.Quit сама закроет Excel, ну и затем можно Set Exl = Nothing.

6. Можно обозвать первую строку экселя Нужными тебе параметрами и сохранить в форматье DBASE .... (у тебя будет файл DBF который ты сможешь экселем редактировать, а доступ к данным через ADO)
например так:

Код: Выделить всё

Function cnToDBF(PATH As String) As ADODB.Connection
  On Error GoTo Err1
  Set cnToDBF = New ADODB.Connection
  If Dir(PATH) = "" Then Exit Function
  cnToDBF.Open "Driver=Microsoft dBase Driver (*.dbf);DBQ=" & PATH
 
  Exit Function
Err1:
  Set cnToDBF = Nothing
End Function

там свои особенности но работать реально проще будет.

С Уважением,
Сергей

[EUGY]

в принципе .... могу добавить вот что.

Спасибо за шестой пункт, не знал.

[SSecurity]

в принципе .... могу добавить вот что.

Спасибо за шестой пункт, не знал.

Я сам не знал ... случайно увидел как любимая жена экселем DBF-ку открыла и значения скопировала нужные:)

+7 (921) 167 44 01

С Уважением,
Сергей

[SSecurity]

Насколько я понимаю автора ... сожно написать супер-пупер хорошую программу, но добиться структурированного ввода значение - вот проблема "нумбер Ван". Думаю куда проще будет рассказать юзерам екселя что вбивать нужно текст в 4 колонки

Продукт
Тип
Исполнение
Производитель

Вообще говоря, сам эксель будет предлагать варианты, и судя по своей собственной манере ввода ... писать второй раз тоже значение мне будет "в западло", чем просто нажать ВВОД на предлагаемом к подстановке слове. Так у тебя более менее одинаковые значения будут.

Потом открываешь эксель, или то чем ты его заменишь и начинаешь строить список, можно воспользоваться Collection можно Dictionary из MS Scripting Runtime, можно просто массив, и смотришь было значение значит пропускаешь, не было - добавляешь.
В итоге потом наполнишь все списки тем что тебе нужно.


По конфигурации:

Теперь что касается кнопок, берешь любой файл хоть текстовый и в нем делаешь надпись типа

вентилятор,осевой,взрывоопасный,вася пупкин;1;1;1;1;0;0;1

- первые 4 параметра - значения, а единички и нолики - означают какие кнопки включить а какие отключить, и т.д.

[kminas]

Спасибо ВСЕМ, особенно,SSecurity
буду пробовать!

[SSecurity]

Спасибо ВСЕМ, особенно,SSecurity
буду пробовать!

Рад помочь землякам;) да и остальным тожа

С Уважением,
Сергей

[Денис]

например, можете почитать здесь http://forum.ixbt.com/topic.cgi?id=4:82375

Все понял. Примите мои соболезнования, коллега. Я б на вашем месте не парился и просто поискал бы новую работу (что и делал более-менее успешно пару раз). Благо не в деревне живете!