csv-Datei und Zeilenumbrüche
Martin Nadoll
Hallo,
Ich habe 2 Probleme:
1. ich möchte meine Daten als csv-Datei speichern und dann mittels eines
Scriptes in eine MySQL-Datenbank einlesen.
Mein Problem dabei ist, dass es in der Excel-Tabelle eine Spalte
"Beschreibung" gibt, in der ein Text eingefügt wurde, der auch
Zeilenumbrüche beinhaltet.
Die Tabelle hat ca. 7000 Datensätze mit je Beschreibung zwischen 2 und 30
Zeilenumbrüchen.
Die kann man nicht mit der Hand entfernen.
Wenn ich so exportiere, fangen an diesen Zeilenumbrüchen neue Zeilen in
meiner csv-Datei an und es wird somit nicht mehr korrekt in die Datenbank
eingelesen.
Kann man Excel veranlassen, diese Zeilenumbrüche wegzulassen, so dass pro
Datensatz eine Zeile in der csv-Datei steht?
2. Problem
Ich muss in einer Spalte dieser Tabelle viele Werte ändern, und das
wahrscheinlich einmal pro Woche.
Kann man diesen Vorgang irgendwie automatisieren, z.B.:
Ersetze alle Werte "A 123" durch "22" und alle Werte "A 452" durch "1013"
und so weiter. Es sind ca. 60 verschiedene Werte vorhanden.
Gibt es die Möglichkeit, ein Macro zu erstellen, durch das meine Tabelle
jedesmal entsprechend solcher Vorgaben angepasst wird?
Vielen Dank für jede Hilfe,
Martin Nadoll
Eckard Schwarz
Zu 1)
ActiveSheet.Cells.Replace What:=Chr(10), Replacement:=" ",
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Dieser Makrobefehl entfernt alle Umbrüche. Achtung: Die Umbrüche sind danach
weg, also nicht als Excel-Tabelle speichern, wenn Du die Umbrüche später
noch haben willst, sondern nur als die csv-Datei.
Zu 2)
Sub Makro3()
Dim k(60, 2)
k(1, 1) = "A 123"
k(1, 2) = "22"
k(2, 1) = "A 452"
k(2, 2) = "1013"
'...
For n = 1 To 2 'hier die 2 durch 60 ersetzen
ActiveSheet.Cells.Replace What:=k(n, 1), Replacement:=k(n, 2),
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Next
End Sub
--
mfg
Eckard Schwarz
"Martin Nadoll" <mar...@nadoll.de> schrieb im Newsbeitrag
news:b1vmsd$k9c$04$1...@news.t-online.com...