Lukker flere filer op vha makro foretage en ændring

Prøv med nedenstående. Ret mappens navn til det rigtige, og indsæt koden til dine rettelser, der hvor jeg har angivet det.

Sub AabnRet()

    Set fs = Application.FileSearch

    With fs
        .LookIn = "C:\test"
        .Filename = "*.csv"

        If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) > 0 Then
            MsgBox "There were " & .FoundFiles.Count & _
                " file(s) found."

            For i = 1 To .FoundFiles.Count
                Workbooks.Open Filename:=.FoundFiles(i)
                'Insæt din kode til at rette her
                ActiveWorkbook.Save
                ActiveWorkbook.Close
            Next i

        Else
            MsgBox "There were no files found."
        End If

    End With

End Sub

Tak for input. Jeg har forsøgt med en test. Den debugger ved:

Set fs = Application.FileSearch"

Er det min version af Excel/VBA (Excel 2002) - som er et problem?

Forkert angivelse, der er en " for meget i første kommentar:

Set fs = Application.FileSearch

Ved debug kommer den med følgende besked:

Runtime error '1004'
Method 'Filesearch' of object '_application' failed

Jeg kører også 2002. Prøv at vælge (I VBA editoren) Tools - References. Hvilke referencer er vinget af?

Følgende er vinget af:
Visual Basic for Applications
MS Excel 10 object library
Ole Automation
MS Office 10 object library

Samme som hos mig. I mellemtiden har jeg googlet lidt, og fundet et enkelt entry, der bekriver præcis den samme problemstilling, nemlig at Applivation.FileSeach virker på én maskine, men ikke på en anden. Denne gang hos samem bruger. De to maskiner er tilsyneladende sat ens op, men alligevel virker det ikke. Desværre er der ingen løsning beskrevet, men jeg arbejder lidt videre.

Det må siges at være mystisk. Kan det være noget med autorisationer i forhold drev og biblioteksstruktur?

Det burde det ikke. Du når jo ikke så langt som til at vælge drevet.

Har du berænsninger på, hvad du må lave, fx bruge stifinder, eller er du administrator med alle rettigheder?

Jeg skulle have fulde rettigheder, men jeg kører via en terminalserver som selvfølgelig kan give lidt problemer - kunne jeg forestille mig. Jeg teste det lige på min egen maskine - den kører dog med Office2003. Jeg vender tilbage snarest.

Så vidt jeg kan se af indlæg på google virker application.filesearch kun hvis man er logget på pc'en med administratorrettigheder. Det vil sige, at i dit tilfælde skal du måske have administratorrettigheder til serveren.

Den virker på min private maskine. Så jeg tror, at det er terminalserveren der giver mig problemer. Jeg har administratorrettigheder på strukturen - men måske ikke via terminalserveren.

Jeg har lidt problemer med at den kommaseparere istedet for semikolonseparere (hvad de oprindeligt er). Det mener jeg, at jeg har noget kodning til at løse.

Hvordan slipper jeg for dialogboksen 'Vil du gemme ændringer' for hver fil?

Jeg kunne ikke lige løse problematikken om kommasepareret i forhold til semikolonsepareret. Ærgerligt.

Omkring komma kontra semikolonseparerede filer, har jeg ingen anelse. Desværre. Dialogboksen ser jeg lige på.

>Jkrons
Jeg synes, at du skal ligge et svar, som jeg kan honorere. Din løsning virkede jo. Men jeg var ikke klar over at semikolonsepareringen var et problem.

OK. Jeg ved, at CSV filer er forskellige, alt efter om de laves direkte i regnearket (semikolon) eller via VBA (komma), så måske er det også et problem, når de åbnes.

Jeg vender lige tilbage omkring dialogboksen.