Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6453
Последний выпуск: 19.06.2015

Добавление элементов ComboBox из таблицы Excel

88K
12 сентября 2013 года
Hartman
2 / / 12.09.2013
Нужно добавить в ComboBox все элементы столбца "A", НО! в столбце "A" данные повторяются, а мне нужно добавлять только Новые элементы. С началом у меня все ОК, вот только как сделать проверку, имеется ли такой элемент уже или нет, ума не приложу.

Код:
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Dim App As New Excel.Application
    Dim Book As Excel.Workbook
    Dim Sh1 As Excel.Worksheet
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim s As String
        Dim x As Long
        Book = App.Workbooks.Open(Application.StartupPath & "\Book.xlsx")
        Sh1 = Book.Worksheets("Лист1")
        s = Sh1.UsedRange.Rows.Count
        With Sh1
            Do Until x = s
                x = x + 1
                ' тут нужно создать проверку есть ли такой элемент в списке или нет
               ' если нет то:
               ComboBox1.Items.Add(.Range("A" & x).Value2)
            Loop
        End With
        Book.Close()
    End Sub
End Class
88K
13 сентября 2013 года
Hartman
2 / / 12.09.2013
Код:
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Dim App As New Excel.Application
    Dim Book As Excel.Workbook
    Dim Sh1 As Excel.Worksheet
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim V As String = ""
        ComboBox1.Sorted = True
        Book = App.Workbooks.Open(Application.StartupPath & "\Book.xlsx")
        Sh1 = Book.Worksheets("Лист1")
        For i = 1 To Sh1.UsedRange.Rows.Count
            V = Sh1.Range("A" & i).Value.ToString
            If ComboBox1.Items.Contains(V) = False Then ComboBox1.Items.Add(V)
        Next
        Book.Close()
        App.Quit()

    End Sub
End Class
Вот что я имел ввиду. Гугл говорит все что угодно, но не то что нужно.
6
12 сентября 2013 года
@pixo $oft
3.4K / / 20.09.2006
Не легче отсортировать и добавлять из уже отсортированного списка? И проверку на совпадение будет делать гораздо проще.
89K
13 сентября 2013 года
skorpio26rus
2 / / 13.09.2013
можно поискать в гугле или яндексе

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог