Avendo la conoscenza su come copiare dati da un'applicazione e incollare in un altro può risparmiare tempo quando si lavora con diverse applicazioni. È possibile utilizzare gli Appunti per copiare dati e incollarlo in un'altra applicazione utilizzando Visual Basic.NET. Gli Appunti sono 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 di Microsoft che è relativamente facile da usare.

Istruzioni

1

Avviare Visual Basic.NET e creare un nuovo progetto di "Applicazione Windows Form". Aggiungere al form un "TextBox" e due "pulsanti".

2

Fare clic su "Progetto" nel menu "File" e selezionare "< > Proprietà". Selezionare "Riferimenti" nel riquadro di sinistra e fare clic su "Aggiungi...". Fare clic sulla scheda "COM", selezionare "Microsoft Excel 12.0 Object Library" e fare clic su "OK".

3

Fare doppio clic sul form per aprire il modulo di "Form1. vb". Sotto "Form1_Load" digitare il comando seguente per aggiungere una stringa di testo nella casella di testo:

TextBox1 = "Ho copiato questa stringa da un'applicazione Visual Basic e incollato in Microsoft Excel."

4

Fare clic sulla scheda "Form1. vb [Design]" e fare doppio clic su "Button1". Digitare quanto segue sotto "Button1_Click" per copiare la stringa negli Appunti:

Dim obj As New Process

Clipboard.SetDataObject(Me.TextBox1.Text)

5

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

Le importazioni Interop

6

Fare clic sulla scheda "Form1. vb [Design]" e fare doppio clic su "Button2". Digitare il comando seguente per creare un nuovo foglio di calcolo, aprirlo e incollare la stringa copiata negli Appunti da applicazione VB:

Dim objClipbrd As IDataObject = GetDataObject)

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

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

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

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

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

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

With objClipbrd

If .GetDataPresent(DataFormats.Text) Then

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

End If

End With7

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