Excel Zeile löschen

[hokowa]

Hallo alle zusammen,

ich möchte in Excel eine bestimmte Zeile löschen.
Dabei gehe ich alle zeilen durch, bei erreichen der besagten Zeile --> Zeile löschen.
Habe einiges probiert, Range, Rows, UsedRange, Item usw.. geht alles nicht.

Bin für jede Hilfe dankbar

Gruß Horst

Delphi-Quellcode:

procedure TMainForm.Loeschen1Click(Sender: TObject);
var
  F_name:String;
  I, zeile, flcid,l : Integer;
begin
ZipMaster1.FSpecArgs.Clear;
Markierung :=Stringgrid1.Row;

if MessageDlg('Datei ' + StringGrid1.Cells[0, Markierung]+ ' löschen ?', mtinformation, mbYesNo,0) = mrYes then
begin
ZipMaster1.FSpecArgs.Add(StringGrid1.Cells[0, Markierung]);
ZipMaster1.Delete;
F_Name := StringGrid1.Cells[0, Markierung];
ExcelApplication1.Visible[flcid]:=False;
flcid:=GetUserDefaultLCID;
ExcelApplication1.UserControl := True;
ExcelApplication1.DisplayAlerts[flcid] := True;
ExcelApplication1.AskToUpdateLinks[flcid] := False;



   f_name:=extractfiledir(Application.ExeName) + '\benutzer.xls';

   ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(f_name,
       emptyParam,
       True,
       emptyParam,
       emptyParam,
       emptyParam,
       emptyParam,
       emptyParam,
       emptyParam,
       emptyParam,
       emptyParam,
//       emptyParam,
//       emptyParam,
       emptyParam,
       emptyParam, flcid));
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item[1] as ExcelWorkSheet);
  ExcelApplication1.UserControl:=true;


I := 1;
While ExcelWorksheet1.Cells.Item[I, 1].Value = F_Name do
begin
I := I +1;
End;
zeile := I;

ExcelWorksheet1.UsedRange[zeile].Delete;   [b] [u] //  An der Stelle soll in Excel die Zeile gelöscht werden[/u][/b]


ExcelWorksheet1.SaveAs(extractfiledir(Application.ExeName) + '\benutzer.xlsx');
ExcelWorksheet1.Disconnect;
ExcelWorkbook1.Disconnect;
ExcelApplication1.AskToUpdateLinks[flcid] := True;
ExcelWorksheet1.Application.Quit;                         // Schließt Excel
ExcelWorksheet1.Disconnect;
Excel := 'Unassigned';


end;

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst setzen - Mfg, SirThornberry[/edit]

[Chemiker]

Hallo hokowa,

versuchst mal mit:

ExcelApplication1.Rows[Zeile].delete; Um Dein Quellcode besser lesen zu können, ist es besser den Quellcode zu markieren und mit den Button Delphi-Code zu formatieren.

Bis bald Chemiker

[hokowa]

geht nicht

Fehler "Klasse besitzt keine Standardeigenschaft "

[Chemiker]

Hallo hokowa,

setze mal bei der Zeile:

zeile := I; einen Breakpointe und setze dann das Programm mit F7 fort, wenn bis dahin das Programm durchgelaufen ist.


Bis bald Chemiker

[hokowa]

Das Programm startet nicht, der Compiler meldet schon einen Fehler und bleibt in der Zeile stehen.
Er erwartet nach Delete einen Wert

ExcelApplication1.Rows[zeile].delete();

Ausdruck erwartet, aber ) gefunden

und

Klasse besitzt keine Standardeigenschaft

[Chemiker]

Hallo hokowa,

wo kommen die Klammern her? Versuchst mal ohne Klammern.

Bis bald Chemiker

[hokowa]

Die Klammern habe ich gesetzt, ohne Klammern geht as aber auch nicht

[Chemiker]

Hallo hokowa,

sorry meine Schuld.

versuchst mal hiermit:

ExcelWorksheet1.Range['A'+ inttostr(zeile),'A'+inttostr(zeile)].EntireRow.Delete(xlUp); Bis bald Chemiker

[hokowa]

Hallo Chemiker,

super, vielen Dank.