Difference between revisions of "ExcelAutomation/de"

From Lazarus wiki
Jump to navigationJump to search
m (Fixed syntax highlighting)
 
(29 intermediate revisions by 2 users not shown)
Line 1: Line 1:
 
{{ExcelAutomation}}
 
{{ExcelAutomation}}
 
+
<br>
 +
Zurück zur [[Office Automation/de|Office Automation]].<br>
 +
<br>
 +
__TOC__
 +
<br>
 
=Excel=
 
=Excel=
 
Alle Möglichkeiten der Excelautomation aufzuzeigen ist nicht möglich ich hoffe aber für jeden Bedarf Anregungen gefunden zu haben.<br>
 
Alle Möglichkeiten der Excelautomation aufzuzeigen ist nicht möglich ich hoffe aber für jeden Bedarf Anregungen gefunden zu haben.<br>
Line 8: Line 12:
 
Für die Verwendung von Umlauten usw. muss die Unit '''lclproc''' eingebunden werden.<br>
 
Für die Verwendung von Umlauten usw. muss die Unit '''lclproc''' eingebunden werden.<br>
 
<br>
 
<br>
 
 
==Speicherplatz reservieren==
 
==Speicherplatz reservieren==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
var
 
var
  varXLApp: OleVariant;
+
  varXLApp: oleVariant;     // wird für die Adressierung des Programms Excel verwedet
 +
  varXLWb: oleVariant;      // wird für die Adressierung des Exceldatei verwendet
 +
  wstrUebergabe: WideString; // Hilfsvariable (wird z. B. für Umlaute usw. benötigt)
 +
  wstrRange: WideString      // Hilfsvariable für eine Range
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
  
 
==Excel OleObjekt erstellen==
 
==Excel OleObjekt erstellen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 +
uses
 +
  comobj;
 +
 
 
begin
 
begin
 
   ...
 
   ...
Line 31: Line 40:
  
 
==Excel beenden und den Speicher freigeben==
 
==Excel beenden und den Speicher freigeben==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
 
   varXLApp.Quit;
 
   varXLApp.Quit;
   varXLApp := Unassigned; //Der Speicher muss am Ende wieder freigegeben werden, sonst entstehen Speicherlecks  
+
   varXLApp := UnAssigned; //Der Speicher muss am Ende wieder freigegeben werden, sonst entstehen Speicherlecks  
 
   ...
 
   ...
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 
 
==Excel Version ermitteln==
 
==Excel Version ermitteln==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 50: Line 58:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 
 
==Fehlermeldungen und Warnungen deaktivieren==
 
==Fehlermeldungen und Warnungen deaktivieren==
 
Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen.
 
Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen.
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 61: Line 68:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 
 
==Sichtbarkeit von Excel steuern==
 
==Sichtbarkeit von Excel steuern==
 
Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.<br>
 
Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.<br>
 
Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert.
 
Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert.
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
 
   varXLApp.Visible := False;        // macht Excel unsichtbar
 
   varXLApp.Visible := False;        // macht Excel unsichtbar
   varXLApp.ScreenUpdating = False;   // schaltet das ScreenUpdating von Excel aus
+
   varXLApp.ScreenUpdating := False; // schaltet das ScreenUpdating von Excel aus
  
   varXLApp.ScreenUpdating = True;   // schaltet das ScreenUpdating von Excel ein
+
   varXLApp.ScreenUpdating := True;   // schaltet das ScreenUpdating von Excel ein
 
   varXLApp.Visible := True;          // macht Excel sichtbar
 
   varXLApp.Visible := True;          // macht Excel sichtbar
 
   ...
 
   ...
Line 81: Line 87:
 
==Workbook (Datei) öffnen==
 
==Workbook (Datei) öffnen==
 
Öffnet eine vorhandene Datei.<br>
 
Öffnet eine vorhandene Datei.<br>
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
   varXLApp.Workbooks.Open(strPfad); // öffnet die Exceldatei (Pfad: maximal 255 Zeichen, Alphanumerisch)
+
   varXLApp.Workbooks.Open(strPfad); // öffnet die Exceldatei (Pfad: maximal 255 Zeichen)
 +
 
 +
  // Alternative:
 +
  // öffnet ein vorhandenes Workbook (Exceldatei) und weist seine Speicheradresse
 +
  // der Variablen varXLWb zu. Diese Variable ermöglicht eine kürzere Schreibweise
 +
  // und eindeutige (direkte) Ansprache des Dokuments.
 +
  // Das ist besonders dann hilfreich, wenn man mit mehreren Exceldateien gleichzeitig arbeitet.
 +
  varXLWb := varXLApp.Workbooks.Open(strPfad);
 
   ...
 
   ...
 
end;
 
end;
Line 91: Line 104:
 
==Workbook (Datei) einfügen==
 
==Workbook (Datei) einfügen==
 
Erstellt eine neue Datei.<br>
 
Erstellt eine neue Datei.<br>
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 99: Line 112:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 
 
