Einzelnen Beitrag anzeigen

Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.858 Beiträge
 
Delphi 11 Alexandria
 
#24

AW: Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

  Alt 5. Aug 2018, 11:15
Hallo zeina,

Deine Angaben sind etwas konfus, aber ich habe mal ein kleines Beispielprogramm angehängt wie man die Anzahl Spalten in einer bestimmten Zeile und die Anzahl Zeilen in einer bestimmten Spalte ermitteln kann.

Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
  DateiName: TFileName;
  olevEXCELoffen: OLEVariant;
  AnzahlZeilen: integer;
  AnzahlSpalten: integer;
  SpaltenNr: integer;
  ZeilenNr: integer;
begin
  try
    olevEXCELoffen := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel ist nicht geöffnet !');
    Exit;
  end;
  olevEXCELoffen.Visible:= TRUE;
  olevEXCELoffen.Workbooks.Open('C:\Users\Public\Documents\EXCEL-Daten\AnzahlMappe1.xlsx');

  // Anzahl Zeilen ermitteln, in der Spalte die in SpaltenNr angegeben ist.

  SpaltenNr:= 2;
  AnzahlZeilen:= olevEXCELoffen.Cells[olevEXCELoffen.Rows.Count,SpaltenNr].End[xlUp].Row;
  showmessage(AnzahlZeilen.tostring);

  // Anzahl Spalten ermitteln, in der Zeile die in ZeilenNr angegeben ist.

  ZeilenNr:= 24;
  AnzahlSpalten:= olevEXCELoffen.Cells[ZeilenNr,olevEXCELoffen.Columns.Count].End[xlToLeft].Column;
  showmessage(AnzahlSpalten.tostring);

  olevEXCELoffen.Quit;
  olevEXCELoffen:= Unassigned;
end;


Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat