Moin moin,



dazu könntest Du schreiben:



'Entscheide Dich:

'Bei direkt angegebenem Pfad:

varCSVPfad = "C:\test.csv"



'oder Frage:

varCSVPfad = Application.GetSaveAsFilename("Mein Dateiname", "CSV-Dateien (*.csv), *.csv", , "Speicherort wählen")



If varCSVPfad False Then

Open varCSVPfad For Output As #1

Print #1, strText

Close #1

End If



Ggf. müsste noch eine Sicherheitsabfrage rein, ob eine bereits bestehende Datei überschrieben werden soll. In diesem Beispiel ist es automatisch der Fall.



Viele Grüße



Jörg


geschrieben von Joerg Lorenz , 13.04.2006, 06:28 Uhr , 21 mal gelesen