Excel -> CSV mit "

Forumthread: Excel -> CSV mit "

Excel -> CSV mit "

19.01.2006 10:35:42

Marc

Hallo erstmal ich bin neu hier und generell ein blutiger Anfänger, was Excel betrifft.
Mein Problem ist folgendes: Ich möchte eine Excel-Tabelle irgendwie über PHPmyAdmin in eine mysql-Datenbank bringen.
Bisher ging ich immer den Umweg über Open Office, da Excel beim speichern als csv-Datei keine Anführungszeichen um die einzelnen Felder gesetzt hat.
Nun habe ich aber gemerkt, dass Openoffice wiederum nicht mit der Formel-Syntax von Excel klarkommt.
Deswegen ist jetzt meine Frage, ob es machbar ist, dass Excel eine Tabelle als CSV-Datei speichert mit ; als Trennzeichen und " am Anfang und Ende eines jeden Feldes?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel -> CSV mit "

19.01.2006 15:17:42

u_
AW: Excel -> CSV mit "

19.01.2006 18:17:58

Marc
AW: Excel -> CSV mit "

19.01.2006 23:21:48

Uduuh
AW: Excel -> CSV mit "

20.01.2006 11:13:29

Marc

AW: Excel -> CSV mit "

19.01.2006 15:17:42

Hallo,
in ein Modul:
Public


Sub prcCreateCSV()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim strText As String
Dim i As Integer
Const strPre As String = """"
Reset
intFileNumber = FreeFile
With ThisWorkbook
.Save
Open .Path & "\" & Left$(.Name, Len(.Name) - 4) & _
".csv" For Output As #intFileNumber
End With
With ActiveSheet.UsedRange
For lngRow = 1 To .Row + .Rows.Count - 1
vntArray = Range(Cells(lngRow, 1), _
Cells(lngRow, .Column + .Columns.Count - 1))
For i = 1 To UBound(vntArray, 2)
vntArray(1, i) = strPre & vntArray(1, i) & strPre
Next i
vntArray = WorksheetFunction.Transpose( _
WorksheetFunction.Transpose(vntArray))
strText = Join(vntArray, ";")
Print #intFileNumber, strText
Next
End With
Close #intFileNumber
End Sub

Gruß
Geist ist geil!

AW: Excel -> CSV mit "

19.01.2006 18:17:58

Marc

Entschuldigung die Frage - aber was mache ich damit?

AW: Excel -> CSV mit "

19.01.2006 23:21:48

Uduuh

Hallo,
du kopierst dir den Code und gehst in die Mappe, die du exportieren willst.dann drückst du Alt+F11. Im Linken Fenster siehst du deinen Mappennamen. Rechtsklick darauf und einfügen-Modul wählen. in das rechte Fenster den Code kopieren (strg+v). Jetzt das Blatt mit deinen Daten anwählen und extras-makro-Makros anwählen. Doppelklick auf prcCreatecsv. Anschließend findest du im gleichen Ordner wie deine Mappe eine Datei namens DeinMappenname.csv. Deine Mappe muss natürlich gespeichert sein.
Gruß ausm Pott
Udo

AW: Excel -> CSV mit "

20.01.2006 11:13:29

Marc

Klasse - herzlichen Dank. Das ging ja super schnell, nicht wie in anderen Foren, wo erstmal gefragt wird, warum man etwas so und nicht so macht...

Forumthread: Excel -> CSV mit "

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread