Obtener nombres de colunmas en un arreglo o array

[roa30]

Hola a todos buenos dias, estoy tratando de encontrar una forma optima de traerme todos los nombres de una columna y convertirlos a una array,  para almacenarlos en una variable...

actualmente estoy copiando, pegando y trasponiendo, los datos, luego los concateno y los agrego ahi recien a la variable.

esta accion es totalmente manual, hecha con la grabadora de macros, ...existe otra forma de poder hacerlo?

lo que me interesa es traerme los nombres de los encabezados de las columnas y traerlos a un variable como arreglo, o array, pero lo que necesito tener en cuenta es que me vienen muchos archivos y no siempre tienen las colunmas el mismo orden, y a veces tambien puede venir alguna con el nombre vacio, pueden venir mas o menos columnas, por eso se que esta version creada con la grabadora no es util para nada, 

 

como podria hacer para recorrer todas las colunmas traerme los nombres o encabezados y convertilos a un array?

 

les adjunto el archivo como ejemplo

 

Libro1.xlsm

[Abraham Valencia]

Hola

Si bien lo del archivo se entiende, cuando dices que vienen muchos archivos y distintos ¿Te refieres a que esos encabezados de columnas pueden ser más o a otra cosa?  Además ¿Siempre estarán en la fila 1? ¿Siempre comienzan en la columna B? Si como comentas, hay alguna columna vacía entre llenas ¿Qué se supone se debe hacer y/o qué debe ocurrir con tu array? ¿Para qué necesitas el array? Eso es importante ya que no explicas porqué separas con coma todo ¿Quizás para crear un archivo csv? Como ves, has dejado demasiados "detalles" para adivinar.

[roa30]

Hace 14 minutos , Abraham Valencia dijo:

Hola

Si bien lo del archivo se entiende, cuando dices que vienen muchos archivos y distintos ¿Te refieres a que esos encabezados de columnas pueden ser más o a otra cosa?  Además ¿Siempre estarán en la fila 1? ¿Siempre comienzan en la columna B? Si como comentas, hay alguna columna vacía entre llenas ¿Qué se supone se debe hacer y/o qué debe ocurrir con tu array? ¿Para qué necesitas el array? Eso es importante ya que no explicas porqué separas con coma todo ¿Quizás para crear un archivo csv? Como ves, has dejado demasiados "detalles" para adivinar.

Hola Abraham, gracias por tomarte tu tiempo en leerlo..

>> ¿Te refieres a que esos encabezados de columnas pueden ser más o a otra cosa? 

me referia a que puede venir esas colunmas o algunas mas no se por ejemplo unas 10 o 15 extras... 

>>  ¿Siempre estarán en la fila 1?

Si los encabezados siempre estan en la fila 1

>> ¿Siempre comienzan en la columna B?

Lo mostre como un ejemplo de que puede llegar a venir una columna sin nombre de encabeZado

>>  Si como comentas, hay alguna columna vacía entre llenas ¿Qué se supone se debe hacer y/o qué debe ocurrir con tu array?

Indicar como "" o  esa posicion del array, donde no haya nombre de encabezado en este caso la posicion 0 deberia tener el valor 0 o empty.

>> ¿Para qué necesitas el array?

Necesito almancerlo en una variable, con la que luego hago un filtro avanzado, donde me traigo de otra hoja, las dos datos que coincidan con los elementos de mi array.

Lo que necesito llegar a obtender de una manera mas dinamica es esto:

mis encabezados= ("encabezado1", " encabezado 2" , etc etc, ) 

 

 

[Antoni]

Sub EncabezadoArray()
Dim MiArray() As String, y As Integer
For y = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
   ReDim Preserve MiArray(y - 1)
   MiArray(y - 1) = Cells(1, y)
Next
End Sub

 

[Antoni]

Hace 8 minutos , Antoni dijo:

Sub EncabezadoArray()
Dim MiArray() As String, y As Integer
For y = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
   ReDim Preserve MiArray(y - 1)
   MiArray(y - 1) = Cells(1, y)
Next
End Sub

 

Otra forma

Sub EncabezadoArrayII()
Dim MyArray As Variant
MyArray = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
End Sub

En este caso el array es de 2 dimensiones por lo que te has de referir a un elemento así:

MyArray(1, c) siendo c el  número de columna.

En cualquier caso, puede que el array sea innecesario, basta con recorrer la fila 1 con:

For y = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
...
...
Next

 

[roa30]

En 20/9/2022 at 13:18 , Antoni dijo:

Otra forma

Sub EncabezadoArrayII()
Dim MyArray As Variant
MyArray = Range("A1", Cells(1, Columns.Count).End(xlToLeft))
End Sub

En este caso el array es de 2 dimensiones por lo que te has de referir a un elemento así:

MyArray(1, c) siendo c el  número de columna.

En cualquier caso, puede que el array sea innecesario, basta con recorrer la fila 1 con:

For y = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
...
...
Next

 

Hola Antoni, como estas? perdon recientemente he visto tu respuesta, he tenido un accidente domestico, y recien hace una semana volvi a mi hogar, tuve que permanecer en terapia todo este tiempo. Lo he probado y funciona de lujo.

Te agradezco mucho la ayuda