Come copiare una stringa da una applicazione e incollarlo in un'altra Con Visual Basic

Avere la conoscenza su come copiare i dati da una applicazione e incollarlo in un altro si può risparmiare tempo quando si lavora con applicazioni diverse . È possibile utilizzare gli Appunti per copiare i dati e incollarlo in un'altra applicazione utilizzando Visual Basic.NET . La clipboard è un insieme di funzioni che tutte le applicazioni hanno accesso, rendendo semplice per trasferire i dati tra di loro . Visual Basic è un linguaggio di programmazione Microsoft che è relativamente facile da usare . Istruzioni
1

Avviare Visual Basic.NET e creare un nuovo progetto " Applicazione Windows Form " . Aggiungere un " TextBox " e due " pulsanti " per la forma .
2

Fare clic su " Progetto" nel menu "File" e selezionare " Proprietà" . Selezionare " References" nel riquadro di sinistra e fare clic su " Aggiungi ... " . Fare clic sulla scheda " COM " , selezionare " 12.0 Libreria oggetti di Microsoft Excel " e fare clic su " OK" .

3 Fare doppio clic sul form per aprire il modulo " Form1.vb " . In Tipo " Form1 Load " la seguente per aggiungere una stringa di testo nella casella di testo :

Me.TextBox1.Text = " Ho copiato questa stringa da un'applicazione VB e incollato in Microsoft Excel ".

4

click " Form1.vb [ design] " scheda e fare doppio clic su " Button1 " . Digitare quanto segue in " Button1_Click " per copiare la stringa negli appunti :

Dim obj As New Process

Clipboard.SetDataObject ( Me.TextBox1.Text ) economici 5

Digitare il seguente fino alla cima del vostro modulo " Form1.vb " :

Importazioni Microsoft.Office.Interop.Excel
6

Click " Form1.vb [ design] " scheda e fare doppio clic su " Button2 " . Digitare quanto segue per creare un nuovo foglio di calcolo , aprirlo e incollare la stringa copiata negli appunti dall'applicazione VB:

Dim objClipbrd Come IDataObject = Clipboard.GetDataObject ( ) per

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

Dim objBks Come Microsoft.Office.Interop.Excel.Workbooks = Nothing

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

Dim objShts Come Microsoft.Office.Interop.Excel.Sheets = Nothing

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

objXL = Nuovo 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

objClipbrd

. GetDataPresent ( DataFormats.Text ) Poi

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

End If End With

7

Eseguire il programma e fare clic su " Button1 " per copiare la stringa visualizzata nella casella di testo . Clicca su " Button2 " per aprire un nuovo foglio di calcolo di Excel e incollare la stringa .

• Come inserire il testo in un documento di Word in VBA 
• Come modificare il Registro di sistema in VBScript