Como criar array com número indefinido de elementos?

2024 - VBA & Macros

Post Recente por klarc28 7 anos atrás

2 Posts

1 Usuários

0 Reactions

624 Visualizações

RSS

klarc28

(@klarc28)

Posts: 971

Prominent Member

Topic starter

Se coloco assim:

Sub adicionar()

Dim lista(1000) As String
Dim i As Long
Dim item As String
item = "item1"
i = 0

While lista(i) <> Null

i = i + 1

Wend

lista(i) = item



End Sub

Não dá erro, mas o array fica limitado a 1000 elementos.

Se coloco assim:

Sub adicionar()

Dim lista() As String
Dim i As Long
Dim item As String
item = "item1"
i = 0

While lista(i) <> Null

i = i + 1

Wend

lista(i) = item



End Sub

Dá erro.

Postado : 28/12/2017 9:20 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Topic starter

Sub adicionar()

Dim lista() As String
Dim i As Long
Dim item As String
item = "item1"
i = 0
ReDim Preserve lista(i)
While lista(i) <> Null

i = i + 1
ReDim Preserve lista(i)

Wend

lista(i) = item



End Sub

Postado : 28/12/2017 9:25 pm