title image


Smiley Re: Excel nach CSV konvertieren ?


>Habe Deinen u.g. Text als txt-Datei gespeichert und was nun ?

>Wo und wie muss es eingefügt werden ?

Du solltest es nicht als Textdatei speichern, sondern in deiner Tabelle in den VBA Editor kopieren!



Sub MappeAlsTextdateiSpeichern() ist nur der Name des Makros, könnte genauso Sub krabsch() heißen.



Da ich dachte du kennst dich ein wenig mit Excel aus, habe ich dir dieses kleine VBA Script empfohlen.



Sub MappeAlsTextdateiSpeichern() 'Dies ist der Name des Makros

Dim Daten As Range, Zeile As Object, Zelle As Object

Dim strTemp As String

Set Daten = ActiveSheet.UsedRange

Open "c:\test.csv" For Output As #1 'Pfad und Dateinamen anpassen

For Each Zeile In Daten.Rows

For Each Zelle In Zeile.Cells

strTemp = strTemp & CStr(Zelle.Text) & "," 'Trennzeichen der CSV ist Komma

Next

Print #1, strTemp

strTemp = ""

Next

Close #1

End Sub



Nun ganz langsam:

Öffne deine Tabelle->Drücke ALT +F11-> es öffnet sich der VBA Editor, hier klickst du doppelt auf "Tabelle1".

In das sich öffnende Fenster kopierst du den Code.



Nun drückst du F5 und das Programm nimmt seinen Lauf.

Anschließend findest du auf C: eine csv datei die test.csv heißt (hier im Beispiel)



Alles klar?

Benutze Excel 2000
Gruß aus Schleswig-Holstein




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: