ARRAYs?

O sea que lo tienes en fila

Sería algo así como:

Sub VectorTitulo()

vF=Range("A1").end(xldown).row
ReDim Vector(vF)
For I=1 to vF
Vector(I-1)=Range("A" & I).Value
Next I
'Los titulos están en fila y no hay filas vacias sino hasta el final de
titulos de columnas
End Sub


"Carlos Elizalde" escribió en el mensaje
news:00a001c344af$c87ebae0$
Hola a todos,
gracias a vuestra ayuda he creado una macro que lleva
datos de Excel a Access, pero para optimizarla necesitaría
que el código identificara los nombres de los campos a
exportar.
Actualmente me creo un "ARRAY" cuyos datos son los que
están en la primera fila de una serie de columnas
consecutivas pero lo que me gustaría poder hacer es que la
propia macro construya esta matriz ya que el número de
columnas varía de un fichero a otro y los literales varían
de una tabla a otra.
Un ejemplo de lo que quiero sería:
A1 A2 A3 A4
Título Descripción Fecha Cuota
Mi matriz sería: Array
("Tïtulo","Descripción","Fecha","Cuota")
Lo que necesito es no tener que escribislo a mano para
cada fichero, ya que ni siempre son los mismos títulos ni
siempre hay el mismo número de campos
Me estoy comiendo el coco y no doy con ello. Agradecería
cualquier pista que me pueda ayudar
Saludos,
CARLOS ELIZALDE