CalcAutomation/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	\
2	1		Zurück zur [[Office Automation/de\|Office Automation]].\
3		-	\
4		-	\
	2	+
5	3		=Calc=\
6	4		==Benötigte Units==
7	5
8	6		``` pascal
9	7		uses
10	8		..., ComObj, Variants, LazUtf8, ...;
11	9		```
12	10
13	11		# Aufbau einer Steuerung für die Anwendung Calc
14	12
15		-	\
16	13		==Erstellen eines neuen Sheets und Speichern unter einem neuen Namen==
17	14
18	15		``` pascal
19	16
20	17		...
21	18		var
22	19		// Reservieren des Speichers
23	20		varCLApp: OleVariant;
24	21		varDesktop: OleVariant;
25	22		varSheets: OleVariant;
26	23		varSheet1: OleVariant;
27	24		varDokument: OleVariant;
28	25		varLoadParams: OleVariant;
29	26		strDateiname: shortstring; // nur Literale und Shortstrings sind automatisierbar
30	27
31	28		begin
32	29		// Erstellt das OleObjekt und erstellt den Zeiger darauf
33	30		varCLApp := CreateOleObject('com.sun.star.ServiceManager');
34	31
35	32		// Erstellt den Zeiger auf den Officedesktop
36	33		varDesktop := varCLApp.createInstance('com.sun.star.frame.Desktop');
37	34		// Erstellt ein leeres Array das für die Dokumentenerstellung benötigt wird
38	35		varLoadParams := VarArrayCreate([0, -1], varVariant);
39	36		// Erstellt ein neues (leeres) Dokument (Workbook) und setzt den Zeiger darauf
40	37		varDokument := varDesktop.LoadComponentFromURL('private:factory/scalc','_blank',0, varLoadParams);
41	38		// Erstellt den Zeiger auf die Sheets
42	39		varSheets := varDokument.getSheets();
43	40		// Erstellt den Zeiger auf ein einzelnes Sheet
44	41		varSheet1 := varSheets.getByIndex(0);
45	42
46	43		...
47	44
48	45		// Variante 1:
49	46		// Speichert das Dokument unter einem neuen Namen
50	47		varDokument.StoreAsURL('file:///D:/test.ods', varLoadParams);
51	48
52	49		// Variante 2:
53	50		// Speichert das Dokument mit Umlauten im neuen Dateinamen
54	51		strDateiname := 'file:///D:/' + Utf8ToSys('täst.ods');
55	52		varDokument.StoreAsURL(strDateiname, varLoadParams);
56	53
57	54		// Schliesst das Dokument
58	55		varDokument.close(True);
59	56		//Beendet die Anwendung
60	57		varDesktop.terminate;
61	58
62	59		// Freigabe des Speichers
63	60		varCLApp := UnAssigned;
64	61		varDesktop := UnAssigned;
65	62		varSheets := UnAssigned;
66	63		varSheet1 := UnAssigned;
67	64		varDokument := UnAssigned;
68	65		varLoadParams := UnAssigned;
69	66		end;
70	67		```
71	68
72		-	\
73		-
74	69		## Öffnen eines vorhandenen Sheets und Speichern des Sheets
75	70
76	71		``` pascal
77	72		...
78	73		var
79	74		varCLApp: OleVariant;
80	75		varDesktop: OleVariant;
81	76		varSheets: OleVariant;
82	77		varSheet1: OleVariant;
83	78		varDokument: OleVariant;
84	79		varLoadParams: OleVariant;
85	80
86	81		begin
87	82		// Erstellt das OleObjekt und erstellt den Zeiger darauf
88	83		varCLApp := CreateOleObject('com.sun.star.ServiceManager');
89	84		// Erstellt den Zeiger auf den Officedesktop
90	85		varDesktop := varCLApp.createInstance('com.sun.star.frame.Desktop');
91	86		// Erstellt ein leeres Array das für die Dokumentenerstellung benötigt wird
92	87		varLoadParams := VarArrayCreate([0, -1], varVariant);
93	88		// Öffnet ein vorhandenes Dokument (Workbook) und setzt den Zeiger darauf
94	89		varDokument := varDesktop.LoadComponentFromURL('file:///D:/TestDatei.ods','_blank',0, varLoadParams);
95	90		// Erstellt den Zeiger auf die Sheets
96	91		varSheets := varDokument.getSheets();
97	92		// Erstellt den Zeiger auf ein einzelnes Sheet
98	93		varSheet1 := varSheets.getByIndex(0);
99	94
100	95		...
101	96
102	97		// Speichert die Datei unter ihrem aktuellen Namen
103	98		varDokument.store;
104	99		varDokument.close(True);
105	100		varDesktop.terminate; //Beendet die Anwendung
106	101
107	102		varCLApp := UnAssigned;
108	103		varDesktop := UnAssigned;
109	104		varSheets := UnAssigned;
110	105		varSheet1 := UnAssigned;
111	106		varDokument := UnAssigned;
112	107		varLoadParams := UnAssigned;
113	108		end;
114	109		```
115	110
116		-	\
117		-
118	111		# Zellen und Ranges
119	112
120		-	\
121	113		==Zellen adressieren== Beide Adressierungsmethoden sprechen die selbe Zelle an und liefern damit das selbe Ergebnis.\
122	114
123	115		``` pascal
124	116		...
125	117		// Schreibt in einen Bereich (eine Zelle) einen Wert
126	118		// Der Berich ist der Name der Zelle z. B. A1
127	119		varSheet1.getCellRangeByName('A1').setString('Txt 1');
128	120		// schreibt in eine Zelle einen Wert
129	121		// die Zählung der Zellen begint bei (0,0)
130	122		// die Schreibweise lautet (Spalte, Zeile)
131	123		varSheet1.getCellByPosition(0,0).setString('Txt 1');
132	124		...
133	125		```
134	126
135		-	\
136		-
137	127		## Arbeiten mit Umlauten
138	128
139	129		Für die Verwendung von Umlauten usw. muss für die Stringkonvertierung die Unit lclproc eingebunden werden.
140	130
141	131		``` pascal
142	132		var
143	133		...
144	134		// zu beachten ist, dass der Übergabestring vom Datentyp Widestring sein muss
145	135		wstrUebergabe: WideString;
146	136		...
147	137		begin
148	138		...
149	139		// ohne den Puffer 'wstrUebergabe' kommt es bei der Verwendung von 'UTF8ToUTF16' zu Fehlern
150	140		wstrUebergabe := UTF8ToUTF16('Bücher');
151	141		varSheet1.getCellRangeByName('B2').setString(wstrUebergabe);
152	142		// die Schreibweise:
153	143		// varSheet1.getCellRangeByName('B2').setString(Utf8ToUtf16('Bücher'));
154	144		// führt zu Fehlern
155	145		...
156	146		end;
157	147		```
158	148
159		-	\
160	149		==Strings einfügen==
161	150
162	151		``` pascal
163	152		var
164	153		...
165	154		// Hilfsvariable
166	155		wstrUebergabe: WideString;
167	156		begin
168	157		...
169	158		wstrUebergabe := utf8toutf16('Bücher');
170	159		varSheet1.getCellRangeByName('B2').setString(wstrUebergabe);
171	160		wstrUebergabe := utf8toutf16('Lesezeichen');
172	161		varSheet1.getCellRangeByName('B3').setString(wstrUebergabe);
173	162		...
174	163		end;
175	164		```
176	165
177		-	\
178		-
179	166		## Zahlen einfügen
180	167
181	168		``` pascal
182	169		var
183	170		...
184	171		// Hilfsvariable
185	172		wstrUebergabe: WideString;
186	173		begin
187	174		...
188	175		varSheet1.getCellRangeByName('C2').setValue(4);
189	176		varSheet1.getCellRangeByName('C3').setValue(1);
190	177		varSheet1.getCellRangeByName('C4').setValue(2);
191	178		...
192	179		end;
193	180		```
194		-
195		-	\
196	181
197	182		## Formeln einfügen
198	183
199	184		``` pascal
200	185		var
201	186		...
202	187		// Hilfsvariable
203	188		wstrUebergabe: WideString;
204	189		begin
205	190		...
206	191		wstrUebergabe := utf8toutf16('=C2*D2');
207	192		varSheet1.getCellRangeByName('E2').setFormula(wstrUebergabe);
208	193		wstrUebergabe := utf8toutf16('=C3*D3');
209	194		varSheet1.getCellRangeByName('E3').setFormula(wstrUebergabe);
210	195		wstrUebergabe := utf8toutf16('=C4*D4');
211	196		varSheet1.getCellRangeByName('E4').setFormula(wstrUebergabe);
212	197		...
213	198		end;
214	199		```
215	200
216	201		---
217	202		From the Free Pascal wiki, page "CalcAutomation/de", as it stood on 2020-02-10 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history