Hallo
Hier ist eine Lösung
Beim Importieren mit Excel [Daten] [aus Text] [UTF8] bleibt die Formatierung der Spalten erhalten
Libre Office guter Import csv
herzlich
Code:
; ###################### Code-Formatierungsfelder für CSV-Dateien - by Kernadec ######
; ###################### Im Excel-Menü importieren [Daten] [Textdatei] [UTF] etc .. ##########
#col1 = 12
#col2 = 5
#col3 = 8
#col4 = 2
#col5 = 10
Dim a$(10)
Dim c$(10)
a$(1) = "Birne" : c$(1) = "3,00"
a$(2) = "Apfel" : c$(2) = "2,60"
a$(3) = "Mandarine" : c$(3) = "2,90"
a$(4) = "Kiwi" : c$(4) = "5,00"
a$(5) = "Traube" : c$(5) = "6,00"
a$(6) = "Pommelos" : c$(6) = "3,00"
b$ = "Preis"
d$ = "E"
e$ = "das Kilo"
Path$ = GetCurrentDirectory()
File$ = "Datei csv mit vorformatierten Spalten.csv"
ClearClipboard()
If CreateFile(0, Path$ + File$,#PB_Unicode)
For i = 1 To 6
text$ = a$(i) + Space(#col1 - Len(a$(i))) + "," + b$ + Space(#col2 - Len(b$)) + "," + Space(#col3 - Len(c$(i))) + c$(i) + "," + d$ + Space(#col4 - Len(d$)) + "," + e$ + Space(#col5 - Len(e$))
WriteStringN(0,text$, #PB_Unicode)
SetClipboardText(GetClipboardText() + text$ + Chr(13)) ; Kopieren Sie Felder in die Zwischenablage
Next i
CloseFile(0)
Else
MessageRequester("Information "," Unbekannte Datei? ")
EndIf
End
Zitat:
Änderung der Windows-Registrierung
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Options]
Klicken Sie mit der rechten Maustaste auf die rechte Seite und gehen Sie zu Neu> DWORD
Benennen Sie das Element DefaultCPG und speichern Sie es
Klicken Sie mit der rechten Maustaste auf DefaultCPG und wählen Sie Ändern
Setzen Sie die Basis auf Dezimal
Geben Sie den Code ein, der im Excel-Assistenten angezeigt wird (für UTF-8 ist es 65001).
OK klicken.
Modus jetzt: ANSI Windows standardmäßig
Kompatibler Text Durch Excel CSV begrenzte Spalten
FAQ
Suche
Registrieren
Anmelden
