VPF::Экспорт из Excel в приложение - Форум программистов

Arkadijnich

Дата 8.7.2014, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.8.2013

Репутация: нет
Всего: нет

Всем Доброго дня!
Не решается  небольшая задача. Исходные данные:1. Язык VB.Net.  2. Существует цепочка: программа «Источник» -> Excel -> программа «Приемник». Из «Источника» по DDE данные поступают в Excel, в колонку А. Здесь проблем НЕТ.

При экспорте из Excel в «Приемник» механизм следующий: каждая новая строка копируется в ячейку С1, которая в свою очередь  отображается в TextBox(e). Вот код:

Код


Public Class Form1
    Dim xlApp As Excel.Application = New Excel.Application
    Dim xlSheet1 As Excel.Worksheet

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text += TextBox1.Text + Environment.NewLine
        xlApp.Workbooks.Open("C:\Users\Хозяин\Desktop\Книга1.xlsm")
        xlSheet1 = xlApp.ActiveWorkbook.ActiveSheet
        xlApp.Visible = True

        AddHandler xlSheet1.Calculate, New Excel.DocEvents_CalculateEventHandler(AddressOf xlSheet1_Calculate)
    End Sub
    Private Sub xlSheet1_Calculate()
        Invoke(Sub()

                   Me.TextBox1.Text = xlSheet1.Cells(1, 3).Value

               End Sub)
    End Sub

End Class

Суть проблемы: Если в Excel не вносятся изменения в следующую ячейку, а меняется текст в уже заполненной, то изменение текста в TextBox(e) не происходит. Кто сталкивался с данной проблемой, подскажите?

diadiavova

Дата 19.7.2014, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(Arkadijnich @ 8.7.2014, 14:50

)

Если в Excel не вносятся изменения в следующую ячейку, а меняется текст в уже заполненной, то изменение текста в TextBox(e) не происходит. Кто сталкивался с данной проблемой, подскажите?

Это скорей вопрос по модели автоматизации экселя и задавать его следовало бы в соответствующем разделе. Ну так навскидку могу посоветовать попробовать использовать другое событие, например Change. В принципе при программном изменении ячейки это событие должно срабатывать.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »