Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

[zeina]

Dank für eure Hilfe,
Ich habe noch ein problem und zwar:
wie kann man zeigen,wie viel columns für jeder Row gibt?
Ich habe eine Funktion,durch die man Anzahl der spalten von einer bestimmten Row sehen könnten:


[DP] function TForm1.show(ad:string):integer;
var x,y:integer;
begin
Result:=0;
for X := 1 to 3 do
begin
for Y := 1 to 4 do
begin
if ad =excel.cells.Item[y, x].Value then
Result:= Excel.Cells[y,x].row;
end;
end;
end;[/DP]

[ZYLAGON]

Hallo zeina,

eventuell ist UsedRange.Columns.count, was Du benötigst.

VG
ZYL

[zeina]

Hallo ZYLAGON,
danke für deine Antwort.
das funktioniert,aber zeigt wie viel max columns in Datei gibt.In meine Excel datei habe ich Rows mit Unterschiedliche Anzahl Spalten.
Meine Aufgabe ist,dass ich die Anzahl Spalten in ein bestimmte Row zeigen muss???

[Chemiker]

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