Save as CSV
18.09.2005 15:52:22
Thommy
jetzt hätte ich noch eine Frage:
ich hab eine Datei mit ca. 100Tabellen,wo ich ein paar davon als CSV-Datei benötigen würde!
Wollt mir a ganz einfaches Makro dafür zusammenstricken, aber irgendwie klappts nicht ganz! U. zw. soll dieses Makro, die Tabelle als CSV abspeichern mit dem Tabellennamen. Wenn die Tabelle nun Tab1 heißt soll die csv-datei tab1.csv heißen, heißt die Tabelle Muster dann soll sie muster.csv heißen.
Klappt eigentlich alles soweit so gut! Aber: es wird mit einem , als Trennzeichen gespeichert ... ich bräuchte es aber mit ;
in der csv werden diese daten auch in einer zelle(spalte) zusammen ausgeworfen (z.b. max, muster, adresse). Es soll aber getrennt bleiben.
Mit muß ich das folgende Makro ändern, damit es abspeichert wie ich es gernen hätte?
Sub SaveCSV()
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, FileFormat:=xlCSV, _
CreateBackup:=False
End Sub
Bedanke mich schon im voraus!
lg Thommy