Из всего четыре:
VbLinkNone 0 Нет DDE VbLinkAutomatic 1 Автоматическая VbLinkManual 2 Ручная используется метод LinkRequest VbLinkNotify 3 Сообщение. Для изменения используем LinkRequest
Итак, автоматический метод мы посмотрели в прошлом шаге, давайте сделаем ручной. Меняем настройки:
Private Sub Form_Load() Text1.LinkTopic = "Excel|Лист1" Text1.LinkItem = "R1C1" Text1.LinkMode = vbLinkManual End Sub
И создаем кнопку обновить.
По нажатию на эту кнопку мы будем обновлять текстовое поле. Пишем код.
Private Sub Command1_Click() Text1.LinkRequest End Sub
Теперь нам нужно будет нажимать на ее что бы обновить поле. Но ведь есть и еще один тип связи который поможет нам в этом деле. При изменении данных на сервере мы получим сообщений. Ставим тип VbLinkNotify.
Private Sub Form_Load() Text1.LinkTopic = "Excel|Лист1" Text1.LinkItem = "R1C1" Text1.LinkMode = vbLinkNotify End Sub
Но ведь нам нужно будет реагировать на сообщение. У тестового поля есть метод который нам нужно перегрузить.
Код к нему
Private Sub Text1_LinkNotify() MsgBox "Data change" End Sub
И теперь при изменении данных в Excel будет появляться табличка , но только в тот момент когда окно приложения станет активное.