werkblad opslaan als .txt file

[Jelle2010]

Beste experts,

Weten jullie hoe ik met een macro, De waarde van 1 werkblad in een excel bestand, kan opslaan als een .txt file?

Alvast vriendelijk bedankt!

Jelle

 

[ReneDirks]

Sub SaveSheetAs
    ThisWorkbook.SaveAs Filename:= "sheet.txt", xlTextMSDOS, False
End Sub

 

[snb]

Ik denk dat je dit bedoelt:

Sub txtblad()
  Activesheet.copy
  With activeworkbook
    .saveas "C:\voorbeeld.txt",21
    .close False
  End with
End Sub

 

[Jelle2010]

Beste Experts,

Ik ga het vanavond uitproberen! Super bedankt voor jullie hulp!!

Groeten,

Jelle

 

[Jelle2010]

Beste experts,

Beide oplossingen zijn geweldig. Maar toch wilde ik inderdaad maar 1 werkblad opslaan als .txt. Mijn oplossing zat dus in de oplossing van SNB. Toch i.i.g. super bedankt!!!!!
Groeten,

Jelle