Copiar valor de uma tag para a área de transferência do windows

#1

Estou desenvolvendo uma aplicação em que será necessário realizar a cópia do valor de uma tag para a área de transferência do windows via um CommandButton. Pois a informação copiada na aplicação desenvolvida posteriormente será colada (Ctrl+V) manualmente pelo operador em outra aplicação já existente no processo.

Gostaria de saber qual a melhor forma de realizar esse procedimento utilizando script.

#2

Recomento o clip.exe, nativo do windows.

Sub CopyToClipBoard( content )
	With CreateObject("WScript.Shell")
    	.Run "cmd /c echo " & content & "|clip", 0, True
	End With
End Sub

Fonte: https://docs.microsoft.com/en-us/windows-server/administration/windows-commands/clip

EDIT:

Caso o conteúdo a ser copiado possua caracteres de redirecionamento, como | & ^ < > recomendo o uso do powershell.

Sub CopyToClipboard( content )
	With CreateObject("WScript.Shell")
    	.Run "powershell.exe -command ""Set-Clipboard -Value '" & content & "'""", 0, True
	End With
End Sub

Exemplo: copypaste.lib

3 Likes
#3

Funcionou perfeitamente!

Muito obrigado.