February 26
Avere la conoscenza su come copiare i dati da un'applicazione e incollarlo in un altro consente di risparmiare tempo quando si lavora con diverse applicazioni. È possibile utilizzare gli Appunti per copiare i dati e incollarlo in un'altra applicazione utilizzando Visual Basic.NET. Gli appunti sono una serie di funzioni che tutte le applicazioni hanno accesso, il che rende semplice per trasferire i dati tra di loro. Visual Basic è un linguaggio di programmazione Microsoft che è relativamente facile da usare.
1 Avviare Visual Basic.NET e creare un nuovo progetto "Applicazione Windows Form". Aggiungere un "TextBox" e due "Pulsanti" al modulo.
2 Fai clic su "Progetto" nel menu "File" e selezionare "<progetto> Proprietà". Selezionare "Riferimenti" sul pannello di sinistra e cliccare 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 "Form1.vb". In "Form1_Load" Digitare quanto segue per aggiungere una stringa di testo alla casella di testo:
Me.TextBox1.Text = "Ho copiato questa stringa da un'applicazione VB e incollato in Microsoft Excel."
4 Fai clic su "Form1.vb [Design] scheda" e fare doppio clic su "Button1". Digitare il seguente sotto "Button1_Click" per copiare la stringa negli appunti:
Dim obj come nuovo processo
Clipboard.SetDataObject (Me.TextBox1.Text)
5 Digitare il seguente fino alla cima del modulo "Form1.vb":
Le importazioni Microsoft.Office.Interop.Excel
6 Fai clic su "Form1.vb [Design] scheda" e fare doppio clic su "Button2". Digitare la seguente per creare un nuovo foglio, aprirlo e incollare la stringa copiato negli appunti dalla vostra applicazione VB:
Dim objClipbrd Come IDataObject = Clipboard.GetDataObject ()
Dim objXL As Microsoft.Office.Interop.Excel.Application = Nothing
objBks fiochi come Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim objBk Come Microsoft.Office.Interop.Excel.Workbook = Nothing
objShts fiochi 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
con objClipbrd
Se .GetDataPresent (DataFormats.Text) Poi
objSht.Cells (1, 1) = .GetData (DataFormats.Text)
Finisci se
End With
7 Eseguire il programma e fare clic "Button1" per copiare la stringa visualizzata nella casella di testo. Clicca su "Button2" per aprire un nuovo foglio di calcolo Excel e incollare la stringa.