|
|
Postada em 12/01/2007 15:49 hs
Alguem sabe como pegar o texto selecionado dentro de um Textbox e armazenar na area de transferencia? Segue abaixo a programação que já fiz, preciso copiar este texto selecionado e colar numa celula do excel. Agradeço a ajuda. Private Sub CommandButon1_click() TextBox1.Activate End Sub Private Sub TextBox1_Got Focus() TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) End Sub |
|
TÓPICO EDITADO
|
|
|
|
|
|
|
|
Postada em 12/01/2007 19:39 hs
Tenta ae! Clipboard.SetText Text1.Text 'joga para a área de transferência temp = Clipboard.GetText() ' pega o texto do clipboard Clipboard.Clear ' limpa o ClipBoard
|
|
|
|
|
|
Postada em 16/01/2007 14:18 hs
Ta faltando alguma coisa ou eu to fazendo errado... quando executo ele depura e para na primeira linha, clipboard.set textbox1.text ... agradeço a paciencia! se quiser te mando por email, me passe seu email por favor. |
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/01/2007 15:07 hs
é Clipboard.SETTEXT e não clipboard.Set |
|
|
|
|
|
Postada em 18/01/2007 14:23 hs
Pois é galera, digitei errado aqui, mas no codigo digitei clipbord.settext, continua não funcionando... não sei se é valido lembrar que este botão e este textbox estão executando dentro do Excel... pq que eu fui inventar isso para o cliente... ah meu deus! |
|
|
|
|
|
Postada em 18/01/2007 19:04 hs
Calma, calma, calma. Em VBA no Excel é QUASE a mesma coisa... Veja ae... Dim MyDataObj As DataObject Set MyDataObj = New DataObject 'Colocar o texto no clipboard do windows
MyDataObj.SetText TextBox1
MyDataObj.PutInClipboard 'Capturar texto do clipboard do windows e colocando em uma célula do excel
MyDataObj.GetFromClipboard
Cells(1, 2) = MyDataObj.GetText() 'Limpa o conteúdo do clipboard do windows
MyDataObj.SetText ""
MyDataObj.PutInClipboard End Sub Falows! |
|
|
|