==Workbook speichern==
 
==Workbook speichern==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 111: Line 123:
 
<br>
 
<br>
 
==Workbook unter neuem Namen speichern==
 
==Workbook unter neuem Namen speichern==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 120: Line 132:
 
<br>
 
<br>
 
==Workbook schliessen==
 
==Workbook schliessen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
 
   varXLApp.Workbooks[1].Close;
 
   varXLApp.Workbooks[1].Close;
 +
  ...
 +
end;
 +
</syntaxhighlight>
 +
<br>
 +
==Name des aktiven Workbooks ermitteln==
 +
<syntaxhighlight lang=pascal>
 +
var
 +
  strName: String;
 +
begin
 +
  ...
 +
  // Ausgabe am Bildschirm
 +
  ShowMessage(varXLApp.ActiveWorkbook.Name);
 +
  // Alternative:
 +
  // speichern in einer Variable
 +
  strName := varXLApp.ActiveWorkbook.Name;
 
   ...
 
   ...
 
end;
 
end;
Line 131: Line 158:
 
=Worksheets=
 
=Worksheets=
 
==Worksheet einfügen==
 
==Worksheet einfügen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 140: Line 167:
 
<br>
 
<br>
 
==Worksheet umbenennen==
 
==Worksheet umbenennen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 150: Line 177:
 
<br>
 
<br>
 
==Worksheet löschen==
 
==Worksheet löschen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 160: Line 187:
 
<br>
 
<br>
 
==Worksheet aktivieren==
 
==Worksheet aktivieren==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
 
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Activate;
 
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Activate;
 +
  ...
 +
end;
 +
</syntaxhighlight>
 +
<br>
 +
==Hintergrundbild einfügen==
 +
Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.<br>
 +
<syntaxhighlight lang=pascal>
 +
begin
 +
  ...
 +
  //  Um das richtige Worksheet zu addressieren verwendet man den Index von Workbook und Worksheet
 +
  varXLApp.WorkBooks[1].WorkSheets[1].SetBackGroundPicture('D:\Testbild.JPG');
 +
  // Alternative
 +
  // Um das richtige Worksheet zu addressieren verwendet man die Namen von Workbook und Worksheet
 +
  varXLApp.WorkBooks['Test.xls'].WorkSheets['Tabelle2'].SetBackGroundPicture('D:\Testbild.JPG');
 
   ...
 
   ...
 
end;
 
end;
Line 169: Line 210:
 
<br>
 
<br>
  
==Zeilen und Spalten==
+
=Zeilen und Spalten=
===Zeilenbreite und Spaltenhöhe setzen===
+
==Zeilenbreite und Spaltenhöhe setzen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 187: Line 228:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
===Zeilen löschen===
+
==Zeilen löschen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 198: Line 239:
 
<br>
 
<br>
  
=Zellen und Ranges==
+
=Zellen und Ranges=
 
==Autofilter setzen==
 
==Autofilter setzen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 210: Line 251:
 
<br>
 
<br>
 
==Rahmen zeichnen==
 
==Rahmen zeichnen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 221: Line 262:
 
<br>
 
<br>
 
==Hyperlinks und URLS einfügen==
 
==Hyperlinks und URLS einfügen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 237: Line 278:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
==Hintergrundbild einfügen==
 
Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.<br>
 
<syntaxhighlight>
 
begin
 
  ...
 
  //  Um das richtige Worksheet zu addressieren verwendet man den Index von Workbook und Worksheet
 
  varXLApp.WorkBooks[1].WorkSheets[1].SetBackGroundPicture('D:\Testbild.JPG');
 
  // Alternative
 
  // Um das richtige Worksheet zu addressieren verwendet man die Namen von Workbook und Worksheet
 
  varXLApp.WorkBooks['Test.xls'].WorkSheets['Tabelle2'].SetBackGroundPicture('D:\Testbild.JPG');
 
  ...
 
end;
 
</syntaxhighlight>
 
<br>
 
 
 
==Wert einfügen==
 
==Wert einfügen==
 
Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.<br>
 
Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.<br>
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 266: Line 292:
  
 
   // Alternative 3
 
   // Alternative 3
 +
  wstrRange := UTF8ToUTF16('A' + IntToStr(5) + ':A' + IntToStr(7));
 +
  varXLApp.WorkBooks[1].WorkSheets[1].Range[wstrRange].Value := 3;
 +
 +
  // Alternative 4
 
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3;
 
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3;
  
 
   // Alternative ...
 
   // Alternative ...
 
   ...
 
   ...
   varXLApp.WorkSheets[1].Range['A15'].Value := UTF8ToUTF16('Überlegung'); // Übernimmt Umlaute usw. und benötigt
+
 
                                                                          // dafür die Unit lclproc
