mariannevanh
Terugkerende gebruiker
- Lid geworden
- 14 dec 2004
- Berichten
- 2.085
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Dat is al van héél lang geledenJe kan een bestand van maximaal 100KB uploaden.
Wat ik al zei, doe het niet in Word maar in Excel.
Daarom schreef ik ook als toevoeging:Een .xlsx document bevat geen macro's dus dat schiet niet op.
(ja, HM20171023BRON.xlsm is nog steeds geopend, zodat de macro wordt gevonden)
Ik bedoel dat je een document zonder de macro hebt geplaatst.
Sub LeesBestand()
Dim bst As Long
Dim Bron As String
Dim Doel As String
bst = FreeFile
Open Environ("userprofile") & "\Desktop\tng-zv1.txt" For Input As #bst
On Error GoTo Einde
Application.ScreenUpdating = False
Do Until EOF(bst)
Line Input #bst, Bron
Line Input #bst, Doel
i = i + 2
Debug.Print i, Bron
Cells.Replace What:=Bron, _
Replacement:=Doel, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Loop
Einde:
Close #bst
Application.ScreenUpdating = True
End Sub
LookAt:=xlPart, _
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.