RemoveDuplicates

[Reginaldo Leandro]

Has anyone used Excel's RemoveDuplicates method in Progress 4GL? Could you tell me what the syntax is? Example in VBA ActiveSheet.Range("A1:C100").RemoveDuplicates Columns:=Array(1,2), Header:=xlYes

 

[Reginaldo Leandro]

Here is what I have tried in Progress 4gl:

PROCEDURE pi-elimina-duplicata:

DEFINE VARIABLE v-chr-excel-application AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE v-chr-work-book AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE v-chr-work-sheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE v-chr-range AS CHARACTER NO-UNDO.
DEFINE VARIABLE v-int-line AS INTEGER NO-UNDO INITIAL 1.
DEFINE VARIABLE v-int-ultimalinha AS INTEGER NO-UNDO.
DEFINE VARIABLE v-coluna-a AS CHARACTER FORMAT "X(20)".
DEFINE VARIABLE v-coluna-b AS CHARACTER FORMAT "X(20)".
DEFINE VARIABLE v-coluna-c AS CHARACTER FORMAT "X(20)".

CREATE 'excel.application':U v-chr-excel-application.
v-chr-excel-application:VISIBLE = TRUE.
ASSIGN
v-chr-work-book = v-chr-excel-application:Workbooks:OPEN(c-nome-arquivo) v-chr-work-sheet = v-chr-excel-application:Sheets:ITEM(1)
v-int-ultimalinha = v-chr-excel-application:Activesheet:Usedrange:Rows:COUNT
.

/* v-chr-work-sheet:Range("$A$1:$AC$568"):RemoveDuplicates:COLUMNS:Array(1, 2, 3, 4, 5, 6, , 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29):HEADER:xlYes. */

v-chr-work-sheet:UsedRange:RemoveDuplicates("A:AC",1) /* ("1, 2, 3, 4, 5, 6, , 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29", YES) */.

/* Range(“A1:C8”).RemoveDuplicates Columns:=1, Header:=xlYes */

v-chr-excel-application:Workbooks:APPLICATION:QUIT.

RELEASE OBJECT v-chr-excel-application NO-ERROR.
RELEASE OBJECT v-chr-work-sheet NO-ERROR.
RELEASE OBJECT v-chr-work-book NO-ERROR.

END PROCEDURE.

 

[x_jeferson]

try here this:
Plan Exemple

v-chr-work-sheet:Range("A1:B12"):RemoveDuplicates(1,1).

where param (1,1)

1. first param = is the column you should consider to compare.
2. second param = 1yes or 2no consider header or not.

Exemple One: Not consider header

v-chr-work-sheet:Range("A1:B12"):RemoveDuplicates(1,1).

Exemple Two: Consider header

v-chr-work-sheet:Range("A1:B12"):RemoveDuplicates(1,2).

 

[Rob Fitzpatrick]

The original poster's issue is trying to do this when the first parameter is an array, i.e. multiple columns, rather than one column.