[Resolvido]Enviar texto de variável String para a área de transferência

Olá a todos dos fórum!
Em meu projeto tenho a necessidade de enviar um texto que fica armazenado em uma variável do tipo string, enviar de um textbox eu sei que da para utilizar o comando docmd.RunCommand acCmdCopy após mover o foco para o campo, mas não sei como fazer para que seja o texto que está na variável. Tem como fazer isso?

Obrigado

Olá Fabio,

Pelo que eu entendi acredito que seja isso:

Código:



Private Sub NomeDoSeuCampo_GotFocus()
    Me.NomeDoSeuCampo.Value = SuaVariavel
End Sub



É isso

[]'s

FIM

Caro Alexandre, não é isso que preciso, enviar o texto de uma variável para uma textbox eu sei, o que preciso é enviar o texto que esta armazenado na variável para a Área de Transferência do Windows. Seria um Ctrl+c mas do conteúdo da variável.

Ok...entendi.

Tente isso:

Código:



Dim clipboard As New MSForms.DataObject
Dim strContents As String

Set clipboard = New MSForms.DataObject
clipboard.GetText = strContents
clipboard.GetFromClipboard




Não esqueça de marcar a referencia:




Acho que é isso!!

[]'s

FIM

Caro Alexandre eu fiz como me passou mas deu o erro abaixo:

Como ficou meu código

Código:

Dim clipboard As New MSForms.DataObject
Dim strContents  As String

strContents = "Olá " & "*" & Me.txtNomeSocio & "*" & "! Esta mensagem de *CONFIRMAÇÃO* é referente a reserva efetuada em nossa Colônia de Férias de nº: " & "*" & Format(Date, "yyyy") & Me.idReserva & "*" & ". Efetuada dia: " & "*" & Me.txtDataReserva & "*" & _
        ", com Check-In para o dia: " & "*" & Me.txtDataEntrada & "*" & ", saída para o dia: " & "*" & Me.txtDataSaída & "*"

Set clipboard = New MSForms.DataObject
clipboard.GetText = strContents
clipboard.GetFromClipboard

Mensagem de erro:

Bom dia,

Substitua a linha do erro pelas

clipboard.SetText ""& strContents &""
clipboard.PutInClipboard

[]'s

FIM

Caro Alexandre. Fechou!!!! Ficou show, muito obrigado

Valeu Fábio!!!
O fórum agrade

Sucesso !!!