Txt bestand maken door gebruik van macro

[edmoor]

Toch nog iets aangepast:

Sub BewaarAlsTekst()
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs _
        Filename:="C:\Helpmij\Trientje\macrotestje.txt", _
        FileFormat:=xlText, _
        CreateBackup:=False, _
        local:=True
    Application.DisplayAlerts = True
    ThisWorkbook.Close savechanges:=False
End Sub

 

[Trientje]

hey edmoor,

nu wordt mijn hoofdbestand (van waaruit ik kopieer ) gesloten ipv het tekstbestand. deze blijft open.
en het is net de bedoeling dat .txt sluit en de .xlsm op blijft

 

[Trientje]

Hallo edmoor,
Ik heb het gevonden! Ik heb het gezegd... Een pitbull

ActiveWorkbook.Close False

Sluit het bestand zonder opslaan van wijzigingen, zonder een dialoogvenster te tonen.

Groetjes

 

[edmoor]

Ok dan :thumb: