Excel und Delphi

[Chemiker]

Hallo Maa83,

mit OpenText ist es nicht möglich die Datei als Text einzulesen. Was man machen könnte ist die csv-Datei zu importieren, dann ist es auch möglich die einzelnen Spalten in ein Text-Format zu formatieren.

Der andere Weg ist die csv-Datei in eine txt-Datei umzubenennen. Dann ist es auch möglich mit OpenText die einzelnen Spalten als Text zu formatieren.

In FieldInfo müssen diese Spalten dann als Text-Format angegeben werden.

Delphi-Quellcode:

DateiName:= 'F:\Excel-ProgammOrdner\Beispiel Daten\kopie von Mappe1.txt';

 Excel.Workbooks.OpenText (DateiName, Origin:=xlwindows, StartRow:=1,
                          DataType:=xlDelimited,
                          TextQualifier:=xlTextQualifierDoubleQuote,
                          ConsecutiveDelimiter:=False,Tab:=True,
                          Semicolon:=True,Comma:=False,Space:=False,
                          Other:=True,
                          FieldInfo:= ExcelArr);

In ExcelArr werden die Formtierungen der Spalten angegeben.

Delphi-Quellcode:

  var ExcelArr: Variant;
begin

  ExcelArr := VarArrayCreate([0,4,0,1], varVariant);     //

  ExcelArr[0,0]:= 1;                 // Spalte
  ExcelArr[0,1]:= xlTextformat;      {entpricht = 2}
  ExcelArr[1,0]:= 2;
  ExcelArr[1,1]:= 2;
  ExcelArr[2,0]:= 3;
  ExcelArr[2,1]:= 2;
  ExcelArr[3,0]:= 4;
  ExcelArr[3,1]:= 2;
  ExcelArr[4,0]:= 5;
  ExcelArr[4,1]:= 2;
end;

Damit werden die ersten 5 Spalten als Text formatiert.

Bis bald Chemiker

[Maa83]

@Chemiker: es klappt!!! VIELEN DANK! Ich wäre nie darauf gekommen das es an der Dateiendung liegt. Wenn du mal in der Nähe bist geb ich ein :cheers: aus :mrgreen: