Pegar Nomes dos cabeçalhos em um intervalho(C1:Z1) e transformar em Array

Question

Pessoal,

Como faço para pegar todos os nomes do meu cabeçalho em uma planilha, com intervalo de C1 até Z1 e transformo em um Array em VBA no excel?

Queria que ficasse assim:

exemplo:  

vArray = ArraydosCabeçalhos

ou seja, A minha variável vArray recebesse os nomes de todos os meu cabeçalhos

agradecido.

Airton Barros

---

JOAB

Answer 1

Boa noite Joab.

Existem várias formas de se fazer isso, e a melhor depende do uso que vc fará. Abaixo cito 2 formas, supondo os dados entre B11 e F11:

x = Range("B11:F11").Value

Dim x2(1 To 5) As String
For i = 1 To UBound(x2, 1)
    
    x2(i) = Cells(11, i + 1).Value
    
Next i

Um abraço.

---

Filipe Magno

Answer 2

Sua pergunta é referente a este tópico?

http://social.msdn.microsoft.com/Forums/pt-BR/002353ca-e6e3-4e68-9afa-44d4adb97202/um-novo-postexportao-entre-planilhas-excel?forum=vbapt

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 3

Desculpa Felipe,

É que você tinha me ajudado bastante e não quis incomoda-lo.

Comecei a trilhar um outro modo e por isso abri o outro tópico.

Abração, companheiro

Airton Barros

---

JOAB