+
  // Übernimmt Umlaute usw. und benötigt dafür die Unit lclproc
 +
   varXLApp.WorkSheets[1].Range['A15'].Value := UTF8ToUTF16('Überlegung');
 +
  // Diese Vorgehensweise zur Verwendung von Umlauten ist sicherer
 +
  wstrUebergabe := UTF8ToUTF16('Überlegung');
 +
  varXLApp.WorkSheets[1].Range['A15'].Value := wstrUebergabe;
  
 
   // Ermittelt die letzte Zeile und schreibt diese in Zeile 1 der Spalte F
 
   // Ermittelt die letzte Zeile und schreibt diese in Zeile 1 der Spalte F
Line 284: Line 318:
  
 
==Formel einfügen==
 
==Formel einfügen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 296: Line 330:
 
<br>
 
<br>
 
==Arbeiten mit Schriften==
 
==Arbeiten mit Schriften==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 318: Line 352:
 
<br>
 
<br>
 
==Chart Speicher reservieren==
 
==Chart Speicher reservieren==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
var
 
var
 
   varDiagramm: OleVariant;
 
   varDiagramm: OleVariant;
Line 324: Line 358:
 
<br>
 
<br>
 
==Chart Speicher freigeben==
 
==Chart Speicher freigeben==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
   varDiagramm := Unassigned;
+
   varDiagramm := UnAssigned;
 
   ...
 
   ...
 
end;
 
end;
Line 333: Line 367:
 
<br>
 
<br>
 
==Chart Objekt erstellen==
 
==Chart Objekt erstellen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 342: Line 376:
 
<br>
 
<br>
 
==Chart aktivieren==
 
==Chart aktivieren==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 351: Line 385:
 
<br>
 
<br>
 
==Chart Diagramtyp festlegen==
 
==Chart Diagramtyp festlegen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 360: Line 394:
 
<br>
 
<br>
 
==Chart Datenherkunft (Datenquelle) festlegen==
 
==Chart Datenherkunft (Datenquelle) festlegen==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 369: Line 403:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
==Chart verschieben festlegen==
+
==Chart verschieben==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 379: Line 413:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 +
 
==Chart Titel==
 
==Chart Titel==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
   varXLApp.Worksheets[1].ChartObjects[1].Chart.HasTitle := True; // Legt fest, dass das Chart einen Titel haben darf
+
   varXLApp.Worksheets[1].ChartObjects[1].Chart.HasTitle := True; // Legt fest, dass das Chart einen Titel haben darf
 
   varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
 
   varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
 
                                   .Characters.Text := 'Test';    // Legt den Namen des Chart Titels fest
 
                                   .Characters.Text := 'Test';    // Legt den Namen des Chart Titels fest
Line 394: Line 429:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
<br>
 
<br>
 +
 
==Chart Achsenbeschriftung==
 
==Chart Achsenbeschriftung==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
Line 412: Line 448:
 
   varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
 
   varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
 
     .Characters.Text := UTF8ToUTF16('€');
 
     .Characters.Text := UTF8ToUTF16('€');
 +
 +
  // Diese Schreibweise des Eurozeichens ist sicherer
 +
  wstrUebergabe := UTF8ToUTF16('€');
 +
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
 +
    .Characters.Text := wstrUebergabe;
 +
  
 
   // Legt die Schriftfarbe des Achsentitels fest
 
   // Legt die Schriftfarbe des Achsentitels fest
Line 426: Line 468:
  
 
==Chart Legende==
 
==Chart Legende==
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
begin
 
begin
 
   ...
 
   ...
   //Legt die Beschriftung der Chartlegende fest
+
   //Legt die Beschriftung des ersten Elements der Chartlegende fest
 
   varXLApp.Worksheets[1].ChartObjects[1].Chart.SeriesCollection(1)
 
   varXLApp.Worksheets[1].ChartObjects[1].Chart.SeriesCollection(1)
 
     .Name := '="Eins"';
 
     .Name := '="Eins"';
Line 437: Line 479:
  
 
=Auszug aus den Excelkonstanten=
 
=Auszug aus den Excelkonstanten=
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
unit uXLConst;
 
unit uXLConst;
  
Line 779: Line 821:
 
xlCellTypeSameValidation = -4175;
 
xlCellTypeSameValidation = -4175;
 
xlCellTypeVisible = 12;
 
xlCellTypeVisible = 12;
 +
 +
// Klasse XLAxisGroup
 +
xlPrimary = 1;
 +
xlSecondary = 2;
  
 
implementation
 
implementation
Line 784: Line 830:
 
end.
 
end.
 
</syntaxhighlight>
 
</syntaxhighlight>
<br>
+
 
<br>
 
--[[User:Olaf|Olaf]] 18:53, 26 September 2012 (UTC)
 
 
[[Category:Tutorials/de]]
 
[[Category:Tutorials/de]]

Latest revision as of 13:05, 14 February 2020

Deutsch (de)
Zurück zur Office Automation.


Excel

