Filformat indlæsning, VBA

Er der overskrifter i øverst i filen ?

Der vil typisk være en overskrift a la, ellers sættes det ind:
fodtøjstype<tab>farve<tab>størrelse

Til pivotdelen kan jeg se, at det vil være formålstjenesteligt.

Bemærk, jeg er ikke klar over hvordan linie afsluttes mht eol eller cr.

Med nedenstående kode kan du hente filen ind i Excel.

Sub ImportFraFil()

myFile = Application.GetOpenFilename("Text Files,*.txt")
Workbooks.OpenText FileName:=myFile, ConsecutiveDelimiter:=True, Tab:=True
Range("A1").FormulaR1C1 = "Fodtøjstype"
Range("B1").FormulaR1C1 = "Farve"
Range("C1").FormulaR1C1 = "Størrelse"

End Sub

De sidste tre linier skriver en overskrift. Hvis der allerede er en overskrift i filen, kan du blot slette dem.

63000 linier er ikke noget problem, men det er godt nok tæt på; Grænsen i Excel er 65536.

Tak - der læses godt nok ind, den reelle problemstilling er, at det er tab sep, og det ønskes en matrix med en værdi pr variabel. Jeg forestiller mig indlæsning på linieniveau med en 3 seperate værdier pr linie.
Vil antage at det er hurtigere med ændringer i en matrix fremfor på celle niveau.

Mht 65k, så er jeg bekendt med antal linier, men gælder dette også hvis man laver en matrix?

Så må jeg indrømme, at jeg ikke forstår, hvad du mener med matrix. Åh, vil du have dem læst ind i en variabel i VBA?

Hvis min ovenstående kommentar er korrekt, så kan nedenstående kode bruges til at lægge data ind i en matrix-variabel.

Funktionen læser først data ind i regnearket og derefter over i en matrice. Denne fremgangsmåde er valgt, da det umiddelbart er den letteste måde at læse en tab-separeret fil (en kommasepareret kan lettere læses direkte ind i matricen).

Sub FilTilMatrix()
Dim DataMatrix() As Variant
Dim Antal, i As Integer

myFile = Application.GetOpenFilename("Text Files,*.txt")
Workbooks.OpenText FileName:=myFile, ConsecutiveDelimiter:=True, Tab:=True
Antal = Range("A65536").End(xlUp).Row

ReDim Preserve DataMatrix(3, Antal)

For i = 1 To Antal
    DataMatrix(1, i) = Range("A" & i).Value
    DataMatrix(2, i) = Range("B" & i).Value
    DataMatrix(3, i) = Range("C" & i).Value
Next
Range("A1:C" & Antal).Clear

'Og så må du så skrive alt det du vil gøre ved matricen her

End Sub

Mange tak for hjælpen.

Din antagelse er helt korrekt - det var reelt det, som jeg forespurgte.

Jeg kan faktisk selv bestemme om det er tab eller kommasepareret, og hvis jeg kan gøre det lettere med kommaseparet vil jeg hellere det - især hvis jeg undgår a skrive i celler fremfor direkte i matrixen.

Vil du smide et svar, så jeg kan give point?

Hvis du får en voldsom trang til at lave komma varianten, så vil jeg være glad for det.

Tak for hjælpen.

Jeg har ikke lige haft mulighed for at afprøve den, og jeg har faktisk slet ikke nogen erfaring med den, men det skulle være noget i den her retning (og så slipper du jo for Excel's liniebegrænsning)

Sub FilTilMatrix2()
Dim DataMatrix(), SkoMatrix(), StøvleMatrix() As Variant
Dim Antal, i As Integer

myFile = Application.GetOpenFilename("Text Files,*.txt")
Open myFile For Input As #1

Antal = 0
Do While Not EOF(1)
    Antal = Antal + 1
    ReDim Preserve DataMatrix(3, Antal)
    Input #1, DataMatrix(1, i), DataMatrix(2, i), DataMatrix(3, i)
Loop
Close #1

End Sub

Tak for hjælpen - du får point.

Jeg kan ikke få sitet til at godkende, at jeg trykker på accept . . . hvad skal jeg gøre? Har også prøvet afvis . . .

Du skal markere mit navn - og derefter trykke Accept :0)

Vupti, takker.