cel aanpassen met macro

[eisjuuh]

Heren,

Ik ben nieuw met programmeren in VBA, ik heb in het verleden tijdens mijn studie wel eens gestoeid met VB. ik zal mijn situatie en probleem kort proberen uit te leggen.

Elke dag komen er bij mij via de mail 2 .csv files binnen. hierin staat meetdata. automatisch wordt er door Geplande taken in combinatie met een bijlage zoeker de bijlage van de mail lokaal in een map gezet.

Nu moet er in allebij de file's het hokje "E1" de waarde "abc" krijgen.

ik heb uit andere topics al het een en ander gevonden. daaruit heb ik de volgende code opgesteld

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:\TestResults"
            .FileType = msoFileTypeExcelWorkbooks
            'Optional filter with wildcard
            '.Filename = "Book*.xls"
                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)
                            
                            Range("E1").Select
                            Selection.ClearContents
                            ActiveCell.FormulaR1C1 = "abc"
                            Range("E2").Select

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

Deze opent als ik het goed snap alle bestanden in de gesellecteerde map en voert dan mijn stukje code uit in alle bestanden.

helaas zie ik dit niet terug in mijn bestanden.

Kan iemand mij helpen?

Gr.

Eisjuuh

 

[Warme bakkertje]

Sub Open_All_Files()
Dim sPath As String, sFil As String
sPath = "C:\TestResults\"
sFil = Dir(sPath & "*.xls")
Do While sFil <> ""
    Workbooks.Open sPath & sFil
    Sheets(1).Range("E1") = "abc"
    Workbooks(sFil).Close True
    sFil = Dir
Loop
End Sub