Alle Möglichkeiten der Excelautomation aufzuzeigen ist nicht möglich ich hoffe aber für jeden Bedarf Anregungen gefunden zu haben.
Excel ist zu dem die automatisierungsfreundlichste Software von Microsoft.
Wenn Sie Umlaute usw. verwenden, dann sollten Sie wissen, dass Excel UTF16 codierte Strings verwendet.
Für die Oleautomation muss die Unit ComObj eingebunden werden.
Für die Verwendung von Umlauten usw. muss die Unit lclproc eingebunden werden.

Speicherplatz reservieren

var
  varXLApp: oleVariant;      // wird für die Adressierung des Programms Excel verwedet
  varXLWb: oleVariant;       // wird für die Adressierung des Exceldatei verwendet
  wstrUebergabe: WideString; // Hilfsvariable (wird z. B. für Umlaute usw. benötigt)
  wstrRange: WideString      // Hilfsvariable für eine Range


Excel OleObjekt erstellen

uses 
  comobj;

begin
   ...
   try
     varXLApp := CreateOleObject('Excel.Application');  // erstellt das Excelobjekt
   except
     WriteLn('MS Excel kann nicht gestartet werden.');  // Fehlerbehandlung
   end;
   ...
end;


Excel beenden und den Speicher freigeben

begin
   ...
   varXLApp.Quit;
   varXLApp := UnAssigned; //Der Speicher muss am Ende wieder freigegeben werden, sonst entstehen Speicherlecks 
   ...
end;


Excel Version ermitteln

begin
  ...
  ShowMessage(varXLApp.Version);
  ...
end;


Fehlermeldungen und Warnungen deaktivieren

Das Dekativieren von bestimmten Fehlermeldungen und Warnungen kann die Softwaresteuerung vereinfachen.

begin
   ...
   varXLApp.DisplayAlerts := False;   // schaltet diverse Fehlermeldungen von Excel aus
   ...
end;


Sichtbarkeit von Excel steuern

Für Excel 2003 und älter gilt, dass das Unterdrücken der Anzeige die Verarbeitungsgeschwindigkeit beschleunigt.
Für alle Excelversionen gilt, dass es das das Flackern des Bildschirms verhindert.

begin
   ...
   varXLApp.Visible := False;         // macht Excel unsichtbar
   varXLApp.ScreenUpdating := False;  // schaltet das ScreenUpdating von Excel aus

   varXLApp.ScreenUpdating := True;   // schaltet das ScreenUpdating von Excel ein
   varXLApp.Visible := True;          // macht Excel sichtbar
   ...
end;


Workbooks

Workbook (Datei) öffnen

Öffnet eine vorhandene Datei.

begin
   ...
   varXLApp.Workbooks.Open(strPfad); // öffnet die Exceldatei (Pfad: maximal 255 Zeichen)

   // Alternative:
   // öffnet ein vorhandenes Workbook (Exceldatei) und weist seine Speicheradresse
   // der Variablen varXLWb zu. Diese Variable ermöglicht eine kürzere Schreibweise
   // und eindeutige (direkte) Ansprache des Dokuments.
   // Das ist besonders dann hilfreich, wenn man mit mehreren Exceldateien gleichzeitig arbeitet.
   varXLWb := varXLApp.Workbooks.Open(strPfad);
   ...
end;


Workbook (Datei) einfügen

Erstellt eine neue Datei.

begin
   ...
   varXLApp.Workbooks.Add;               // fügt ein neues Workbook ein
   ...
end;


Workbook speichern

begin
   ...
   varXLApp.Workbooks[1].Save;           // speichert ein Worksheet über seinen Index
   varXLApp.Workbooks['Test.xls'].Save;  // speicher ein Worksheet über seinen Namen
   ...
end;


Workbook unter neuem Namen speichern

begin
   ...
   varXLApp.Workbooks[1].SaveAs('D:\Test.xls', varXLApp.Workbooks[1].fileformat);
   ...
end;


Workbook schliessen

begin
   ...
   varXLApp.Workbooks[1].Close;
   ...
end;


Name des aktiven Workbooks ermitteln

var
   strName: String;
begin
   ...
   // Ausgabe am Bildschirm
   ShowMessage(varXLApp.ActiveWorkbook.Name);
   // Alternative:
   // speichern in einer Variable
   strName := varXLApp.ActiveWorkbook.Name;
   ...
end;


Worksheets

Worksheet einfügen

begin
   ...
   varXLApp.WorkBooks[1].WorkSheets.Add; //fügt ein neues WorkSheet hinzu
   ...
end;


Worksheet umbenennen

begin
   ...
   varXLApp.WorkBooks[1].WorkSheets[1].Name := 'Neuer Name'; // benennt ein Worksheet über seinen Index um
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Name := 'Neuer Name'; // benennt ein Worksheet über seinen Namen um
   ...
end;


Worksheet löschen

begin
   ...
   varXLApp.WorkBooks[1].WorkSheets[3].Delete;               // löscht ein Worksheet über seinen Index
   varXLApp.WorkBooks[1].WorkSheets['Tabelle3'].Delete;      // löscht ein Worksheet über seinen Namen
   ...
