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
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
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
Code:
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