Office: CSV importieren mehrere Trennzeichen

slowboarder · 13. Oktober 2014

jo, das Space spielt schon eine Rolle.
Da Space aber ein Trennzeichen sein sollte, muss der wert True sein.

DennjoOyola · 13. Oktober 2014

Die Grundlegende Frage ist ja bereits gelöst, jedoch stellt sich mir jetzt die Frage, ob man bei der CSV Datei die importiert wird noch filtern kann, dass er bestimmte zeilen in denen "null" steht rausfiltert.

Da er ja die in einem neuen Arbeitsmappe erstmal importiert und dann kopiert, müsste es doch rein theoretisch machbar sein, dies dort noch unter zu bringen oder?

slowboarder · 13. Oktober 2014

Hi
vor dem Kopieren noch den Autofilter anwenden.
in gefilterten Tabellen werden nur die sichtbaren kopiert.
Gruß Daniel

DennjoOyola · 14. Oktober 2014

Danke erstmal für den Tipp. Habe jetzt bissl rumprobiert, aber so richtig bekomm ich es nicht hin. Also eigentlich gar nicht *frown.gif*

Versucht habe ich es so:

Code:

With Workbooks.Open(Filename:=strFileName).Worksheets(1)
.Range("A").AutoFilter Field:=1, Criteria1:"null"
.UsedRange.Copy oWs.Cells(lngLast, 2)
.Parent.Close False
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 14. Oktober 2014

Als Variante: CSV wird als Datenbanktabelle gelesen. Damit können gleich gefilterte Daten übernommen werden:
Code:

Option Explicit

Sub Import_CSV()

' Schema.ini muss im Verzeichnis der CSV liegen
' Verweis auf Microsoft Office xx.0 Access Database Engine Object Library setzen

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Long

Set db = OpenDatabase(ThisWorkbook.Path & "\", False, _
False, "TEXT;Database=" & ThisWorkbook.Path & "\Traffic.csv")

Set rs = db.OpenRecordset( _
"SELECT [date], [FWC (kb/s)], [RTC (kb/s)]" & _
" FROM Traffic.csv WHERE [FWC (kb/s)] Is Not Null", _
dbOpenForwardOnly)

With Worksheets("Zieltabelle")
.UsedRange.Clear

' Titelliste
For i = 0 To rs.Fields.Count - 1
.Cells(1, i + 1).Value = rs.Fields(i).Name
Next
' Visualisieren: Kopieren des Ergebnisses an Zieladresse
.Cells(2, 1).CopyFromRecordset rs

End With

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DennjoOyola · 12. Januar 2021

von ebs17

Als Variante: CSV wird als Datenbanktabelle gelesen. Damit können gleich gefilterte daten übernommen werden:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Sub Import_CSV()

' Schema.ini muss im Verzeichnis der CSV liegen
' Verweis auf Microsoft Office xx.0 Access Database Engine Object Library setzen

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Long

Set db = OpenDatabase(ThisWorkbook.Path & "\", False, _
False, "TEXT;Database=" & ThisWorkbook.Path & "\Traffic.csv")

Set rs = db.OpenRecordset( _
"SELECT [date], [FWC (kb/s)], [RTC (kb/s)]" & _
" FROM Traffic.csv WHERE [FWC (kb/s)] Is Not Null", _
dbOpenForwardOnly)

With Worksheets("Zieltabelle")
.UsedRange.Clear

' Titelliste
For i = 0 To rs.Fields.Count - 1
.Cells(1, i + 1).Value = rs.Fields(i).Name
Next
' Visualisieren: Kopieren des Ergebnisses an Zieladresse
.Cells(2, 1).CopyFromRecordset rs

End With

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hmm mir war nicht bewusst, dass sowas möglich ist. Sehe ich es hier richtig, dass die CSV wie eine SQL Datenbank behandelt wird? Das wäre natürlich für mich eine massive erleichterung, da ich mich mit SQL auskenne.

Uwe Küstner · 14. Oktober 2014

Hallo,

teste mal so:

Code:

Sub Schaltfläche1_KlickenSieAuf()
Dim lngLast As Long
Dim oWs As Worksheet
Dim strFileName As String

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Datei wählen"
.InitialFileName = "C:\Users\derneke\Desktop\*.csv" 'Pfad anpassen
If .Show = -1 Then
strFileName = .SelectedItems(1)
End If
End With
If strFileName "" Then
Application.ScreenUpdating = False
Set oWs = ActiveSheet
With oWs
lngLast = .Cells(Rows.Count, 1).End(xlUp).Row + 1
lngLast = Application.Max(lngLast, 2)
End With
With Workbooks.Open(Filename:=strFileName).Worksheets(1)
.Rows(1).Insert
.Cells(1, 1).Value = "Überschrift"
.Cells(1, 1).AutoFilter Field:=1, Criteria1:="=*;null;null"
.Columns(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.UsedRange
.UsedRange.Copy oWs.Cells(lngLast, 1)
.Parent.Close False
End With
With oWs
With .Range(.Cells(lngLast, 1), .Cells(Rows.Count, 1).End(xlUp))
.TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 5), Array(2, 1), Array(3, 1), Array(4, 1)), DecimalSeparator:="."
End With
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DennjoOyola · 14. Oktober 2014

Erneut großes Danke für die ganze Hilfe. Jetzt muss ich mir erstmal raussuchen, was am besten für meine Zwecke passt und dann fang ich mal an zu basteln. Die Datenbankvariante finde ich jetzt gerade sehr verlockend, aber da müsste ich noch ein zwei Sachen an meine Bedürfnisse anpassen.

ebs17 · 14. Oktober 2014

Sehe ich es hier richtig, dass die CSV wie eine SQL Datenbank behandelt wird?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Genau so ist es. Eine Standard-CSV ist als (Datenbank)Tabelle lesbar. Die beigefügte Schema.ini, die im gleichen Verzeichnis wie die Textdatei liegen muss, enthält die Vorgaben über Spaltentrenner, Dezimalzeichen, Datentypen der Felder u.a. Sie wird vorrangig zu Einstellungen in der Windows-Registry ausgewertet.

noch ein zwei Sachen an meine Bedürfnisse anpassen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das wären welche?

Ich hatte hier auch explizit DAO für die Verbindung gewählt, weil man da mehrere Datenbanken gleichzeitig verbinden und deren Tabellen in Abfragen zusammenführen kann.

slowboarder · 12. Januar 2021

von DennjoOyola

Danke erstmal für den Tipp. Habe jetzt bissl rumprobiert, aber so richtig bekomm ich es nicht hin. Also eigentlich gar nicht *frown.gif*

Versucht habe ich es so:

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

With Workbooks.Open(Filename:=strFileName).Worksheets(1)
.Range("A").AutoFilter Field:=1, Criteria1:"null"
.UsedRange.Copy oWs.Cells(lngLast, 2)
.Parent.Close False
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hi

die erste Fehler der so auffallen:
Range("A") ist keine gültige Zelladdresse.
Wenn du den Autofilter in der ersten Spalte des genutzen Bereichs setzen willst, dann:
.UsedRange.Columns(1).Autofilter
oder wenn du den Autofilter auf die ganze Spalte sezten willst:
.Range("A:A").Autofilter

zweiter Fehler:
beim Kriterium gehören die Vergleichzeichen (=) in den Text hinein:
falsch ist: Criteria1:="null"
richtig ist: Criteria1:="null"

Gruß Daniel

Office: CSV importieren mehrere Trennzeichen

CSV importieren mehrere Trennzeichen

CSV importieren mehrere Trennzeichen

CSV importieren mehrere Trennzeichen

CSV importieren mehrere Trennzeichen

CSV importieren mehrere Trennzeichen - Similar Threads - CSV importieren Trennzeichen

CSV Dateien mit unterschiedlichen Format importieren und zusammenführen

CSV Datei lässt sich nicht importieren

Erstellen oder Bearbeiten von CSV-Dateien zum Importieren in Outlook

Importieren oder Exportieren von Textdateien (TXT oder CSV)

Importieren von Daten aus einer CSV-, HTML- oder Textdatei

*.csv aus Ordner automatisiert in vorhandene Acces-Tabelle importieren

alle csv Dateien in eine lokale Tablle im Access importieren