run-time error '429'

[Joel Vieira 0]

Senhores

Estou necessitado de um help!

Como corrigir o erro 429 : "ActiveX component can't create object"?

 

Para melhor ambientar o problema:

Estou realizando algumas atualizações em um software que utiliza recursos do pacote office.

O erro ocorre ao tentar copiar uma tabela no excel, utilizei o comando "Selection.Copy" de acordo com o VBA.

Examinando o trecho de codigo separadamente, ou seja, crie uma aplicação isolada apenas realizando esta operação de copiar e colar nao obtive nenhum tipo de erro. Tanto no VB6, VBA e VB.Net o execultavel funcionou corretamente.

 

 

 

[KhaosDoctor 242]

E o que você fez no seu projeto para que ele deixasse de funcionar?

[Joel Vieira 0]

KhaosDoctor

 

Bem! Ele nunca funcionou

No projeto já existia comandos usados para automatizar ações via VBA. Ex: ActiveCell.FormulaR1C1

Eu apenas acrescentei ao projeto uma função contendo o seguinte trecho de codigo

 

Sheets("PlanB").Select
Linha = ActiveCell.Row
Coluna = ActiveCell.Column
Sheets("PlanA").Select
Range("A1:I48").Select
Selection.Copy
Sheets("PlanB").Select
Range("A" & Linha + 3).Select
ActiveSheet.Paste
Range(Coluna & ":" & Linha + 5).Select

 

[KhaosDoctor 242]

Você está usando algum componente do ActiveX?

[Joel Vieira 0]

É necessario referenciar a instrução ao objeto Excel.Application

 

Ex: Dim xl as Object

set xl = CreateObject("Excel.Application")

 

xl.Selection.Copy