AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

Ein Edit.Text in eine vorgefertigte Excel Datei suchen.

Ein Thema von zeina · begonnen am 24. Jul 2018 · letzter Beitrag vom 5. Aug 2018
Antwort Antwort
Seite 3 von 3     123
zeina

Registriert seit: 8. Jun 2018
56 Beiträge
 
#21

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

  Alt 2. Aug 2018, 10:42
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]

Geändert von zeina ( 2. Aug 2018 um 12:12 Uhr)
  Mit Zitat antworten Zitat
ZYLAGON

Registriert seit: 11. Nov 2015
48 Beiträge
 
Delphi 10.3 Rio
 
#22

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

  Alt 2. Aug 2018, 18:52
Hallo zeina,

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

VG
ZYL
  Mit Zitat antworten Zitat
zeina

Registriert seit: 8. Jun 2018
56 Beiträge
 
#23

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

  Alt 3. Aug 2018, 08:14
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???
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.855 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#24

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

  Alt 5. Aug 2018, 10: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
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf