Comando Excel

Pessoal,

Tenho esse código em VBA que faz uma macro no excel:

Código:

Sub Macro1()
'
' Macro1 Macro
' Macro gravada em 12/02/2010 por rsd43246
'

'
    Cells.Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
End Sub

Como eu faria o comando "Selection.SpecialCells(xlCellTypeVisible).Select" no progress ?

Olá.

Naõ pude testar, mas provavelmente seria assim:

objeto:cells:SpecialCells(0/1/2...):copy().

Você sempre substitui o select e selection, como no teu exemplo:

Cells.Select
Selection.SpecialCells(xlCellTypeVisible).Select

= Cells.SpecialCells(xlCellTypeVisible).Select

E depois:

Cells.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

= Cells.SpecialCells(0/1/2...).Copy

Depois substitui os pontos (".") por dois pontos (":"), e antes do "cell", coloca o objeto declarado onde você deu o Excell.Application.

O parametro da função, terá que ser testado 1 a 1, já que parametros iniciados com xl são palavras reservadas do VBA para Excel, no Progress, o primeiro parametro será 1, o segundo 2 e assim por diante, o parametro em branco é representado por 0.

Espero ter ajudado.

Atc. Pulllga