VPF::Столбец Excel в массив VB - Форум программистов

swetik1981

Дата 20.12.2007, 23:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как быстро перевести данные из столбца Excel в массив VBA
Простой вариант, который приходит в голову:

Код


dim dann() 
do
 i=i+1
 if cells(i,1).value=empty then exit do 
 redim preserve dann(i)
 dann(i)=cells(i,1).value
loop

Вопрос: Есть ли возможность перегнать данные из столбцав массив одним махом, а не по-шагово из каждой ячейки столбца?

Akina

Дата 21.12.2007, 10:32 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

Цитата(swetik1981 @ 21.12.2007, 00:53

)

Есть ли возможность перегнать данные из столбцав массив одним махом, а не по-шагово из каждой ячейки столбца?

Именно в массив - нет. В рекордсет - да.

И это происходит именно в программе на VB6? или в VBA, который в MS Excel? или в другом приложении MS Office?

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

igor_123

Дата 24.12.2007, 19:51 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 14.12.2007
Где: Днепропетровск

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

почему нельзя ???

Sub dg()
Dim i As Long
For i = 1 To 10
Cells(1, i).Value = i
Next i
Dim v() As Variant
v = Range("a1:j1").Value
End Sub

если данные в столбце то массив двухмерный получится. Из VB6 то-же самое работает

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