In mijn VBA script van alle bestanden moet een zoek-vervang gedaan worden maar om dit nou handmatig voor alle bestanden te doen is veel te veel werk en zou eigenlijk ook met een VBA scriptje kunnen.
Ik heb deze code al gevonden en werkend gekregen voor één bestand maar het lukt me niet om dit voor alle bestanden binnen één directory te doen.
Zo heb ik diverse xlsm bestanden in diverse submappen staan.
C:\Rapportages\Map1\
C:\Rapportages\Map2\
C:\Rapportages\Map3\
etc.
Alle xlsm bestanden moeten aangepast worden in map: C:\Rapportages\
Het gaat dus echt om de tekst in de vba, niet in het excel bestand zelf.
Ik heb deze code al gevonden en werkend gekregen voor één bestand maar het lukt me niet om dit voor alle bestanden binnen één directory te doen.
Zo heb ik diverse xlsm bestanden in diverse submappen staan.
C:\Rapportages\Map1\
C:\Rapportages\Map2\
C:\Rapportages\Map3\
etc.
Alle xlsm bestanden moeten aangepast worden in map: C:\Rapportages\
Het gaat dus echt om de tekst in de vba, niet in het excel bestand zelf.
Code:
Sub FindReplace_WB()
'Updateby Extendoffice
Dim ws As Worksheet
Dim xFind As String
Dim xRep As String
Application.ScreenUpdating = False
On Error Resume Next
xFind = "Private Declare"
xRep = "Private Declare PtrSafe"
' xFind = Application.InputBox("Find what", "Zoek", "", , , , , 2)
' xRep = Application.InputBox("Replace with", "Vervangen voor", "", , , , , 2)
If xFind = "" Then
MsgBox "wrong...", vbInformation, "Vervangen voor"
Exit Sub
End If
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Replace What:=xFind, Replacement:=xRep, LookAt:=xlWhole
Next ws
On Error GoTo 0
Application.ScreenUpdating = True
End Sub