VBA Code ändern
bustue
wie kann man folgenden Code ändern, so daß ich im Code den Pfad fest vergebe jedoch den Dateinamen über die Abfrage eingeben kann.
Sub schreibenCSV()
f = FreeFile(0)
fname = InputBox("Bitte Pfad und Dateinamen der Zieldatei eingeben (z.B. c:\tmp\text.csv):", " _
Eingabe Pfad und Dateiname")
MsgBox "Der Name der Ausgabedatei lautet: " & fname
fseparator = InputBox("Bitte das Trennzeichen eingeben:", "Eingabe Trennzeichen")
MsgBox "Das gewählte Trennzeichen ist: " & fseparator
If fname False Then
Open fname For Output As #f
Set Rng = ActiveCell.CurrentRegion
Debug.Print Rng.Address
FCol = Rng.Columns(1).Column
LCol = Rng.Columns(Rng.Columns.Count).Column
Frow = Rng.Rows(1).Row
Lrow = Rng.Rows(Rng.Rows.Count).Row
For I = Frow To Lrow
outputLine = ""
For j = FCol To LCol
If j LCol Then
outputLine = outputLine & Cells(I, j) & fseparator
Else
outputLine = outputLine & Cells(I, j)
End If
Next j
Print #f, outputLine
Next I
Close #f
End If
MsgBox "Vorgang abgeschlossen!"
End Sub
Anzeige