mesclar celulas do excel via forms builder 6i

[fs.edson]

Alguém poderia me ajudar quanto a mesclar celulas no excel?

Att,
Edson

[victorhugomuniz]

se você conseguir essa proeza conta pra gente aí por favor!!



penso eu so ser possivel ter controle disso via VBA..

[victorhugomuniz]

parece que é possivel mas como não sei..

http://glufke.net/oracle/viewtopic.php?t=2046

[fs.edson]

Senhores,

Segue solução para o problema acima.

Selecionar tudo

--GET THE COLUMNS TO MERGE
ARGS := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(ARGS, 'F:H'); --COLUMNS F THRU H
COLUMN := OLE2.GET_OBJ_PROPERTY(WORKSHEET, 'COLUMNS', ARGS);
OLE2.DESTROY_ARGLIST(ARGS);

Abraços,
Edson

[fs.edson]

Um exemplo completo....

for those who want the sample code for merging cells here it is:

Selecionar tudo

/*merge columns f:h, rows 1:5*/
DECLARE
application OLE2.OBJ_TYPE;
workbook OLE2.OBJ_TYPE;
workbooks OLE2.OBJ_TYPE;
worksheet OLE2.OBJ_TYPE;
worksheets OLE2.OBJ_TYPE;
cell OLE2.OBJ_TYPE;
COLUMN OLE2.OBJ_TYPE;
ROW OLE2.OBJ_TYPE;
args OLE2.List_Type;
BEGIN
application := OLE2.CREATE_OBJ('Excel.Application');
OLE2.SET_PROPERTY(application, 'Visible', 'True');
workbooks := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
workbook := OLE2.INVOKE_OBJ(workbooks,'Add');

worksheets := OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet := OLE2.INVOKE_OBJ(worksheets,'Add');

--GET THE COLUMNS TO MERGE
ARGS := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(ARGS,'F:H'); --COLUMNS F THRU H
COLUMN:= OLE2.GET_OBJ_PROPERTY(WORKSHEET,'COLUMNS',ARGS);
OLE2.DESTROY_ARGLIST(ARGS);

--GET THE ROWS OF THE COLUMNS TO MERGE
ARGS := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(ARGS, '1:5'); --ROWS 1 THRU 5
ROW := OLE2.GET_OBJ_PROPERTY(COLUMN, 'ROWS', ARGS);
OLE2.DESTROY_ARGLIST(ARGS);
OLE2.INVOKE(ROW, 'MERGE');

OLE2.RELEASE_OBJ(ROW);
OLE2.RELEASE_OBJ(COLUMN);
OLE2.RELEASE_OBJ(worksheet);
OLE2.RELEASE_OBJ(worksheets);
OLE2.RELEASE_OBJ(workbook);
OLE2.RELEASE_OBJ(workbooks);
OLE2.RELEASE_OBJ(application);
EXCEPTION
WHEN others THEN
OLE2.Release_Obj( application );
message('Error');
END;