Excel-Datenbank in CSV mit Anführungszeichen " als Trennzeichen per VBA exportieren, aber...

Um UTF zu erzeugen braucht es deutlich mehr.
Machen wir es mal einfach:
Datei \ Speichern unter \ und als Dateityp CSV UTF-8 auswählen \ Speichern



Damit bekommst Du eine UTF-8-BOM falls Dir das was sagt. Probier ob Dein Handy das einliest.
Wenn das nicht geht, dann kannst Du mein AddIn probieren:
https://www.dropbox.com/s/m7qdh5gs3wqb99r/CSV.xla?dl=1
Rechts-Klick auf den Tabellenreiter oder ausgewählte Zellen, das CSV-Menü ist unten im Kontextmenü. Stell in den Optionen UTF-8 ein und Du bekommst eine UTF-8 Datei.
So oder so, wenn Du generell "" um jede Zelle willst, dann musst Du das selber machen, z.B. via =""""&A1&"""" und dann diesen Bereich exportieren.
Mein AddIn unterstützt auch das Aufnehmen eines Makros, allerdings brauchst Du zum Ausführen dann auch mein AddIn. Unter Extras\Verweise einen Haken bei "AddIn_CSV" setzen.
Wenn Du willst kannst Du Dir auch die Code aus dem AddIn rauskopieren... ist kein Kopierschutz dran.
Andreas.

Sie können versuchen, den Code zu ändern, um anzugeben, dass die CSV-Datei in UTF-8-Codierung gespeichert werden soll. Dazu können Sie die folgende Codezeile verwenden, um die Datei zu öffnen:

Open sPath For Output As #1

Ersetzen Sie es durch dieses:

Open sPath For Output As #1, -2, "UTF-8"

Dadurch soll sichergestellt werden, dass die CSV-Datei in UTF-8-Kodierung gespeichert wird und Sonderzeichen korrekt exportiert werden.

Sie können auch versuchen, die Worksheet.CodePage-Eigenschaft auf 65001 (UTF-8) festzulegen, bevor Sie die Datei speichern. Dies kann mit der folgenden Codezeile erfolgen:

ActiveSheet.CodePage = 65001

Alternativ können Sie versuchen, das ADODB.Stream-Objekt zu verwenden, um die Datei in UTF-8-Codierung zu speichern. Dies ist mit folgendem Code möglich:

Dim stream As ADODB.Stream

Set stream = New ADODB.Stream

stream.Type = adTypeText

stream.Charset = "utf-8" stream.Open '

Write data to the stream here

stream.SaveToFile sPath, adSaveCreateOverWrite

stream.Close

Set stream = Nothing

Hallo,



die Option, Kontakte direkt in eine Excel-Datei zu exportieren, gibt es in Outlook 2013 nicht mehr. Dort gibt es nur noch die Möglichkeit in eine Outlook-Datendatei (.pst) oder in Durch Trennzeichen getrennte Werte (.csv) zu exportieren. Gehe bitte wie folgt
vor, um deine Kontakte in Excel zu übertragen:



1. Exportiere deine Kontakte in eine csv-Datei (Durch Trennzeichen getrennte Werte).

2. Öffne Excel.

3. Gehe auf das Register Daten.

4. Klicke im Menü auf Aus Text und öffne die zuvor von Outlook exportierte Datei.

5. Setze den Punkt bei getrennt und klicke auf Weiter.

6. Wähle als Trennzeichen Komma aus und wähle als Textqualifizierer das
Anführungszeichen.

7. Klicke auf Fertigstellen und dann auf OK.



Gruß,



Pauline

Hallo,



in Outlook 2010 hast du wahrscheinlich die Option Microsoft Excel 97-2003 für den Export deiner Kontakte ausgewählt. Diese Option gibt es in Outlook 2013 nicht mehr. Dort gibt es nur noch die Möglichkeit in eine Outlook-Datendatei (.pst) oder in Durch Trennzeichen
getrennte Werte (.csv) zu exportieren. Wenn du in Outlook 2010 die Option Kommagetrennte Werte (Windows) als Zielformat nimmst, hast du dort das gleiche Ergebnis. Um die Darstellung zu ändern gehe bitte wie folgt vor:



1. Exportiere deine Kontakte in eine csv-Datei (Durch Trennzeichen getrennte Werte).

2. Öffne Excel.

3. Gehe auf das Register Daten.

4. Klicke im Menü auf Aus Text und öffne die zuvor von Outlook exportierte Datei.

5. Setze den Punkt bei getrennt und klicke auf Weiter.

6. Wähle als Trennzeichen Komma aus und wähle als Textqualifizierer das
Anführungszeichen.

7. Klicke auf Fertigstellen und dann auf OK.



Gruß,



Pauline

Hallo Felix,

speichere deine Excel-Datei als CSV ab. Dann Outlook => Datei => Öffnen und Exportieren => Importieren/Exportieren => Aus anderen Programmen oder Dateien importieren => Durch Trennzeichen getrennte Werte.

Claus