Hola, lo que puedes hacer es crear una función que devuelva la matriz:
Código:
Public Function CargarArray(ByVal sArchivo As String) As String()
Dim a() As String, b() As String, sLinea As String, i As Integer
ReDim b(0)
Open sArchivo For Input As #1
Do While Not EOF(1)
Line Input #1, sLinea
a = Split(sLinea, vbTab)
For i = 0 To UBound(a)
b(UBound(b)) = a(i)
ReDim Preserve b(UBound(b) + 1)
Next i
Loop
' eliminamos el último elemento que está vacío
ReDim Preserve b(UBound(b) - 1)
Close #1
CargarArray = b
End Function
y para llamarla le pasas como parámetro el archivo .txt:
Código:
Dim MiArray() As String
MiArray = CargarArray("c:\stock.txt")
Lo puedes mejorar pasándole un segundo parámetro con el separador de campos que tenga el archivo (coma, punto y coma, tabulador, espacio, etc..) y así serviría para cualquier tipo de archivo.
