Usando a àrea de transferência do windows através do VBA

Dentre os recursos disponíveis no VBA, podemos encontrar uma biblioteca chamada DataObjects.

Trata-se de um conjunto de objetos que podem ser usados para manipular a Área de Transferência do Windows.

Abaixo, seguem os métodos básicos para enviar e receber dados da Área de Transferência do Windows:

Dim dto As New DataObject

‘Envia um conteudo de texto para Área de Transferência
Sub EnviaParaAreaTransferencia(sText As String)
dto.SetText sText
dto.PutInClipboard
End Sub

‘Captura conteudo da Área de Transferência
Sub PegaConteudo()
dto.GetFromClipboard
EnviaParaAreaTransferencia “teste”
MsgBox dto.GetText
End Sub

‘Limpa a Área de Transferência
Sub LimpaAreaTransferencia()
dto.Clear
End Sub

Até a próxima…