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