Hallo alle zusammen.
Ich habe folgendes Problem, welches ich einfach nicht gelöst bekomme.
Ich will per Fernsteuerung auf Excel eine
csv Datei einlesen und die Spalten gleich formatieren etc.
Ich weiß auch wie ich das machen kann, jedoch habe ich folgenden Quellcode aus Excel, den ich einfach nicht so übersetzt bekomme, dass Delphi ihn versteht:
ActiveSheet.QueryTables.Add("Connection:= "TEXT;C:\Dokumente und Einstellungen\Stefan\Desktop\daten.csv", Destination:= Range("A1")");
nun kann ich ja mit excel. den Code an Excel übergeben:
excel.ActiveSheet.QueryTables.Add("Connection:= "TEXT;C:\Dokumente und Einstellungen\Stefan\Desktop\daten.csv", Destination:= Range("A1")");
Leider weiß er nichts mit dem .add anzufangen.
Kann mir da irgendeiner helfen, ich komm einfach nicht mehr weiter.
Der gesamte Quellcode sieht derzeit so aus, wobei er noch nicht fertig ist:
"
procedure TForm1.Button1Click(Sender: TObject);
var
Excel : Variant;
begin
excel := CreateOleObject('Excel.Application');
excel.visible := true;
excel.Workbooks.Add;
excel.ActiveSheet.QueryTables.Add("Connection:= "TEXT;C:\Dokumente und Einstellungen\Stefan\Desktop\daten.csv", Destination:= Range("A1")");
excel.activesheet.name := 'Daten';
excel.activesheet.fieldnames := false;
excel.rownumbers := false;
excel.filladjacentformulas := false;
excel.PreserveFormatting := True;
excel.RefreshOnFileOpen := False;
excel.RefreshStyle := xlInsertDeleteCells;
excel.SavePassword := False;
excel.SaveData := True;
excel.AdjustColumnWidth := True;
excel.RefreshPeriod := 0;
excel.TextFilePromptOnRefresh := False;
excel.TextFilePlatform := 1252;
excel.TextFileStartRow := 1;
excel.TextFileParseType := xlDelimited;
excel.TextFileTextQualifier := xlTextQualifierNone;
excel.TextFileConsecutiveDelimiter := False;
excel.TextFileTabDelimiter := False;
excel.TextFileSemicolonDelimiter := True;
excel.TextFileCommaDelimiter := False;
excel.TextFileSpaceDelimiter := False;
excel.TextFileColumnDataTypes := 'Array(.....)';
excel.TextFileTrailingMinusNumbers := True;
excel.Refresh;
excel.BackgroundQuery := False
end;
"
Wäre für jede Hilfe echt dankbar.
Gruß Stefan