Formatierung aus Excel einlessen

[ferby]

Hallo,

Ich lese so die ersten 255 Zeilen von einen Excel Dokument so ein:

Delphi-Quellcode:

for i:=1 to 255 do
ISIN_Liste[i]:=(Worksheet.Cells.Item[i, 2].Value);

klappt auch wunderbar.

Nur möchte ich jetzt zusätlich irgendwie die Formatierung der Excel Zeile einlessen.

Im Prinzip will ich nur wissen ob die Zeile in excel dick (bold) geschrieben ist oder nicht.

Also so eine Abfrage:

Delphi-Quellcode:

    if Worksheet.Cells.Item[1,1].Font.Style=[fsBold] then showmessage('Dick geschrieben');

Nur leider geht es so nicht.....

Wie kann ich das anstellen?


Also kurz: Wie kann ich abfragen ob die Formatierung in einen bestimmten Excel Feld dick (bold) geschrieben ist?


Dankbar für jede Antwort,
Ferby

[marabu]

Hallo Ferdinand,

hast du es schon so probiert?

Delphi-Quellcode:

if Worksheet.Cells.Item[1,1].Font.Bold then 
  ShowMessage('Dick geschrieben');

Freundliche Grüße

[Chemiker]

Hallo ferby,


so kann man in Delphi die Excel - Formatierung einlesen.

Delphi-Quellcode:

  m_Excel := CreateOleObject('Excel.Application');
      .
      .

   if m_Excel.Cells[1,1].Font.Bold = TRUE then  // Ist die erste Zelle Fett!
     ShowMessage('Zelle ist Fett');


   // Wenn du die Farbe abfragen wills kann man das so:
   // Dabei ist zu beachten das man die Farb-Konstanten von Deplhi benutzt und nicht von Excel (vbRED)
   
   if m_Excel.Cell[1, 1].Interior.Color = clRed then
      ShowMessage('Die Zelle ist Rot');

ich hoffe das hilft Dir weiter.


Bis bald Chemiker