[Gelöst]Excel Buffer Merge

[hen.klemp]

Hi

Ich versuche grade bei einem Excel export 4 Zellen zu Mergen hab damit aber keinen erfolg.
hab hier und auf Mibuso gelsen das ich das in eine eigene Methode Packen muss und an geeigneter Stelle wieder aufrufen muss.
Das habe ich auch so weit getan aber das will nicht so wie ich will (Bin noch nicht lange Dabei).

Könnte einer wenn möglich mir mal einen Quellcode Posten wo das richtig funktionier.

MFG

Zuletzt geändert von hen.klemp am 13. Oktober 2008 08:52, insgesamt 1-mal geändert.

Hi,

wir haben das so gemacht.
Neue Funktion setMergeField() in Excel Buffer Tabelle:

Code:

// setMergeField()
// Parameters:  tRange text 30
// Variables:  index integer
index := 0;
REPEAT
  index += 1;
UNTIL toMerge[index] = '';
toMerge[index] := tRange;


Diese Funktion rufst du dann im Objekt auf, wo die Excelausgabe sein soll.

Im CreateSheet() wird dann auf das in der neuen Funktion befuellte Array zugegriffen (siehe Code) und die Felder zusammengefuehrt.

Code:

 ...
 ...
  IF toMerge[1] <> '' THEN BEGIN
   mergearrayindex := 1;
   REPEAT
     XlWrkSht.Range(toMerge[mergearrayindex]).Merge;
     mergearrayindex += 1;
   UNTIL toMerge[mergearrayindex] = '';
   CLEAR(toMerge);
  END;
 ...
 ...


Gruesse
feri

Erst mal danke für die Schnelle Antwort.

Wie sieht den der Parameter aus mit dem ich die Funktion aufrufe ich hab es mit A1:D1 Probiert aber da Passiert nichts bekomme auch keine Fehlermeldung???

//EDIT
Hat sich erledigt ich hatte den Funktions aufruf an der Falschen stelle