Macro til automatisk excel filer til values

Se: http://www.eksperten.dk/spm/807010

Tak for svar,
Som jeg skrev til det andet indlæg, vil jeg gerne, hvis macroen kan lave alle filer en en given mappe om til values.

Mvh.
Mfynbo

Hej Mfynbo

Ja - det skulle ikke være et større problem at lægge et niveau mere ind (windows mappe)

Er der også tale om flere ark pr. projektmappe - do. det henviste eksempel?

Mvh
Supertekst

Det lyder godt.
Ja, der er flere ark pr. projektmappe (workbook) og det kan svinge.

Kode indsættes separat xlsm-fil / Thisworkbook

Const mappeNavn = "C:\Users\peter\Desktop\Eksp.MFynbo\testMappe\" <--justeres
Public Sub konverterFormler()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(mappeNavn)
    Set fc = f.Files
    For Each f1 In fc
        filnavn = LCase(f1.Name)
           
        Workbooks.Open Filename:=mappeNavn & filnavn
        With ActiveWorkbook
            behandLingAfFilArk
            .Save
            .Close
        End With
    Next

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
   
    MsgBox "konvertering udført"
End Sub
Private Sub behandLingAfFilArk()
    For Each sh In ActiveWorkbook.Sheets
        formelTilVærdi sh.Name
    Next sh
End Sub
Sub formelTilVærdi(ark)
    ActiveWorkbook.Sheets(ark).Activate
   
    ar = ActiveCell.Cells(xlLastCell).Row
    ak = ActiveCell.Cells(xlLastCell).Column
   
    Set r = Range(Cells(1, 1), Cells(ar, ak))
        For Each cc In r.Cells
            If cc.HasFormula = True Then
                værdi = cc.Value
                cc.Clear
                cc.Value = værdi
            End If
    Next
End Sub