Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/17: Рейтинг темы: голосов - 17, средняя оценка - 4.76
am-wrag
10 / 10 / 2
Регистрация: 17.02.2011
Сообщений: 145
1

Заполнение listbox данными с листа

11.04.2012, 17:30. Просмотров 3196. Ответов 1
Метки нет (Все метки)

Пытаюсь заполнить лист бокс данными из странцы экселя tempFC. Этот лист абсолютно верно и всегда заполняется данными из БД. Проблема в том что бокс почти всегда берет данные с листа UpdateDog и только изредко из tempFC. Абсолютно непонимаю почему...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
Set il = ThisWorkbook.Worksheets("UpdateDog")
Set fc = ThisWorkbook.Worksheets("tempFC")
 
serv = Application.ThisWorkbook.Worksheets("UpdateDog").TextBox1.Text
 
Set fil = New ADODB.Connection
fil.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=dstrah;Data Source=" + serv
fil.Open
tSql = "select * from bd"
read.Open tSql, fil
 
fc.Range(fc.Cells(2, 1), fc.Cells(fc.UsedRange.Rows.Count, 4)).Clear
    Do Until read.EOF
    fc.Cells(i, 1).Value = read.Fields(0)
    fc.Cells(i, 2).Value = read.Fields(1)
    fc.Cells(i, 3).Value = read.Fields(2)
    fc.Cells(i, 4).Value = read.Fields(3)
    i = i + 1
    read.MoveNext
    Loop
read.Close
 
ListBox1.RowSource = fc.Range(fc.Cells(2, 1), fc.Cells(fc.UsedRange.Rows.Count, 4)).Address
 
End Sub
Маленький вопрос по красоте: как заполнить названия столбцов в листбоксе?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2012, 17:30
Ответы с готовыми решениями:

Заполнение 2 листа данными из 3-го листа при событии на 1-м листе
Уважаемые форумчане, добрый вечер! Бьюсь челом и молю о помощи с решением...

Заполнение таблицы данными с другого листа
Добрый день, помогите, пожалуйста, решить задачку. Имеется "Лист 1" с таблицей...

Заполнение ячеек листа данными из файла
надо что бы кнопка загружала файлы. и из каждого файла ( там файлы с цифрами)...

Заполнение листа данными vba. массивом
Всем привет. ребят, вопрос такой. Есть ли возможность с помощью vba заносить...

Excel заполнение одного листа данными из другого
Gospoda, pomogite chajniku. Na odnom liste knigi est tablica - dopustim, v...

1
Казанский
14156 / 5854 / 1536
Регистрация: 24.09.2011
Сообщений: 9,201
11.04.2012, 18:41 2
Цитата Сообщение от am-wrag Посмотреть сообщение
Проблема в том что бокс почти всегда берет данные с листа UpdateDog и только изредко из tempFC. Абсолютно непонимаю почему...
Потому что Вы указываете адрес без указания листа, и данные берутся с текущего листа. Попробуйте
Visual Basic
1
ListBox1.RowSource = fc.Range(fc.Cells(2, 1), fc.Cells(fc.UsedRange.Rows.Count, 4)).Address(external:=true)
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.04.2012, 18:41

Заполнение ListBox таблицей с неактивного листа Excel
Требуется заполнить ListBox таблицей, которая находится на листе другой книги,...

Автоматическое обновление листа с данными
Здравствуйте! Подскажите пожалуйста как можно автоматически обновить лист при...

Заполнить ComboBox данными из листа Excel
Как сделать, чтобы список составлялся из данных на листе ексель, при этом ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru