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 ?



Sub MappeAlsTextdateiSpeichern() 'exportDim Daten As Range, Zeile As Object, Zelle As ObjectDim strTemp As StringSet Daten = ActiveSheet.UsedRangeOpen "c:\test.csv" For Output As #1For Each Zeile In Daten.RowsFor Each Zelle In Zeile.CellsstrTemp = strTemp & CStr(Zelle.Text) & ","NextPrint #1, strTempstrTemp = ""NextClose #1End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: