Makro - Mit aktuellem File Namen speichern
13.12.2005 15:03:17
Alex
Ich habe ein Makro das mir eine Datei umwandelt und dann als csv speichert !
Das funktioniert auch aber ich möchte das Makro für mehr als eine einzige Datei benutzen und das Makro soll mir dann immer eine CSV Datei erstellen die den gleichen Namen hat wie die Excel Datei von der das CSV erzeugt wurde.
Natürlich hinten mit .csv
z.B.: Ursprungdatei: test.xls
Wenn ich das Makro ausführe soll es mir eine datei erzeugen die test.csv heißt !
Im Moment ist es leider so das das Makro immer den Namen der Datei benutzt mit der ich das Makro aufgezeichnet habe !
Hier der Code:
Sub Translate()
' Translate Makro
' Makro am 13.12.2005 von dan aufgezeichnet
' Tastenkombination: Strg+e
Cells.Replace What:="" & Chr(10) & "", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells.Select
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("H18").Select
ChDir "I:\Folder\Stücklisten"
ActiveWorkbook.SaveAs Filename:="I:\Folder\Stücklisten\PH531-1528.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Wär toll wenn mir jemand helfen könnte !
Wie kann ich das Makro in jeder beliebigen Datei benutzen und wie kann ich es auf eine Excel Schaltfläche in der Schaltfläche Zeile legen ?
Gruß -ALEX-