Enviar informação para o Clipboard

[PrinceBahia]

Prezados, não sou expert mas pesquisei bastante e não consegui resolver esse problema. Encontrei algumas sugestões de códigos mas nenhuma funcionou. Cheguei à conclusão que deve ser algum problema de configuração aqui. O código mais simples que achei para executar foi:

Sub PutInRAM()
Dim nOBJ As MSForms.DataObject
Set dtOBJ = New MSForms.DataObject
Dim n As String
Let n = ActiveCell.FormulaR1C1
dtOBJ.SetText s
dtOBJ.PutInClipboard

End Sub

Porém, aparece erro de compilação na segunda linha "o tipo definido pelo usuário não foi definido".

Já cliquei para adicionar a referência Microsoft ActiveX Data Objects 6.1 Library mas não resolveu.

Enfim, solicito ajuda aos "universitários" para resolver esse meu problema.

Obrigado a todos.

[PrinceBahia]

RESOLVIDO!!!

Faltava a Biblioteca "Microsoft Forms 2.0 Object Library"

Inclusive essa opção não aparecia na lista de Referências e tive que ir buscar manualmente o arquivo FM20.dll para adicionar. Depois disso resolveu. Fica como dica para quem precisar disso no futuro.

[webmaster]

joia.png (60.4 KiB) Exibido 1923 vezes