end;


Worksheet aktivieren

begin
   ...
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Activate;
   ...
end;


Hintergrundbild einfügen

Um ein Hintergrundbild in ein Worksheet einzufügen gibt es mehrere Möglichkeiten.

begin
   ...
   //  Um das richtige Worksheet zu addressieren verwendet man den Index von Workbook und Worksheet
   varXLApp.WorkBooks[1].WorkSheets[1].SetBackGroundPicture('D:\Testbild.JPG');
   // Alternative
   // Um das richtige Worksheet zu addressieren verwendet man die Namen von Workbook und Worksheet
   varXLApp.WorkBooks['Test.xls'].WorkSheets['Tabelle2'].SetBackGroundPicture('D:\Testbild.JPG');
   ...
end;


Zeilen und Spalten

Zeilenbreite und Spaltenhöhe setzen

begin
   ...
   // Setzt die Spaltenbreite für Spalte 1
   varXLApp.WorkBooks[1].WorkSheets[1].Columns.Columns[1].ColumnWidth := 70;
   // oder
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Columns.Columns[1].ColumnWidth := 70;

   // Setzt die Spaltenhöhe für Zeile 1
   varXLApp.WorkBooks[1].WorkSheets[1].Rows.Rows[1].RowHeight := 60;
   // oder
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Rows.Rows[1].RowHeight := 60;
   ...
end;


Zeilen löschen

begin
   ...
   // Löscht die Zeilen  8 bis 10 und verschiebt die darunter liegenden Zeilen nach oben
   varXLWb.Worksheets['Tabelle2'].Rows['8:10'].Delete (xlUp);
   ...
end;


Zellen und Ranges

Autofilter setzen

begin
   ...
   // setzt den Autofilter auf die erste Zeile
   varXLApp.WorkBooks[1].WorkSheets[1].Rows.Rows[1].AutoFilter;
   ...
end;


Rahmen zeichnen

begin
   ...
   // Zeichnet einen Rahmen um den Bereich "B2:C3"
   // Der Parameter BorderAround hat folgende Syntax: BorderAround(Linienstil, Linenstärke, Farbe)
   varXLApp.WorkBooks[1].WorkSheets[1].Range['B2:C3'].BorderAround(1, 2, 1);
   ...
end;


Hyperlinks und URLS einfügen

begin
   ...
   // Fügt eine URL in Zelle "A2" in Sheet 2 ein
   // Alternative 1
   varXLApp.WorkBooks[1].Worksheets[2].Hyperlinks.add(
     varXLApp.WorkBooks[1].Worksheets[2].Cells[2, 1], 'http://www.google.de');
   // Alternative 2
   varXLApp.WorkBooks[1].worksheets[2].Cells[2,1].Formula := '=HYPERLINK("http://www.google.de")';

   // Fügt eine Emailadresse als Formel in Zelle "A3" in Sheet 2 ein
   varXLApp.WorkBooks[1].worksheets[2].Cells[3,1].Formula := '=HYPERLINK("mailto:test.testmann.@test.com","Email")';
   ...
end;


Wert einfügen

Um einen oder mehrere Werte in einen Bereich einzufügen gibt es verschiedene Möglichkeiten.

begin
  ...
  // Alternative 1
  varXLApp.WorkBooks[1].WorkSheets[1].Range['A5'].Value := 3;
  varXLApp.WorkBooks[1].WorkSheets[1].Range['A6'].Value := 3;
  varXLApp.WorkBooks[1].WorkSheets[1].Range['A7'].Value := 3;

  // Alternative 2
  varXLApp.WorkBooks[1].WorkSheets[1].Range['A5', 'A7'].Value := 3;

  // Alternative 3
  wstrRange := UTF8ToUTF16('A' + IntToStr(5) + ':A' + IntToStr(7));
  varXLApp.WorkBooks[1].WorkSheets[1].Range[wstrRange].Value := 3;

  // Alternative 4
  varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Range['A5', 'A7'].Value := 3;

  // Alternative ...
  ...

  // Übernimmt Umlaute usw. und benötigt dafür die Unit lclproc
  varXLApp.WorkSheets[1].Range['A15'].Value := UTF8ToUTF16('Überlegung');
  // Diese Vorgehensweise zur Verwendung von Umlauten ist sicherer
  wstrUebergabe := UTF8ToUTF16('Überlegung');
  varXLApp.WorkSheets[1].Range['A15'].Value := wstrUebergabe;

  // Ermittelt die letzte Zeile und schreibt diese in Zeile 1 der Spalte F
  varXLWb.Worksheets['Tabelle2'].Range['F1'].Value :=
    varXLWb.Worksheets['Tabelle2'].UsedRange.SpecialCells(xlCellTypeLastCell).Row;
  // schreibt Text in die Zeile 1 der Spalte B
  varXLWb.Worksheets['Tabelle2'].Cells[1, 2].Value := 'Test';
   ...
