Tendo o conhecimento sobre a forma de copiar dados de uma aplicação e colá-lo em outro você pode economizar tempo ao trabalhar com diferentes aplicações. Você pode usar a área de transferência para copiar dados e colá-lo em outro aplicativo usando Visual Basic.NET . A área de transferência é um conjunto de funções que todas as aplicações tenham acesso a , tornando simples para transferir dados entre eles. Visual Basic é uma linguagem de programação da Microsoft que é relativamente fácil de usar. Instruções
1

Comece Visual Basic.NET e criar um novo " Windows Forms Application " do projeto. Adicionar um " TextBox " e dois " botões " para o formulário.
2

Clique em " Project" no menu "Arquivo" e selecione "Propriedades " . Selecione "Referências" no painel esquerdo e clique em " Adicionar ... " . Clique na aba " COM" , selecione " Microsoft Excel 12.0 Object Library " e clique em "OK" .
3

Clique duas vezes no formulário para abrir o módulo " Form1.vb " . Em " Form1_Load " Digite o seguinte para adicionar uma seqüência de texto da caixa de texto :

Me.TextBox1.Text = " . Copiei esta string a partir de uma aplicação VB e colado no Microsoft Excel"
< br > 4

Clique em " Form1.vb [Design ]" guia e clique duas vezes em "Button1 " . Digite o seguinte em " Button1_Click " para copiar a string para o clipboard :

Dim obj As New Processo

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Digite o seguinte para o topo do seu módulo " Form1.vb " :

Importações Microsoft.Office.Interop.Excel
6

Clique em " Form1.vb [Design ]" guia e dê um duplo clique em " Button2 " . Digite o seguinte para criar uma nova planilha , abra-o e cole a string copiados para o clipboard do seu aplicativo VB:

Dim objClipbrd Como IDataObject = Clipboard.GetDataObject ()

Dim objXL Como Microsoft. Office.Interop.Excel.Application = Nothing

Dim objBks Como Microsoft.Office.Interop.Excel.Workbooks = Nada

Dim objBk Como Microsoft.Office.Interop.Excel.Workbook = Nothing

Dim objShts Como Microsoft.Office.Interop.Excel.Sheets = Nada

Dim objSht Como Microsoft.Office.Interop.Excel.Worksheet = Nothing

objXL = Novo Microsoft. Office.Interop.Excel.Application

objXL.Visible = True

objXL.DisplayAlerts = False

objBk = CType ( objXL.Workbooks.Add () , Microsoft.Office . Interop.Excel.Workbook )

objBks = objXL.Workbooks

objSht = CType ( objBks (1). Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet )

objShts = objBk.Worksheets

Com objClipbrd

Se . GetDataPresent ( DataFormats.Text ) Então

objSht.Cells (1, 1) = . GetData ( DataFormats.Text )

End If End With

7

Execute o programa e clique em " Button1 " para copiar a seqüência de caracteres exibida na caixa de texto . Clique em " Button2 " para abrir uma nova planilha do Excel e cole o barbante.