p.t. bruger jeg DoCmd.TransferText acImportDelim, bla bla... men det virker ikke når jeg kopierer databasen til Terminal Server (med Access XP Runtime), så lukker programmet ned når det når til ovenstående linie! :(
Sub Indlæs() Dim s As String Dim a As Variant Dim i As Integer
Open "C:\Temp\Fil4.txt" For Input As #1 While Not EOF(1) Line Input #1, s a = Split(s, ",") For i = 0 To UBound(a) Debug.Print a(i), Next i Debug.Print Wend Close 1 End Sub
Så kan du i øvrigt teste på UBound(a) for at tjekke, om alle 4 elementer var der.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