end;


Formel einfügen

begin
   ...
   // Alternative 1
   varXLApp.WorkBooks[1].worksheets[2].Cells[6,3].Formula := '=Sum(A5:A7)';
   // Alternative 2
   varXLApp.WorkBooks[1].WorkSheets[2].Range['C6'].Formula := '=Sum(A5:A7)';
   ...
end;


Arbeiten mit Schriften

begin
   ...
   // Legt die Schriftart fest
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Name := 'Arial';
   // Legt die Schriftgröße fest
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Size := 20;
   // Legt die Fettschrift fest
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Bold := True;
   //Legt die Kursivschrift fest
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Italic := True;
   // Unterstreicht den Eintrag
   varXLApp.WorkBooks[1].WorkSheets['Tabelle1'].Cells[1, 1].Font.Underline := True;
   ...
end;


Chart erstellen

Die Beispiele gehen davon aus, dass das Excelobjekt (varXLApp) bereits existiert und die Exceldatei geöffnet ist.

Chart Speicher reservieren

var
   varDiagramm: OleVariant;


Chart Speicher freigeben

begin
   ...
   varDiagramm := UnAssigned;
   ...
end;


Chart Objekt erstellen

begin
   ...
   varDiagramm := varXLApp.Charts.Add; // Fügt ein Chart ein
   ...
end;


Chart aktivieren

begin
   ...
   varDiagramm.Activate; // Aktiviert das Chart
   ...
end;


Chart Diagramtyp festlegen

begin
   ...
   varDiagramm.ChartType := xlColumnClustered; // Legt den Diagramtyp fest
   ...
end;


Chart Datenherkunft (Datenquelle) festlegen

begin
   ...
   varDiagramm.SetSourceData (Source := varXLApp.WorkSheets['Tabelle1'].Range['A1:E13'],
                           PlotBy := xlColumns);  // Legt die Datenherkunft (das Excelsheet und den Bereich im Excelsheet) fest
   ...
end;


Chart verschieben

begin
   ...
   // Diagramm im selben Tabellenblatt wie die Datentabelle.
   varDiagramm.Location (Where := xlLocationAsObject, Name:= 'Tabelle1');
   ...
end;


Chart Titel

begin
   ...
   varXLApp.Worksheets[1].ChartObjects[1].Chart.HasTitle := True; // Legt fest, dass das Chart einen Titel haben darf
   varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
                                   .Characters.Text := 'Test';    // Legt den Namen des Chart Titels fest
   varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
                                   .Font.Color := vbRed;          // Legt die Schriftfarbe des Diagrammtitels fest
   varXLApp.Worksheets[1].ChartObjects[1].Chart.ChartTitle
                                   .Interior.Color := vbCyan;     // Legt die Hintergrundarbe des Diagrammtitels fest
   ...
end;


Chart Achsenbeschriftung

begin
  ...
  // Legt fest, dass das Chart Achsen hat
  varXLApp.Worksheets[1].ChartObjects[1].Chart.HasAxis(xlCategory) := True;

  // Legt die Schriftfarbe der Achsenkategorie fest
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlCategory).TickLabels
    .Font.Color := vbBlue;

  // Legt fest, dass das Chart eine Achsenbeschriftung haben darf
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).HasTitle:= True;

  // Legt den Achsentitel fest
  // Ermöglicht das Schreiben des Eurozeichens
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
    .Characters.Text := UTF8ToUTF16('€');

  // Diese Schreibweise des Eurozeichens ist sicherer
  wstrUebergabe := UTF8ToUTF16('€');
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes[xlValue].AxisTitle
    .Characters.Text := wstrUebergabe;


  // Legt die Schriftfarbe des Achsentitels fest
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).AxisTitle
    .Font.Color := vbBlue;

  // Legt die Schriftgrösse des Achsentitels fest
  varXLApp.Worksheets[1].ChartObjects[1].Chart.Axes(xlValue).AxisTitle
    .Font.Size := 12;
   ...
end;


Chart Legende

begin
  ...
  //Legt die Beschriftung des ersten Elements der Chartlegende fest
  varXLApp.Worksheets[1].ChartObjects[1].Chart.SeriesCollection(1)
    .Name := '="Eins"';
   ...
end;

Auszug aus den Excelkonstanten

unit uXLConst;

interface

const
// Klasse XlSheetType
xlChart = -4109;
xlDialogSheet = -4116;
xlExcel4IntlMacroSheet = 4;
xlExcel4MacroSheet = 3;
xlWorksheet = -4167;

// Klasse XlWBATemplate
xlWBATChart = -4109;
xlWBATExcel4IntlMacroSheet = 4;
xlWBATExcel4MacroSheet = 3;
xlWBATWorksheet = -4167;

