VBA: indsætte celleindhold i 50 andre filer

Ville nok anvende FileSystemObject og så traversere gennem mappen og åbne den enkelte fil - opdatere og gemme.

Forslag:

Dim sti As String, filnavn As String
Dim sysXLS As Workbook, sysNavn As String, a1Værdi

Dim divXLS As Workbook
Public Sub tilsætUgedag()
    sti = ActiveWorkbook.Path
    Set sysXLS = ActiveWorkbook
    sysNavn = sysXLS.Name
    a1Værdi = Range("A1")
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(sti)
    Set fc = f.Files
   
Rem traverser den aktuelle mappe - find filer med extension .dat
    For Each f1 In fc
        filnavn = f1.Name
       
        If filnavn <> sysNavn Then
            Workbooks.Open sti & "\" & filnavn
            Set divXLS = ActiveWorkbook
            With divXLS
                .Sheets(1).Range("A1") = a1Værdi
               
                .Application.DisplayAlerts = False
                .Save
                .Close
            End With
            Set divXLS = Nothing
        End If
    Next
   
    MsgBox "Gennemløb afsluttet"
End Sub

Hej

Ja, det er også en måde at gøre det på.
Makroen virker en del af vejen. Dog når den ikke til den afsluttende MsgBox, da det virker som om a den bliver ved med at traversere og ender med følgende fejlmelding:

Run-time error '1004':
Application-defined or object-defined error

Kan du hjælpe med tilretning? Så tror jeg vi er i mål.

Hej

Har afprøvet det en række filer uden problem.

Kommer der en Debug-knap frem - så prøv at trykke på den og se hvor den gule markering er.

Prøv evt. samtidigt at se hvilket filnavn, der er aktuel. Det kan du gøre ved at pege på den variabel, der hedder "filnavn".

I givet fald kan du prøve med mine filer - send en mail og jeg sender dem retur. Du er også velkommen til at sende dine.

@-adresse under min profil.

Hej

Der kommer ingen Debug-knap frem. Når jeg kører makroen igennem med F8 så kan se at de andre filer i mappen bliver åbnet og værdie bliver indsat, når masterfil kommer bliver den lukket. Men når makroen kommer til den åbne ~$masterfil, så kommer fejlen.

justering:       
If filnavn <> sysNavn And InStr(filnavn, "~") = 0 Then

Sådan så virker det. Læg venligst et svar.
Tak for løsningen.

Fint og selv tak