Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CSV dateien lesen und schreiben

CSV dateien lesen und schreiben
17.08.2004 08:30:52
Tobias
Summa sind es 3 frage:
1. Wie kann ich CSV Dateien lesen?
2. schreiben?
3. wie bekommen ich eine Position aus dem zahlen und ";" Haufen?
Eigentlich würde sich das problem recht schnell lösen, makroaufzeichner an und los gehts. Aber ich habe festgestellt das das tool dann nicht auf allen versionen läuft und wollte deswegen nur mit dem VBA und einer oder mehrerer Textdateien arbeiten ohne das Excel?
Die meisten Forumseinträge die CSV angehen (die ich gefunden habe) beschränken sich auf CSV, VBA und Excel aber nicht nur VBA und CSV.
Weiß einer Rat?
mfg
Tobias

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CSV dateien lesen und schreiben
ChrisL
Hi Tobias
CSV Dateien sind ganz gewöhnliche Text-Dateien. Wie man eine solche liest bzw. schreibt gibt es viele Beispiele in der Recherche.
Nachstehende Funktion funktioniert halbwegs d.h. scheitert bei der letzten Spalte, könnte man aber auch noch korrigieren (muss jetzt leider weg, also melden, sofern Bedarf)...

Function CSVSpezial(Datei As String, Zeile As Long, Spalte As Integer) As Variant
Dim iZeile As Long, iSpalte As Integer
Dim Text As String
Application.Volatile
iZeile = 0
Close #1
Open Datei For Input As #1
Do While Not EOF(1)
iZeile = iZeile + 1
Line Input #1, Text
If iZeile = Zeile Then
If Spalte <> 1 Then
iSpalte = 1
Do Until Spalte = iSpalte
iSpalte = iSpalte + 1
If InStr(Text, ";") = 0 Then Exit Do
Text = Right(Text, Len(Text) - InStr(Text, ";"))
Loop
End If
Text = Left(Text, InStr(Text, ";") - 1)
CSVSpezial = Text
Close #1
Exit Function
End If
Loop
Close #1
End Function

In eine Zelle gibts du ein
=CSVSpezial(Datei;Zeilennummer,Spaltennummer)
also z.B.
=csvspezial("C:\Test\test.csv";1;1)
Gruss
Chris
Anzeige
AW: CSV dateien lesen und schreiben
Tobias
Danke chriss,
werd diesen Ansatz mal versuchen zu implementieren.
gruß
Tobias
AW: CSV dateien lesen und schreiben
ChrisL
Hi Tobias
Hab schon bald an mir selber gezweifelt, aber so müsste es gehen...

Function CSVSpezial(Datei As String, Zeile As Long, Spalte As Integer) As Variant
Dim iZeile As Long, iSpalte As Integer, AnzahlSpalten As Integer
Dim Text As String
Application.Volatile
Close #1
Open Datei For Input As #1
Do While Not EOF(1)
iZeile = iZeile + 1
Line Input #1, Text
If iZeile = Zeile Then
AnzahlSpalten = Len(Text) - Len(WorksheetFunction.Substitute(Text, ";", "")) + 1
If AnzahlSpalten < Spalte Then
CSVSpezial = "Spalte nicht vorhanden"
Close #1
Exit Function
End If
If Spalte <> 1 Then
For iSpalte = 2 To Spalte
Text = Right(Text, Len(Text) - InStr(Text, ";"))
Next iSpalte
End If
If InStr(Text, ";") <> 0 Then Text = Left(Text, InStr(Text, ";") - 1)
CSVSpezial = Text
Close #1
Exit Function
End If
Loop
CSVSpezial = "Zeile nicht vorhanden"
Close #1
End Function

Gruss
Chris
Anzeige

300 Forumthreads zu ähnlichen Themen

VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Anzeige
Wert aus csv datei auslesen
Stefan

Hallo,
ich habe eine csv Datei. Die erste Spalte ist die ARTIKEL-ID, welche einen Artikel eindeutig festlegt. Spalte zwei ist der Preis für selbigen.
In einer anderen Datei sind diese Artikel teilweise mehrfach angelgt als z.b. ARTIKEL-ID 12345-a1 und 12345-b1. Jedoch müssen diesen Arti...
05.10.2009 15:01:08
Thread-ID: 1107230
22 Beiträge
csv Datei auslesen
René

Hallo liebe Excelprofis, ich habe ein rießiges Problem. In einer csy werden mit einem Barcodescanner Daten eingeschrieben. Diese übertrage ich dann über Activesync in den Windows Ordner MyDocuments und danach in einen öffentlich Netzwerkordner. Das klappt so weit auch super. Nun ist es aber so...
20.01.2010 22:33:06
Thread-ID: 1131532
6 Beiträge
Anzeige
VBA Probelm bei Datei einlesen und kopieren
Roland

Moin,
ich ahbe mal wieder ein VBA Problem.
Ich möchte eine Datei öffnen, die Daten daraus in eine andere Datei(Tabellenblatt) kopieren.
Jetzt meldet Excel mir:
Laufzeitfelher '1004': Für diese Aktion müssen alle verbundene Zellen dieselbe Grö0ße haben.
War eigentlich der Mei...
02.02.2010 10:57:34
Thread-ID: 1134995
2 Beiträge
csv - Datei einlesen
Karen

Hallo Forum,
ich möchte gerne in eine Excel Datei Daten per VBA Copy & Paste aus einer *csv Datei einlesen. Leider wandelt er die Zahlen in einen geschriebenen Test um.
Hat jemand einen Tip für mich, wie die Zahlen korrekt eingelesen werden?
Grüße
Karen
23.03.2010 09:02:24
Thread-ID: 1147748
6 Beiträge
CSV-Dateien mit VBA einlesen
Stefan741

Hallo VBA-Freunde,
gestern habe ich fast den ganzen Tag gesucht und ausprobiert, aber keine Lösung für meine Problemstellung gefunden (bzw. war ich nicht in der Lage, eine vorhandene Lösung umzubauen, dass sie lief):
In einem Verzeichnis stehen viele CSV-Dateien. Die Daten sind mit Komm...
24.03.2010 08:00:54
Thread-ID: 1148031
2 Beiträge
CSV-Dateien mit VBA einlesen
Stefan741

Hallo VBA-Freunde,
gestern habe ich fast den ganzen Tag gesucht und ausprobiert, aber keine Lösung für meine Problemstellung gefunden (bzw. war ich nicht in der Lage, eine vorhandene Lösung umzubauen, dass sie lief):
In einem Verzeichnis stehen viele CSV-Dateien. Die Daten sind mit Komm...
24.03.2010 08:02:11
Thread-ID: 1148032
8 Beiträge
CSV-Dateien einlesen
KLE

Hallo,
...ich habe ca. 200 csv-Dateien erhalten mit Daten, welche in 3-5 Spalten aufgebaut sind, welche nur mit einem KOMMA getrennt sind. Sie liegen alle in einem Verzeichnis.
Ich versuche nun schon seit gestern diese per Marko alle einzulesen, aber irgendwie klappt es nicht. Kann mir...
27.09.2010 12:02:20
Thread-ID: 1179536
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
21
5
4
1
5
1
7
3
3
2
2
7
1
8
19
4
3
8
4
20
9
1
3