// Klasse XlPattern
xlPatternAutomatic = -4105;
xlPatternChecker = 9;
xlPatternCrissCross = 16;
xlPatternDown = -4121;
xlPatternGray16 = 17;
xlPatternGray25 = -4124;
xlPatternGray50 = -4125;
xlPatternGray75 = -4126;
xlPatternGray8 = 18;
xlPatternGrid = 15;
xlPatternHorizontal = -4128;
xlPatternLightDown = 13;
xlPatternLightHorizontal = 11;
xlPatternLightUp = 14;
xlPatternLightVertical = 12;
xlPatternNone = -4142;
xlPatternSemiGray75 = 10;
xlPatternSolid = 1;
xlPatternUp = -4162;
xlUp = -4162;
xlPatternVertical = -4166;

// Klasse XlBordersIndex
xlInsideHorizontal = 12;
xlInsideVertical = 11;
xlDiagonalDown = 5;
xlDiagonalUp = 6;
xlEdgeBottom = 9;
xlEdgeLeft = 7;
xlEdgeRight = 10;
xlEdgeTop = 8;

// Klasse XlLineStyle
xlContinuous = 1;
xlDash = -4115;
xlDashDot = 4;
xlDashDotDot = 5;
xlDot = -4118;
xlDouble = -4119;
xlSlantDashDot = 13;
xlLineStyleNone = -4142;

// Klasse XlChartType
xlColumnClustered = 51;
xlColumnStacked = 52;
xlColumnStacked100 = 53;
xl3DColumnClustered = 54;
xl3DColumnStacked = 55;
xl3DColumnStacked100 = 56;
xlBarClustered = 57;
xlBarStacked = 58;
xlBarStacked100 = 59;
xl3DBarClustered = 60;
xl3DBarStacked = 61;
xl3DBarStacked100 = 62;
xlLineStacked = 63;
xlLineStacked100 = 64;
xlLineMarkers = 65;
xlLineMarkersStacked = 66;
xlLineMarkersStacked100 = 67;
xlPieOfPie = 68;
xlPieExploded = 69;
xl3DPieExploded = 70;
xlBarOfPie = 71;
xlXYScatterSmooth = 72;
xlXYScatterSmoothNoMarkers = 73;
xlXYScatterLines = 74;
xlXYScatterLinesNoMarkers = 75;
xlAreaStacked = 76;
xlAreaStacked100 = 77;
xl3DAreaStacked = 78;
xl3DAreaStacked100 = 79;
xlDoughnutExploded = 80;
xlRadarMarkers = 81;
xlRadarFilled = 82;
xlSurface = 83;
xlSurfaceWireframe = 84;
xlSurfaceTopView = 85;
xlSurfaceTopViewWireframe = 86;
xlBubble = 15;
xlBubble3DEffect = 87;
xlStockHLC = 88;
xlStockOHLC = 89;
xlStockVHLC = 90;
xlStockVOHLC = 91;
xlCylinderColClustered = 92;
xlCylinderColStacked = 93;
xlCylinderColStacked100 = 94;
xlCylinderBarClustered = 95;
xlCylinderBarStacked = 96;
xlCylinderBarStacked100 = 97;
xlCylinderCol = 98;
xlConeColClustered = 99;
xlConeColStacked = 100;
xlConeColStacked100 = 101;
xlConeBarClustered = 102;
xlConeBarStacked = 103;
xlConeBarStacked100 = 104;
xlConeCol = 105;
xlPyramidColClustered = 106;
xlPyramidColStacked = 107;
xlPyramidColStacked100 = 108;
xlPyramidBarClustered = 109;
xlPyramidBarStacked = 110;
xlPyramidBarStacked100 = 111;
xlPyramidCol = 112;
xl3DColumn = -4100;
xlLine = 4;
xl3DLine = -4101;
xl3DPie = -4102;
xlPie = 5;
xlXYScatter = -4169;
xl3DArea = -4098;
xlArea = 1;
xlDoughnut = -4120;
xlRadar = -4151;

