csv-Datei in vorhandene Exceldatei einlesen

[Glausius]

Hallo Ihr Lieben allle,

da habt ihr  mir ja Einiges zum Überlegen und Testen aufgegeben - vielen Dank für eure Mühe - ist ist eben gut, ein Forum hinter sich zu wissen!

[Glausius]

Hallo,

nach dem Testen mit verschiedenen Dateien und Größen abe ich mich für den Code von Uwe entschieden - funktioniert soweit einwandfrei, nur kann ich noch nicht damit weiterarbeiten.
Alle Elemente der csv-Datei werden als Text eingelesen, die erste Spalte benötigte ich aber als Datum formatiert. Autonomes Öffnen in Excel behält das Format bei, beim Öffnen mittels VBA-Code wandelt dieser jedoch in Text um, kann man das noch ändern und wo im Code?
Bin für eure Hilfe dankbar!

Ich habe den Code erweitert

Code:

For j = 0 To UBound(arHilf)
    If IsDate(arHilf(j)) Then
       arData(i, j) = CDate(arHilf(j))
    ElseIf IsNumeric(arHilf(j)) Then
       arData(i, j) = CDbl(arHilf(j))
    Else
       arData(i, j) = arHilf(j)
    End If
Next

und bekomme nun den Laufzeitfehler 1004 in der Zeile
.Range("A1").Resize(UBound(arData, 1) + 1, UBound(arData, 2) + 1) = arData
"Anwendungs- oder objektdefinierter Fehler".

Code:

Sub CSV_Datei_einlesen()
    Set fdDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fdDialog
        .Filters.Add "CSV-Dateien", "*.CSV", 1
        .Title = "Bitte Datei auswählen"
        .AllowMultiSelect = False
        If .Show = -1 Then
            strDatei = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    Set objTextFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strDatei, 1, False)
    strInhalt = objTextFile.ReadAll
    objTextFile.Close
    varErgebnis = Split(strInhalt, vbCrLf)
    ReDim arData(0 To UBound(varErgebnis), 0 To UBound(Split(varErgebnis(0), ";")))
    For i = 0 To UBound(varErgebnis)
        arHilf = Split(varErgebnis(i), ";")
        For j = 0 To UBound(arHilf)
           If IsDate(arHilf(j)) Then
                arData(i, j) = CDate(arHilf(j))
            ElseIf IsNumeric(arHilf(j)) Then
                arData(i, j) = CDbl(arHilf(j))
            Else
                arData(i, j) = arHilf(j)
            End If
        Next
    Next
    With Sheets("Konvert")
        .UsedRange = ""
        .Range("A1").Resize(UBound(arData, 1) + 1, UBound(arData, 2) + 1) = arData
    End With
End Sub

[Kuwer]

Hallo Günter,

bei mir läuft das mit beiden CSV´s durch.    :s

Gruß Uwe

[Glausius]

Hallo Uwe,

die erste Datei läuft bei mir auch ordentlich durch, nur bei der zweiten "Kontoauszuege..." gibt es das Problem und dort wird auch aus dem Haben-Betrag ein Datum gemacht, obwohl die Original-csv-Datei dort Standard-formatiert ist.

Kann es sein, dass es an der csv-Datei liegt? Ich habe diese um weitere Datensätze aus der Originaldatei erweitert, vielleicht kannst du es bitte auch einmal mit dieser bei dir ausprobieren?

[Glausius]

Hallo Uwe,

ich konnte den Fehler eingrenzen:

1. Die Zellinhalte der Spalte "Haben" werden in ein Datum umgewandelt
2. Bis zur Zeile 12 wird der Betrag 42,5 in das Datum 01.05.1942 gewandelt
3. In der Zeile 12 ist der Habenbetrag 127,5 und den kann Excel nicht in ein Datum umwandeln, deshalb der Abbruch.

ABER, wieso wird der Standardwert in der Spalte "Haben" überhaupt in ein Datum umgewandelt? Mit der Datei "csv..." passiert das doch auch nicht, nur mit der Datei "Kontoauszuege..."?

Rätselhaft, rätselhaft...

Meine Codeerweiterung war doch syntaktisch und logisch richtig?!

[snb]

Code:

Sub M_snb()
  With Application.FileDialog(3)
    .Filters.Add "CSV-Dateien", "*.CSV"
    .Title = "Bitte Datei auswählen"
    If .Show = -1 Then c00 = CreateObject("Scripting.FileSystemObject").OpenTextFile(.SelectedItems(1)).readall
  End With
  
  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .SetText Replace(c00, ";", vbTab)
    .PutInClipboard
  End With

  Application.Goto Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1)
  Sheet1.PasteSpecial "Unicode Text"
End Sub

[Glausius]

Hallo snb,

was soll ich mit deinen Bruchstücken ohne jeden Kommentar?

Außerdem laufen die Code nicht, da überall die Variablendeklarationen fehlen!

Schalte ich jedoch die Variablendeklaration aus, dann kommt bei dieser Zeile:

Code:

 Sheet1.PasteSpecial "Unicode Text"

der Fehler, dass die PasteSpecial-Methode nicht ausgeführt werden konnte!

[atilla]

Hallo Günter,

Da Uwe in seinem Code den zu befüllenden Bereich nur leert, kann es passieren das vorhandene Formate (wenn auch nur irgendwann zufällig entstanden) beibehällt.

Vielleicht die letzten Zeilen in Uwes Code so testen:

PHP-Code:

   With Sheets("Konvert")
        .UsedRange.Clear
        .Columns("A").NumberFormat = "DD.MM.YYYY"
        .Range("A1").Resize(UBound(arData, 1) + 1, UBound(arData, 2) + 1) = arData
    End With 


Hier wird dann der im benutzen Breich alles gelöscht (auch alle Formate und Formatierungen) und die Spalte A vor dem reinschreiben als Datum formatiert.

[Glausius]

Hallo Atilla,

jetzt klappt es mit dem Einlesen des Datum, aber der Haben-Betrag wird immernoch als Datum ausgegeben und stürzt dann ab, wenn der Betrag nicht in ein Datum umgewandelt werden kann.

Ich stelle die 3 Dateien hier noch einmal mit dem aktuellen Stand ein - die csv.csv läuft, die kontoauszuege.csv stürzt ab und dort werden die Beträge als Datum eingelesen.

[snb]

Hallo snb,

was soll ich mit deinen Bruchstücken ohne jeden Kommentar?

Außerdem laufen die Code nicht, da überall die Variablendeklarationen fehlen!

Schalte ich jedoch die Variablendeklaration aus, dann kommt bei dieser Zeile:

Code:

 Sheet1.PasteSpecial "Unicode Text"

der Fehler, dass die PasteSpecial-Methode nicht ausgeführt werden konnte!

1. Selbt analysieren/reflektieren und testen
2. Option Explicit ausblenden
3. Hast du eines Arbeitsblatt mit codename 'Sheet1' ?, vielleicht könntest du (wenn es nicht zoviel Mühe gibt) diese anpassen (eben VBA-Anfänger sind in der Lage dass zu schaffen). Darum/dazu muss man Code erst analysieren.

Es gibt immer F1 und F2 in der VBEditor als Helfer.