Indlæse alle csv filer i mappe og bearbejd

Lidt at begynde med: http://www.eksperten.dk/spm/810256

Så langt er vi enige :) ..

har været ud i sådan en klippe klister udgave som ligner denne

Sub RunCodeOnAllXLSFiles()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook


Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

On Error Resume Next
    Set wbCodeBook = ThisWorkbook
        With Application.FileSearch
            .NewSearch
            'Change path to suit
            .LookIn = "C:\data\"
                 
                       
            .FileType = msoFileTypeAllFiles
            'Optional filter with wildcard
            '.Filename = "*.csv"
                If .Execute > 0 Then 'Workbooks in folder
                    For lCount = 1 To .FoundFiles.Count 'Loop through all
                        'Open Workbook x and Set a Workbook variable to it
                        Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
                       
                        'DO YOUR CODE HERE
                        MsgBox (lCount)

                        wbResults.Close SaveChanges:=False
                    Next lCount
                End If
        End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
End Sub

msgbox var bare en tjekker.. men fik det ikke til at virke

Vender tilbage..

ser frem til det med glæde :)

Lidt kortere udgave:

Const sti = "C:\Users\peter\Desktop\Ny mappe\"  '<----- korriger
Const filType = ".xlsx"                        '<----- korriger
Sub traverserMappe()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti)
    Set fc = f.Files
    For Each f1 In fc
        filnavn = LCase(f1.Name)
        If Right(filnavn, Len(filType)) = filType Then
            MsgBox (filnavn)
           
            Workbooks.Open Filename:=filnavn
            With ActiveWorkbook
                .Sheets(1).Range("B1") = Now        'timestamp sættes (eksempel)
                .Save
                .Close
            End With
        End If
    Next

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Så langt så godt.. næste problem er hvordan fortæller man den automatiske åbner at det er en csv fil og den derfor skal tænke sig om og lave den pæn når den åbner og ikke bare data;;;;;;2;;;;data;;;

nogen forslag til det ?

Hei igoogle

Du har fått et elegant forslag fra Supertekst.

Men hvis du skal løse det siste problemet, må filtypen endres fra csv til txt.


Be han legge inn en kode som først endrer alle filnavn.csv til filnavn.txt.

ok .. tak for input..

supertekst smider du et svar ?

ja - det får du her

Igoole

Jeg har en kode som er veldig lik den supertekst har kommet med.

I tillegg endrer den filene fra csv til txt, slik at importen blir lettere å jobbe med.

Hvis du ønsker det kan jeg lete den frem og legge den her som en kommentar.