// Klasse Constants
xlAll = -4104;
xlAutomatic = -4105;
xlBoth = 1;
xlCenter = -4108;
xlChecker = 9;
xlCircle = 8;
xlCorner = 2;
xlCrissCross = 16;
xlCross = 4;
xlDiamond = 2;
xlDistributed = -4117;
xlDoubleAccounting = 5;
xlFixedValue = 1;
xlFormats = -4122;
xlGray16 = 17;
xlGray8 = 18;
xlGrid = 15;
xlHigh = -4127;
xlInside = 2;
xlJustify = -4130;
xlLightDown = 13;
xlLightHorizontal = 11;
xlLightUp = 14;
xlLightVertical = 12;
xlLow = -4134;
xlManual = -4135;
xlMinusValues = 3;
xlModule = -4141;
xlNextToAxis = 4;
xlNone = -4142;
xlNotes = -4144;
xlOff = -4146;
xlOn = 1;
xlPercent = 2;
xlPlus = 9;
xlPlusValues = 2;
xlSemiGray75 = 10;
xlShowLabel = 4;
xlShowLabelAndPercent = 5;
xlShowPercent = 3;
xlShowValue = 2;
xlSimple = -4154;
xlSingle = 2;
xlSingleAccounting = 4;
xlSolid = 1;
xlSquare = 1;
xlStar = 5;
xlStError = 4;
xlToolbarButton = 2;
xlTriangle = 3;
xlGray25 = -4124;
xlGray50 = -4125;
xlGray75 = -4126;
xlBottom = -4107;
xlLeft = -4131;
xlRight = -4152;
xlTop = -4160;
xl3DBar = -4099;
xl3DSurface = -4103;
xlBar = 2;
xlColumn = 3;
xlCombination = -4111;
xlCustom = -4114;
xlDefaultAutoFormat = -1;
xlMaximum = 2;
xlMinimum = 4;
xlOpaque = 3;
xlTransparent = 2;
xlBidi = -5000;
xlLatin = -5001;
xlContext = -5002;
xlLTR = -5003;
xlRTL = -5004;
xlVisualCursor = 2;
xlLogicalCursor = 1;
xlSystem = 1;
xlPartial = 3;
xlHindiNumerals = 3;
xlBidiCalendar = 3;
xlGregorian = 2;
xlComplete = 4;
xlScale = 3;
xlClosed = 3;
xlColor1 = 7;
xlColor2 = 8;
xlColor3 = 9;
xlConstants = 2;
xlContents = 2;
xlBelow = 1;
xlCascade = 7;
xlCenterAcrossSelection = 7;
xlChart4 = 2;
xlChartSeries = 17;
xlChartShort = 6;
xlChartTitles = 18;
xlClassic1 = 1;
xlClassic2 = 2;
xlClassic3 = 3;
xl3DEffects1 = 13;
xl3DEffects2 = 14;
xlAbove = 0;
xlAccounting1 = 4;
xlAccounting2 = 5;
xlAccounting3 = 6;
xlAccounting4 = 17;
xlAdd = 2;
xlDebugCodePane = 13;
xlDesktop = 9;
xlDirect = 1;
xlDivide = 5;
xlDoubleClosed = 5;
xlDoubleOpen = 4;
xlDoubleQuote = 1;
xlEntireChart = 20;
xlExcelMenus = 1;
xlExtended = 3;
xlFill = 5;
xlFirst = 0;
xlFloating = 5;
xlFormula = 5;
xlGeneral = 1;
xlGridline = 22;
xlIcons = 1;
xlImmediatePane = 12;
xlInteger = 2;
xlLast = 1;
xlLastCell = 11;
xlList1 = 10;
xlList2 = 11;
xlList3 = 12;
xlLocalFormat1 = 15;
xlLocalFormat2 = 16;
xlLong = 3;
xlLotusHelp = 2;
xlMacrosheetCell = 7;
xlMixed = 2;
xlMultiply = 4;
xlNarrow = 1;
xlNoDocuments = 3;
xlOpen = 2;
xlOutside = 3;
xlReference = 4;
xlSemiautomatic = 2;
xlShort = 1;
xlSingleQuote = 2;
xlStrict = 2;
xlSubtract = 3;
xlTextBox = 16;
xlTiled = 1;
xlTitleBar = 8;
xlToolbar = 1;
xlVisible = 12;
xlWatchPane = 11;
xlWide = 3;
xlWorkbookTab = 6;
xlWorksheet4 = 1;
xlWorksheetCell = 3;
xlWorksheetShort = 5;
xlAllExceptBorders = 6;
xlLeftToRight = 2;
xlTopToBottom = 1;
xlVeryHidden = 2;
xlDrawingObject = 14;

// Klasse XLPlacement
xlMoveAndSize = 1;
xlMove = 2;
xlFreeFloating = 3;

// Klasse XlRowCol
xlRows = 1;
xlColumns = 2;

// Klasse XlChartLocation
xlLocationAsNewSheet = 1;
xlLocationAsObject = 2;
xlLocationAutomatic = 3;

// Klasse XlAxisType
xlCategory = 1;
xlValue = 2;
xlSeriesAxis = 3;

// Klasse ColorConstants
vbBlack = 0;
vbBlue = 16711680;
vbCyan = 16776960;
vbGreen = 65280;
vbMagenta = 16711935;
vbRed = 255;
vbWhite = 16777215;
vbYellow = 65535;

// Klasse XlCellType
xlCellTypeAllFormatConditions = -4172;
xlCellTypeAllValidation = -4174;
xlCellTypeBlanks = 4;
xlCellTypeComments = -4144;
xlCellTypeConstants = 2;
xlCellTypeFormulas = -4123;
xlCellTypeLastCell = 11;
xlCellTypeSameFormatConditions = -4173;
xlCellTypeSameValidation = -4175;
xlCellTypeVisible = 12;

// Klasse XLAxisGroup
xlPrimary = 1;
xlSecondary = 2;

implementation

end.