Import af flere teksfiler til ét regneark

De skal indlæses foreløbende, altså efter hinanden

test denne makro
går ud fra at filerne er kommaseparerede.

og så lige lidt kode :-)

Sub ProcessTextFiles()
Dim FS As FileSearch
Dim FilePath As String, FileSpec As String
Dim i As Long, x As Long
Dim lFNo As Long

'********Udfyldes af brugeren**********
FilePath = "C:\mintekstfolder"
FileSpec = "*.in"
'***************************************

Set FS = Application.FileSearch
With FS
    .LookIn = FilePath
    .Filename = FileSpec
    .Execute
    If .FoundFiles.Count = 0 Then
        MsgBox ("Ingen filer fundet")
        Exit Sub
    End If
End With
x = 1
For i = 1 To FS.FoundFiles.Count
    lFNo = FreeFile
    Open FS.FoundFiles(i) For Input As #lFNo
    While Not EOF(lFNo)
        Line Input #lFNo, tekst
        x = x + 1
        temp = Split(tekst, ",")
        ActiveSheet.Range(Cells(x + 1, 0), Cells(x + 1, UBound(temp))) = temp
    Wend
    Close #lFNo
Next
End Sub

Virker det ?

Hej Bak, jeg er lige kommet tilbage fra ferie, så jeg har ikke fået set dit svar før nu. Jeg har afprøvet koden...men der melder sig en fejl: run-time error 1004
på denne linie (den 5. sidste linie):

        ActiveSheet.Range(Cells(x + 1, 0), Cells(x + 1, UBound(temp))) = temp

Ved du hvad det betyder ?

fejlen kommer kun, når jeg ændrer i filstien...ellers kommmer der bare frem: Ingen filer fundet

Har du mulighed for at sende et par af dine tekstfiler til excel@tbdl.dk
så skal jeg lige undersøge hvad der går galt.

ja, det jeg sender dig lige en enkelt

det virker, super, læg et svar

:-)

Hej bak

Jeg står og kan bruge noget af det samme som Rasmus1234.
Jeg får samme fejl som Rasmus1234 beskriver - kan du hjælpe så det også kommer til at virke for mig?

Mvh

Jens Frederik

Måske, send lige en tekstfil til excel@tbdl.dk

Sub ProcessTextFiles()
Dim FS As FileSearch
Dim FilePath As String, FileSpec As String
Dim i As Long, x As Long
Dim lFNo As Long
Dim tekst As String
Dim temp

'********Udfyldes af brugeren**********
FilePath = "d:\"
FileSpec = "*.in"
'***************************************

Set FS = Application.FileSearch
With FS
    .LookIn = FilePath
    .Filename = FileSpec
    .Execute
    If .FoundFiles.Count = 0 Then
        MsgBox ("Ingen filer fundet")
        Exit Sub
    End If
End With
x = 1
For i = 1 To FS.FoundFiles.Count
    lFNo = FreeFile
    Open FS.FoundFiles(i) For Input As #lFNo
    While Not EOF(lFNo)
        Line Input #lFNo, tekst
        x = x + 1
        temp = Split(tekst, ",")
        ActiveSheet.Range(Cells(x + 1, 1), Cells(x + 1, UBound(temp))) = temp
    Wend
    Close #lFNo
Next
End Sub

Hej igen...hvad nu hvis jeg vil åbne flere .xls filer i et regneark...er det muligt?