CSV Dateien über OLE importieren, falsches Format in Feldern

[ArneWolf]

Hallo,

vielen Dank für die rege Beteiligung und die guten Lösungsansätze. Habe es jetzt mit einer Hilfsfunktion gelöst, die mir die CSV-Datei auf einer temporären als Text formatierten Excel-Arbeitsmappe einliest und zwischenspeichert. Hat den Vorteil, dass man dieser leeren Arbeitsmappe bei Bedarf alle möglichen Formatierungen mitgeben kann.

Ich stelle die Funktion auch mal hier zur Verfügung, falls jemand ein ähnliches Problem mit dem einlesen von CSV nach Excel und den daraus folgenden falschen Feld-Formatierungen haben sollte.
Hat allerdings bisher noch 3 Einschränkungen, da diese bei unserem Einsatzzweck alle nicht auftreten können. Sollte aber kein Ding sein dies bei Bedarf noch zu erweitern.
- Separator-Zeichen innerhalb von Nutzdaten werden nicht abgefangen
- keine Berücksichtigung von Datenklammerzeichen
- CSV-Dateien, die nur aus einer einzigen Spalte bestehen, werden falsch eingelesen

Delphi-Quellcode:

function CsvToExcel(Eingabe:string):boolean;
var
  CsvArray:TStringDynArray;
  ArrayMax, SegmentNr, Zeile, Spalte, PosUmbruch, Zeilenumbruchnacher:integer;
  CsvExcel:variant;
begin
  Eingabe := StringReplace(Eingabe,#$D#$A,'<><><>',[rfReplaceAll]); //Zeilenumbruch abfangen, da hiermit innerhalb des Arrays nicht mehr gearbeitet werden kann
  CsvArray := explode(';', Eingabe); //explode und StringReplace bei großen Dateien besser durch etwas schnelleres ersetzen!
  SegmentNr := 0;
  Zeile := 1;
  Spalte := 1;
  CsvExcel := CreateOLEObject('Excel.Application');
  try
    CsvExcel.Visible:=false;
    CsvExcel.DisplayAlerts:=false;
    CsvExcel.Workbooks.Open(ExtractFilePath(ParamStr(0))+'resources\csv.xls');
    CsvExcel.Workbooks[1].Worksheets[1].Select;

    repeat
      if (CsvArray[0+SegmentNr] <> '') and (copy(CsvArray[0+SegmentNr],1,6) <> '<><><>') then begin
        if (POS('<><><>',CsvArray[0+SegmentNr]) > 0) then begin
          PosUmbruch := PosEx('<><><>', CsvArray[0+SegmentNR]);
          CsvExcel.cells[Zeile,Spalte] := copy(CsvArray[0+SegmentNR], 1, PosUmbruch-1);
          Spalte := 1;
          Zeile := Zeile+1;
          CsvExcel.cells[Zeile,Spalte] := copy(CsvArray[0+SegmentNR], PosUmbruch+6);
          SegmentNr := SegmentNr+1;
          Spalte := Spalte+1;
          continue;
        end
        else begin
          CsvExcel.cells[Zeile,Spalte] := CsvArray[0+SegmentNR];
          SegmentNr := SegmentNr+1;
          Spalte := Spalte+1;
          continue;
        end;
      end
      else if (copy(CsvArray[0+SegmentNr],1,6) = '<><><>') then begin
        Spalte := 1;
        Zeile := Zeile+1;
        CsvExcel.cells[Zeile,Spalte] := copy(CsvArray[0+SegmentNR],7);
        SegmentNr := SegmentNr+1;
        Spalte := Spalte+1;
        continue;
      end
      else begin
        SegmentNr := SegmentNr+1;
        Spalte := Spalte+1;
        continue;
      end;
    until (SegmentNr = length(CsvArray)-1);

    except begin
      CsvExcel.quit;
      CsvExcel := unassigned;
      Result := false;
      exit;
    end;
  end;
  CsvExcel.ActiveWorkBook.SaveAs(ExtractFilePath(ParamStr(0))+'resources\'+'tmp.xls');
  CsvExcel.quit;
  CsvExcel := unassigned;
  Result := true;
end;