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
, 20 mal gelesen